Überprüfen Sie zunächst, ob das Verzeichnis bereits vorhanden ist. Wenn es vorhanden ist, wird keine Verarbeitung durchgeführt, und wenn es nicht existiert, wird es erstellt.
Ich hoffe, es wird für Sie nützlich sein, sich schnell zu entwickeln.
Checkfolder.asp
<%
'***************************************************
'Autor: Zhao Min [email protected]
'Seitenname: createFolder.asp
'Seitenfunktion: Generieren Sie Ordner für N-Level-Verzeichnisse
'Verwendungsmethode: Rufen Sie die Funktion checkFolder () auf, zum Beispiel: CheckFolder (Pfad)
'Passage: Der relative Pfad der Datei, die hochgeladen werden soll, zum Beispiel: Path = ./upload/bb/ccc/ddd
"Nachteil: Sie müssen den Upload -Ordner in den Parameterpfad einlegen
'***************************************************
Untersucher der Untersuchung (Pfad)
SplitPath (Pfad)
Ende sub
Sub -Splitspath (Pfad)
Dimer Straße 'physischer Weg
Road = server.mappath (./ Upload)
Dim Curroad 'aktueller Pfad
Straße = Split (Straße,/,-1,1)
Curroad = Straße (Ubound (Straße))
Dim Ordner, fso
Setzen Sie fso = server.createObject (scripting.FilesystemObject)
Ordner = split (Pfad,/,-1,1)
Für i = 0 bis Ubound (Ordner) Schritt 1
Wenn Ordner (i) = curroad dann
J = i
beenden für
Ende wenn
Nächste
i = j + 1
Wenn ich <= Ubound (Ordner) dann
Dim Myroad
myroad = server.mappath (./ Upload)
Für i = j + 1 zu Ubound (Ordner) Schritt 1
CreateFolder Myroad, Ordner (i)
myroad = myroad &/& ordner (ich)
Nächste
Ende wenn
Ende sub
SubcreateFolder (MyPath, Falterame)
Dim fso, f
Setzen Sie fso = server.createObject (scripting.FilesystemObject)
Wenn nicht (fso.FORDEREXISTS (MYPADE+/+FILDERNAME)) dann
Setzen Sie F = fso.createFolder (MyPath+/+Folderame)
Ende wenn
Ende sub
Fso = nichts setzen
%>