Discussion :

[guefrachi]

bonjour

j'ai un dossier REP, sous lequel se trouvent des dossiers que je ne connais pas le nombre ni les noms. Mais sous chaque dossier d'entre eux il existe un fichier file1.txt.
y a t-il une méthode qui permet de supprimer tous ces fichiers text.

Merci d'avance

[OhMonBato]

Bonjour,

Pour répondre à ta question : oui il y a une méthode.
Si tu devais le faire manuellement, comment procéderais tu ? Tu chercherais tout d'abord la liste des sous répertoires du répertoire REP non ? Et là, que ferais tu ? Tu regarderais si dans le premier sous répertoire tu as un fichier file1.txt et tu l'effacerais s'il existait. Tu n'oublierais pas non plus bien sûr de regarder s'il y aurait un ou plusieurs sous répertoires dans ce sous répertoire et tu répéterais ce processus jusqu'au dernier sous répertoire du répertoire REP.
Tu as donc besoin de 2 instructions, une pour lister les dossiers/fichiers d'un répertoire, une autre pour effacer un fichier, l'aide de VB ou une recherche sur ce forum te permettront de trouver lesquelles.

[guefrachi]

bonjour
Merci pour ta réponse
je l'ai trouvé (d'après ici)

Tu n'oublierais pas non plus bien sûr de regarder s'il y aurait un ou plusieurs sous répertoires dans ce sous répertoire

pour mon application (arborescence pré-décrite (rep\sous rep\fichier))

voici le code

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
Private Sub Command22_Click()
Set fsch = New FileSystemObject
Set dossier = fsch.GetFolder("c:\Evap2F")
tdelfich dossier
 
End Sub
 
Public Sub tdelfich(dossier As Folder)
 
    For Each sousdossier In dossier.SubFolders
 
        If (Dir(sousdossier & "\histo_gea.txt", vbHidden) <> "") Then
        Kill sousdossier & "\histo_gea.txt"
        End If
            Next
 
End Sub