Hay un método en FSO llamado CreateFolder, pero este método solo puede crear una nueva carpeta si su carpeta de nivel superior existe, así que escribí una función que crea automáticamente carpetas de varios niveles y genera páginas estáticas, etc. Es muy conveniente uso
.
'--------------------------------
'Crea automáticamente carpetas de varios niveles especificadas
'strPath es el camino absoluto
'Conserve los derechos de autor de las citas.
' por im286_Anjer
'2005-4-3
Función AutoCreateFolder(strPath) ' Como booleano
En caso de error, reanudar el siguiente
Dim astrPath, ulngPath, i, strTmpPath
Dim objFSO
Si InStr(strPath, "") <=0 O InStr(strPath, ":") <= 0 Entonces
AutoCrearCarpeta = Falso
Función de salida
Terminar si
Establecer objFSO = Server.CreateObject("Scripting.FileSystemObject")
Si objFSO.FolderExists (strPath) Entonces
AutoCrearCarpeta = Verdadero
Función de salida
Terminar si
astrPath = Dividir(strPath, "")
ulngPath = UBound(astrPath)
strTmpPath = ""
Para i = 0 a ulngPath
strTmpPath = strTmpPath & astrPath(i) & ""
Si no es objFSO.FolderExists (strTmpPath) entonces
'Crear
objFSO.CreateFolder(strTmpPath)
Terminar si
Próximo
Establecer objFSO = Nada
Si Err = 0 entonces
AutoCrearCarpeta = Verdadero
Demás
AutoCrearCarpeta = Falso
Terminar si
Función final
Método de llamada:
MyPath = "C:abc"
Si AutoCreateFolder(MyPath) Entonces
Response.Write "Carpeta creada correctamente"
Demás
Response.Write "Error al crear la carpeta"
Terminar si