Saiba como tratar rapidamente com os arquivos e pastas de seu site.
Aprenda a verificar se um arquivo ou uma pasta existe, como criar
um novo arquivo ou uma nova pasta, e ainda como excluí-los.
Verificando se um arquivo existe
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists( Server.MapPath("meu_arquivo.html") ) Then
Response.Write "O arquivo existe"
Else
Response.Write "O arquivo não existe"
End If
Set objFS = Nothing
If objFS.FileExists( Server.MapPath("meu_arquivo.html") ) Then
Response.Write "O arquivo existe"
Else
Response.Write "O arquivo não existe"
End If
Set objFS = Nothing
Verificando se uma pasta existe
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(Server.MapPath( "minha_pasta" ) ) Then
Response.Write "A pasta existe"
Else
Response.Write "A pasta não existe"
End if
Set objFS = Nothing
If objFS.FolderExists(Server.MapPath( "minha_pasta" ) ) Then
Response.Write "A pasta existe"
Else
Response.Write "A pasta não existe"
End if
Set objFS = Nothing
Criando um novo arquivo
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists( Server.MapPath("arquivo.html") ) Then
Set ObjTextS = objFS.CreateTextFile( Server.MapPath( "meu_arquivo.html"), False, False)
ObjTextS.Write "texto do meu arquivo"
Set objTextS = Nothing
Response.Write "O arquivo foi criado com sucesso"
Else
Response.Write "O arquivo não pode ser criado, pois já existe um arquivo com o mesmo nome"
End If
Set objFS = Nothing
If objFS.FileExists( Server.MapPath("arquivo.html") ) Then
Set ObjTextS = objFS.CreateTextFile( Server.MapPath( "meu_arquivo.html"), False, False)
ObjTextS.Write "texto do meu arquivo"
Set objTextS = Nothing
Response.Write "O arquivo foi criado com sucesso"
Else
Response.Write "O arquivo não pode ser criado, pois já existe um arquivo com o mesmo nome"
End If
Set objFS = Nothing
Criando uma nova pasta
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
objFS.CreateFolder(Server.MapPath( "minha_pasta") )
Set objFS = Nothing
Response.Write "A pasta foi criada com sucesso"
objFS.CreateFolder(Server.MapPath( "minha_pasta") )
Set objFS = Nothing
Response.Write "A pasta foi criada com sucesso"
Lembre-se sempre antes de criar a pasta é necessário verificar se
já não existe uma pasta com o mesmo nome da pasta a ser criada,
pois caso exista ocorrera um erro de script.
O código correto então seria:
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If Not objFS.FolderExists(Server.MapPath( "minha_pasta") ) Then
objFS.CreateFolder(Server.MapPath( "minha_pasta") )
Response.Write "A pasta foi criada com sucesso"
End if
Set objFS = Nothing
If Not objFS.FolderExists(Server.MapPath( "minha_pasta") ) Then
objFS.CreateFolder(Server.MapPath( "minha_pasta") )
Response.Write "A pasta foi criada com sucesso"
End if
Set objFS = Nothing
Excluindo um arquivo
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists( Server.MapPath("meu_arquivo.html") ) Then
objFS.DeleteFile( Server.MapPath( "meu_arquivo.html" ) )
Set objFS = Nothing
Response.Write "O arquivo foi excluido com sucesso"
Else
Response.Write "O arquivo não pode ser excluido, pois não foi encontrado"
End If
If objFS.FileExists( Server.MapPath("meu_arquivo.html") ) Then
objFS.DeleteFile( Server.MapPath( "meu_arquivo.html" ) )
Set objFS = Nothing
Response.Write "O arquivo foi excluido com sucesso"
Else
Response.Write "O arquivo não pode ser excluido, pois não foi encontrado"
End If
Excluindo uma pasta
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If Not objFS.FolderExists(Server.MapPath( "minha_pasta") ) Then
objFS.DeleteFolder(Server.MapPath( "minha_pasta") )
Response.Write "A pasta foi excluida com sucesso"
Else
Response.Write "A pasta não pode ser excluida, pois não foi encontrada"
End if
Set objFS = Nothing
If Not objFS.FolderExists(Server.MapPath( "minha_pasta") ) Then
objFS.DeleteFolder(Server.MapPath( "minha_pasta") )
Response.Write "A pasta foi excluida com sucesso"
Else
Response.Write "A pasta não pode ser excluida, pois não foi encontrada"
End if
Set objFS = Nothing
.jpg)
.jpg)
Livraria do Nord Stage 2 para kontakt. Com 3 timbres de pian...
