Manipulando pasta e arquivos

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

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

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

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"

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

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

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