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
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