Supprimer les fichiers d'un répertoire
Bonjour à tous,
Je viens solliciter votre aide sur un code qui ne fonctionne pas.
Je voudrais supprimer tous les fichiers à la racine du répertoire w:\ qui commencent par "Export"
voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Sub clearW()
Dim myFso, myFile, myFolder
Dim f
Set myFso = CreateObject("Scripting.FileSystemObject")
'sélection du dossier à analyser
Set myFolder = myFso.GetFolder("w:\")
'boucle sur tous les fichier du dossier
For f = 1 To 10
myFile = Dir("w:\Export*" & ".xls")
On Error Resume Next
' supprime le fichier qui commence par "Export"
If myFile <> "" Then Kill myFile
On Error GoTo 0
Next f
End Sub |
Pouvez-vous me dire où je me suis plantée ? ou avez une autre proposition ?
merci d'avance
Bonne journée !
(et bon week-end pour les chanceux qui font le pont)
