Wildcards Em Vbscripts

[Delei]

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.

[Denis Bittencourt Muniz]

Bom Delei, faça o seguinte então (aqui em casa funcionou, testando no IE):

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!")
	End
End If

WScript.Echo("Arquivos deletados com sucesso!")

Qualquer coisa, post!

[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.