asp+fso implementa funções para detectar a existência, criação e exclusão de arquivos ou pastas'////////////////////////////// / ////////////////Operação FSO ///////////////////////////// //// /////
'Verifica se a pasta existe
Função FolderExits(Pasta)
Pasta=Servidor.Mappath(Pasta)
Definir FSO= Server.CreateObject(Scripting.FileSystemObject)
SE FSO.FolderExists(Pasta) Então
FolderExits = verdadeiro
Outro
FolderExits=falso
Terminar SE
Função final
'Verifica se o arquivo existe
Função FileExits(NomeArquivo)
NomeArquivo=Servidor.Mappath(NomeArquivo)
Definir FSO= Server.CreateObject(Scripting.FileSystemObject)
SE FSO.FileExists (Nome do arquivo) Então
FileExits = verdadeiro
Outro
FileExits=falso
Terminar SE
Função final
'Criar pasta
Função CreateFolder(Pasta)
em caso de erro, retome a seguir
Pasta=Servidor.Mappath(Pasta)
Definir FSO = Server.CreateObject(Scripting.FileSystemObject)
FSO.CreateFolder(Pasta)
se errar>0 então
err.claro
CriarPasta=Falso
outro
CriarPasta=Verdadeiro
terminar se
Função final
'Criar arquivo
Função CreateFile(NomeArquivo,Conteúdo)
em caso de erro, retome a seguir
NomeArquivo=Servidor.Mappath(NomeArquivo)
Definir FSO = Server.CreateObject(Scripting.FileSystemObject)
definir fd = FSO.createtextfile (Nome do arquivo, verdadeiro)
Conteúdo fd.writeline
se errar>0 então
err.claro
CriarArquivo=Falso
outro
CriarArquivo = Verdadeiro
terminar se
Função final
'Excluir arquivos
função DeleteFile(NomeArquivo)
em caso de erro, retome a seguir
Definir FSO = Server.CreateObject(Scripting.FileSystemObject)
se FSO.FileExists (Nome do Arquivo) então
FSO.DeleteFile Nome do arquivo, verdadeiro
terminar se
se errar>0 então
err.claro
ExcluirArquivo=Falso
outro
ExcluirArquivo=Verdadeiro
terminar se
função final
'Excluir pasta
função DeleteFolder(Pasta)
em caso de erro, retome a seguir
Pasta=servidor.MapPath(Pasta)
Definir FSO = Server.CreateObject(Scripting.FileSystemObject)
se FSO.FolderExists(Pasta) então
Pasta FSO.Deletefolder, verdadeiro
terminar se
se errar>0 então
err.claro
Excluir pasta=Falso
outro
Deletefolder = Verdadeiro
terminar se
função final