Il existe une méthode dans FSO appelée CreateFolder, mais cette méthode ne peut créer un nouveau dossier que si son dossier de niveau supérieur existe, j'ai donc écrit une fonction qui crée automatiquement des dossiers à plusieurs niveaux et génère des pages statiques, etc. utilisation
.
'--------------------------------
' Créer automatiquement les dossiers multi-niveaux spécifiés
'strPath est le chemin absolu
'Veuillez conserver les droits d'auteur pour les citations
' par im286_Anjer
'2005-4-3
Fonction AutoCreateFolder(strPath) ' Comme booléen
En cas d'erreur, reprise suivante
Dim astrPath, ulngPath, i, strTmpPath
Dim objFSO
Si InStr(strPath, "") <=0 Ou InStr(strPath, ":") <= 0 Alors
AutoCreateFolder = Faux
Fonction de sortie
Fin si
Définir objFSO = Server.CreateObject("Scripting.FileSystemObject")
Si objFSO.FolderExists(strPath) Alors
AutoCreateFolder = Vrai
Fonction de sortie
Fin si
astrPath = Split(strPath, "")
ulngPath = UBound(astrPath)
strTmpPath = ""
Pour i = 0 Vers ulngPath
strTmpPath = strTmpPath & astrPath(i) & ""
Si ce n'est pas le cas, objFSO.FolderExists(strTmpPath) Alors
'Créer
objFSO.CreateFolder(strTmpPath)
Fin si
Suivant
Définir objFSO = Rien
Si Err = 0 Alors
AutoCreateFolder = Vrai
Autre
AutoCreateFolder = Faux
Fin si
Fonction de fin
Méthode d'appel :
MyPath = "C:abc"
Si AutoCreateFolder (MyPath) Alors
Response.Write "Dossier créé avec succès"
Autre
Response.Write "Échec de la création du dossier"
Fin si