Supprimer tous les fichiers dans un dossier

Question

J'ai le code ci-dessous pour essayer de rechercher tous les fichiers dans mon dossier de téléchargement, puis les supprimer tous, mais il renvoie un message d'erreur basé sur la fonction kill ne pas avoir assez d'arguments?

Sub Kill() 

Dim aFile As String 
aFile = "C:\Test\Test\Downloads\*.*" 
If Len(Dir$(aFile)) > 0 Then 
    Kill aFile 
End If 

End Sub 

Merci,

Answer 1

Ajouter une référence à Microsoft Scripting Runtime dans l'environnement VBA

Déclarez dans une Module la ligne suivante

Global fso As New FileSystemObject 

Vous pouvez maintenant utiliser toutes les fonctions d'E/S agréables et modernes. Par exemple:

Public Sub TDELFOL()  
    Dim path As String, f As File 
    path = fso.GetSpecialFolder(TemporaryFolder) 
    path = fso.BuildPath(path, "MyTempFolder") 
    If fso.FolderExists(path) Then 
     For Each f In fso.GetFolder(path).Files 
      f.Delete Force = True 
     Next 
     fso.DeleteFolder path, Force = True 
    End If 
End Sub