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 :
Pouvez-vous me dire où je me suis plantée ? ou avez une autre proposition ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
merci d'avance
Bonne journée !
(et bon week-end pour les chanceux qui font le pont)
Partager