Discussion :

[kesimon63]

Bonjour à tous !
Pourriez-vous me dire comment faire pour supprimer tous les fichiers d'un dossier.
Je connais le chemin du dossier (C:\temp) mais pas les noms des fichiers.

J'ai tenté un truc avec KILL mais ca n'a pas fonctionné.

PS: Pour les gens qui me diraient de redémarrer c'est hors de question

[tedo01]

Bonjour,
C'est la référence à "Microsoft Scripting Runtime" qui va te permettre de "jongler" avec les fichier.

Une fois cette référence ajoutée à ton projet, il faut instancier un nouvel objet FileSystemObject :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim objFSO As FileSystemObject
    Set objFSO = New FileSystemObject

Puis s'en servir pour se promener dans le système de fichiers.
Par exemple,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim objRep As Folder
    Set objRep = objFSO.GetFolder("C:\temp")

te permet de pointer sur le répertoire, puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim objSousRep As Folder
    For Each objSousRep In objRep.SubFolders
    Next objSousRep

pour boucler sur les sous-répertoires, et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim objFichier As File
    For Each objFichier In objRepI.Files
    Next objFichier

pour boucler sur les fichiers.

Je ne te détaille pas toutes les possibilités, c'est intéressant de parcourir les méthodes et propriétés de ces objets...

Allez, un dernier tuyau. Une fois le fichier repéré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objFichier.Delete

[kesimon63]

Merci beaucoup !
Ca fonctionne sauf que ca m'affiche permission refusée au moment du delete.

[kesimon63]

J'ai rien dit !
Forcément quand on essaye de supprimer un fichier encore ouvert ça marche pas très bien !

En m'inspirant de ton code j'ai écrit cela qui fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    Set MonFichierSupp = CreateObject("Scripting.FileSystemObject")
    MonFichierSupp.DeleteFile ("c:\temp\*.*")

[kesimon63]

Bonjour !
Suite au code du post précédent se pose un petit souci !
Il peut arriver que dans mon dossier C:\temp\ il y ait des fichiers en lecture seule que je voudrait supprimer également.
Dans ce cas là il m'affiche un message d'erreur 70 : Permission refusée.
Auiez-vous une solution ?
Merci d'avance.

[AlainTech]

Puisque tu travailles déjà avec FSO, va voir là:
http://warin.developpez.com/access/fichiers/#LI-C-3
Les attributs de fichiers suivent la même logique que ceux des dossiers.

[Vadorblanc]

Bonjour
Pour supprimer tous les fichiers d'un dossier "Temp" spécifié avec en plus une date de suppression si fichiers > à 1 jour:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub SupprimedansDossierUniquement()
Dim myFso, myFile, myFolder
Set myFso = CreateObject("Scripting.FileSystemObject")
    'sélection du dossier à analyser
Set myFolder = myFso.GetFolder("C:\Temp\")
    'boucle sur tous les fichier du dossier
For Each myFile In myFolder.Files
    'si la date de modification du fichier est antérieure à 1 jours, effacer le fichier
If DateDiff("d", myFile.DateLastModified, Now) > 1 Then myFile.Delete True
Next myFile
End Sub

Cordialement

[helas]

Bonsoir,
sous Excel 2007 , le code ci-dessous fonctionne parfaitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Kill "C:\temp\*.*"