Function in ähnliche Datei umbauen

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • Function in ähnliche Datei umbauen

    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
    Angehängte Dateien
Lädt...
X