Vérifiez d'abord si le répertoire existe déjà. S'il existe, aucun traitement ne sera effectué et s'il n'existe pas, il sera créé.
J'espère qu'il vous sera utile de vous développer rapidement.
CheckFolder.asp
<%
'***************************************************************************************************************
'Auteur: zhao min [email protected]
'Nom de la page: CreateFolder.asp
«Fonction de la page: générer des dossiers pour les répertoires de niveau N
«Méthode d'utilisation: Fonction d'appel CheckFolder (), par exemple: CheckFolder (chemin)
'Passage: le chemin relatif du fichier à télécharger, par exemple: path = ./upload/bbb/ccc/ddd
'Inconvénient: vous devez apporter le dossier de téléchargement dans le chemin du paramètre
'***************************************************************************************************************
Sous-chèque (chemin)
SplitPath (chemin)
Sub-Sub
Sous Splitpath (chemin)
Path physique de Dim Road
Road = server.mappath (./ upload)
Chemin actuel de Dim Curroad
Route = Split (route, /, - 1,1)
Curroad = Road (Ubound (route))
dossier DIM, FSO
Set fso = server.createObject (scripting.fileSystemObject)
Dossier = Split (chemin, /, - 1,1)
pour i = 0 à Ubound (dossier) Étape 1
Si le dossier (i) = Curroad alors
j = i
sortir pour
terminer si
Suivant
i = j + 1
Si je <= ubound (dossier) alors
Dim Myroad
myRoad = server.mappath (./ upload)
pour i = J + 1 à Ubound (dossier) Étape 1
CreateFolder Myroad, dossier (i)
myroad = myroad & / & dossier (i)
Suivant
terminer si
Sub-Sub
Sub CreateFolder (MyPath, Foldername)
DIM FSO, F
Set fso = server.createObject (scripting.fileSystemObject)
Sinon (fso.folderexists (MyPath + / + Foldername)) alors
set f = fso.createfolder (mypath + / + foldername)
terminer si
Sub-Sub
Définir FSO = rien
%>