Supprimer tous les fichiers d'un dossier

Question

J'ai le code ci-dessous pour essayer de rechercher tous les fichiers de mon dossier de téléchargements, puis de les supprimer tous, mais il renvoie un message d'erreur basé sur le fait que la fonction de suppression n'a pas assez d'arguments, d'idées?

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

 

 

Le déclarer dans une Module la ligne suivante

Global fso As New FileSystemObject

Vous pouvez maintenant utiliser toutes les fonctions d’E/S de Nice 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

Answer 2

Vous devez nommer les macros en tant que fonctions intégrées. Changer les macros avec le même code résout les problèmes ...

Sous-tuer1 ()

Dim aFile As String AFile = "C:\Test\Test\Téléchargements *. *" Si Len (Dir $ (aFile))> 0 Alors Tuez un fichier Fin si

End Sub

Answer 3

Un moyen plus simple:

Sub Del()
  Kill "C:\FolderName\*.*"
End Sub