Shopping Hospedagem Fórum Contato
     
   O portal do desenvolvedor ASP Florianópolis-SC, Terça-feira - 30 de Setembro de 2014  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
HomeArtigosArquivos
 Trabalhando rapidamente com arquivos e pastas
Avaliações: 22   -   Minha nota: Média Geral: 5  

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

Fabiano Dias
fabiano@superasp.com.br

www.superasp.com.br
O portal do desenvolvedor ASP




SuperASP do Brasil Ltda

03.066.522/0001-84
Av. Rio Branco 433 - Centro - Florianopolis - SC
Contato

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados