Function in ähnliche Datei umbauen

[Krali]

Hi,

bitte kann mir jemand helfen, die Funktion der NICHT angezeigten Dateien sollte in die Datei im ZIP-File eingebaut werden.

Ich arbeite noch net lang mit ASP, kann mir bitte wer weiterhelfen, danke...

Ich denk halt mal, dass der Code übernommen werden kann:

Dim aryExcludedFiles(5)
aryExcludedFiles(0) = "index.asp"
aryExcludedFiles(1) = "kattitel.gif"

' --- relativen Pfad des Verzeichnisses angeben.
' --- Keinen führenden oder abschliessenden \ oder / eingeben
Const RelativePath = ""

Call ShowFiles(RelativePath)

' -----------------------------------------------------------------------------
Private Function AllowOutput(f_name)

AllowOutput = True

For intRowCounter = LBound(aryExcludedFiles) To UBound(aryExcludedFiles)
If aryExcludedFiles(intRowCounter) = f_name Then
AllowOutput = False
Exit For
End if
Next

End Function

BITTE - DANKE.

mfg

Krali