Atualizar Pasta Do Windows

[Guest Delei]

Como eu posso atualizar uma determinada pasta aberta no windows. Já tentei usando "sendkeys" mas o comando parece ser executado na janela de execução do batch que chama o script ao invés da pasta desejada.

Se alguém souber como eu determino no script a janela à ser atualizada eu agradeço.

segue código do meu script:

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.SendKeys "{F5}"

[Guest Delei]

Consegui acertar parte do meu código, porém ele tá dependendo de uma coisa para funcionar. Vejam o código que criei:

dim filesys

Set filesys = CreateObject("Scripting.FileSystemObject")

filesys.DeleteFile "H:\*.txt"

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.SendKeys "{F5}"

Minha dificuldade é que o sistema retorna uma tela de erro no script, caso não haja nenhum arquivo dentro do diretório.

Tentei estas duas linhas:

If filesys.FileExists ("H:\*.txt") Then

End If

Só que o sistema não retorna erro, mas também não deleta os arquivos.

Alguma solução?

[kuroi]

não entendi bem, mas em vez de

If filesys.FileExists ("H:\*.txt") Then 
End If

o certo não seria

If not filesys.FileExists ("H:\*.txt") Then Exit Sub

[Guest Delei]

Me expressei mal:

Aquelas linhas foram acrescentadas no script para criar a condição de que o script somente delete se o mesmo existir. O código ficaria assim:

dim filesys

Set filesys = CreateObject("Scripting.FileSystemObject")

If filesys.FileExists ("H:\*.txt") Then[\B]

filesys.DeleteFile "H:\*.txt"

End If

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.SendKeys "{F5}"

Mesmo assim agradeço e desculpa a minha falha.

[Guest Delei]

Perdão pelo erro na hora de colocar o negrito.

[kuroi]

o problema é q o * não funciona, acho q o visual basic tenta procurar um arquivo que chama *.txt

mas c pode fazer assim:

Dim filesys As New FileSystemObject, y As Folder, z As File

Set filesys = CreateObject("Scripting.FileSystemObject")
Set y = filesys.GetFolder("H:\")
For Each z In y.Files
    filesys.DeleteFile y.Path & "\" & z.Name
Next

entendeu? o codigo procura todos os arquivos que estao no diretorio e apaga todos eles. se voce quer filtrar para q ele so apague os que forem txt, é só ver se o nome do arquivo acaba com ".txt" tipo assim:

If Right(z.Name, 4) = ".txt" Then x.DeleteFile y.Path & "\" & z.Name

[Guest Delei]

Vou tentar desta forma Kuroi, agradeço pela dica.

[Guest Delei]

Este seu script está dando erro logo na primeira linha Kuroi.

Deve haver alguma coisa errada.

[kuroi]

qual é o erro?

[Guest Delei]

qual é o erro?

Script: C:\blablablba\balanalnalna

Linha: 1

Carac.: 13

Erro: Fim da Instrução esperado

Código: 800A0401

Origem: Erro de Compilação do Microsoft VBScript

[kuroi]

você esta em vbscript e não em visual basic?...

então já não posso ter certeza, mas acho que em vbscript todas as variaveis são variants. então em vez de:

Dim filesys As New FileSystemObject, y As Folder, z As File

tente:

Dim filesys, y, z

[Delei]

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.

[kuroi]

se o codigo q te passei:

Dim filesys, y, z

Set filesys = CreateObject("Scripting.FileSystemObject")
Set y = filesys.GetFolder("H:\")
For Each z In y.Files
   filesys.DeleteFile y.Path & "\" & z.Name
Next

não funcionar em vbscript, então não tenho mais ideia...

[Delei]

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.