Supprimez tous les fichiers dans un dossier

J'ai le code ci-dessous pour essayer de rechercher tous les fichiers dans mon dossier de téléchargement, puis supprimez tous cependant elle retourne un message d'erreur basée sur la fonction kill de ne pas avoir assez d'arguments, des 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,

InformationsquelleAutor Brentford123 | 2017-05-24

4

Un moyen plus simple:

HTML:
```
Sub Del()
  Kill "C:\FolderName\*.*"
End Sub
```
- Alors que cet extrait de code, peut-être de résoudre la question, y compris une explication contribue à améliorer la qualité de votre réponse. Rappelez-vous que vous répondez à la question pour les lecteurs dans l'avenir, et ces personnes pourraient ne pas connaître les raisons de votre code suggestion.
InformationsquelleAutor Delmar Silva
3

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

Le déclarer dans un Module la ligne suivante
```
Global fso As New FileSystemObject
```
Maintenant, vous pouvez utiliser tout ce qui est beau et moderne I/O fonctions. 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
```
- J'ai trouvé ce que mon problème est que je suis en train de supprimer tous les fichiers qui automatiquement sauvegardé dans le C: Téléchargements sur mon ordinateur de sorte qu'ils ne sont pas dans un dossier au sein de cet emplacement, juste en utilisateurs, puis il télécharge. Des idées sur comment je peux effacer tous mes téléchargements par VBA?
- Dans C:\Downloads, ou C:\Users\<userid>\Downloads? Veuillez modifier la question avec le spécificités et clair de votre intention. Peut-être fournir un exemple d'avant et d'après.
- Désolé je n'étais pas très clair, j'ai utilisé le codage de vous mettre au-dessus cependant, en raison C:\Downloads n'est pas un dossier, il n'est pas de supprimer tous les fichiers. Si j'ai mis un dossier à l'intérieur de l'emplacement, il sera supprimer ce dossier, mais je veux effacer tous les fichiers dans les téléchargements. Cela fait-il sens? Merci,
- J'ai édité la réponse à montrer la suppression de tous les fichiers dans un dossier en premier, puis le dossier lui-même (si nécessaire). J'espère que vous pourrez adapter le ci-dessus à vos besoins.
InformationsquelleAutor ja72
1

Vous devriez nom des macros comme dans la construction de fonctions. En changeant simplement les macros avec le même codage résout les problèmes...
```
Sub Kill1 ()

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

End Sub
```
- Vous ne devriez pas**
- Modifier la question pour votre correction, plutôt que d'ajouter un commentaire. Aussi, veuillez formater votre code comme le code.
InformationsquelleAutor Ramesh Bhoopathy Raju

Vous devez vous connecter pour publier un commentaire.