[Resolvido]Excluir arquivos de um diretório

Pessoal, boa noite!

Estou aqui com dificuldades de excluir vários arquivos *.pdf de um determinado diretório do sistema através de um botão de comando.

Código:

Private Sub btLimpEnv_Click()
Dim fso As New FileSystemObject
Dim File As String
File = "C:\GTEC\enviados\*.pdf"
fso.DeleteFile File, True
Set fso = Nothing 'Libera memória
End Sub

Se alguém se habilitar desde já agradeço.

Abraços,

Pessoal,

Resolvido ...

Após uma vasta pesquisa deu certo.

Código:

Private Sub btLimpEnv_Click()
On Error GoTo TrataErro
Kill ("C:\GTEC\ENVIADOS\*.PDF")
Exit Sub
TrataErro:
MsgBox "O diretório já está limpo!"
End Sub


Abraços,