Delei

Persiste um erro na linha 9 onde existe um "End" sozinho. Diz que tá faltando "If". Eliminei o "End" que tava sozinho só que agora ele me dá as duas mensagens: "Não há arquivos para serem deletados" e, em seguida, "Arquivos deletados com sucesso". (Isso quando não há arquivos na pasta) Estou começando a achar que os scripts se comportam de modo diferente em cada máquina. SOLUÇÃO Com base no seu código, Denis, consegui adequar às minhas necessidades fazendo pequenas correções: dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") On Error Resume Next filesys.DeleteFile "H:\*.txt" If Err Then WScript.Echo("Não há arquivos de texto para serem deletados!") Else WScript.Echo("Arquivos deletados com sucesso!") End If Agradeço muito pela ajuda, amigo.

Alguém saberia me explicar por que os wildcards funcionam nesta função do VBScript: dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") filesys.DeleteFile "H:\*.txt" WScript.Echo("Arquivos deletados com sucesso!") Mas não são aceitos nesta: dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") If filesys.FileExists("H:\*.txt") Then filesys.DeleteFile "H:\*.txt" WScript.Echo("Arquivos deletados com sucesso!") Else WScript.Echo("Não há arquivos para excluir!") End If Agradeço quem puder ajudar.

Valeu pela força, Kuroi. O código que me passou teve o mesmo comportamento do código que eu consegui montar. Abraço camarada.

Sim, notei que estou no tópico errado. Obrigado pela força cara. Já consegui acertar meu código, só faltou uma coisa que tá me intrigando a cabeça. Então devo postá-la no tópico certo. Caso possa me ajudar, melhor. Aí vai: Eis meu código atual dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") '''''''' If filesys.FileExists("H:\*.txt") Then filesys.DeleteFile "H:\*.txt" '''''''' WScript.Echo("Arquivos deletados com sucesso!") ''''''' Else ''''''' WScript.Echo("Não existem arquivos a serem deletados!") ''''''' End If Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" Este código funciona perfeitamente, porém ao eliminar as aspas dos demais códigos, os wildcards (*.txt) deixam de funcionar. Se eu mudo o wildcard por um nome do tipo (teste.txt) o script deleta o arquivo especificado e ainda me retorna as mensagens sem nenhum problema.