Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá!!!
Estou com problema num script q remove um arquivo txt. Alguém pode me ajudar???
É apenas um script teste para verificar o funcionamento do FSO.
Quero lembrar q o arquivo existe no mesmo diretório q o script e colocando ServerMapPath tb não funcionou....
O erro ocorre na linha do GetFile.
Será algum problema com a instalação do FSO no servidor?
Agradeço desde já!!!
Lá vai:
<%
dim ObjFSO,fs
set ObjFSO = CreateObject("Scripting.FileSystemObject")
set fs = ObjFSO.GetFile ("arquivoteste.txt")
fs.delete
set ObjFSO = nothing
set fs = nothing
Se precisar deletar mais de uma arquivo <%dim ObjFSO,fsset objFSO = Server.CreateObject("Scripting.FileSystemObject")set objFolder = ObjFSO.GetFolder ("c:\inetpub\wwwroot\estudo\")Set objFiles = objFolder.Files for each objFile in objFiles 'deleta o arquivoteste.txt If objFile.Name = "arquivoteste.txt" Then objFile.Delete 'deleta os arquivos com extensão .txt 'If Ucase ( Right( objFile.Name, 4 ) ) = ".TXT" objFile.Deletenextset ObjFSO = nothingset fs = nothing %>