Existe um método no FSO chamado CreateFolder, mas esse método só pode criar uma nova pasta se sua pasta de nível superior existir, então escrevi uma função que cria automaticamente pastas de vários níveis e gera páginas estáticas, etc. usar.
Função:
'--------------------------------
' Cria automaticamente pastas multi-nível especificadas
'strPath é o caminho absoluto
'Por favor, mantenha os direitos autorais para citações
' por im286_Anjer
'2005-4-3
Função AutoCreateFolder(strPath) 'Como Booleano
Em caso de erro, retomar próximo
Dim astrPath, ulngPath, i, strTmpPath
Dim objFSO
If InStr(strPath, "") <=0 Ou InStr(strPath, ":") <= 0 Então
AutoCreateFolder = Falso
Função de saída
Terminar se
Definir objFSO = Server.CreateObject("Scripting.FileSystemObject")
Se objFSO.FolderExists(strPath) Então
AutoCreateFolder = Verdadeiro
Função de saída
Terminar se
astrPath = Dividir(strPath, "")
ulngPath = UBound(astrPath)
strTmpPath = ""
Para i = 0 Para ulngPath
strTmpPath = strTmpPath & astrPath(i) & ""
Se não objFSO.FolderExists (strTmpPath) então
'Criar
objFSO.CreateFolder(strTmpPath)
Terminar se
Próximo
Definir objFSO = Nada
Se Err = 0 Então
AutoCreateFolder = Verdadeiro
Outro
AutoCreateFolder = Falso
Terminar se
Função final
Método de chamada:
MyPath = "C:abc"
Se AutoCreateFolder(MyPath) então
Response.Write "Pasta criada com sucesso"
Outro
Response.Write "Falha ao criar pasta"
Terminar se