Discussion :

[lvldia]

Salut,

Je fais une petite application qui doit parcourrir le contenu d'un dossier donné, et qui doit regarder si il y a un fichier *.deb, si oui il doit le renommer.
Mon problème et que je ne sais pas du tout comment parcourrir un dossier.
merci de votre aide

[linda15975]

le sujet a été traité de nombreuses fois auparavant...
Essaie une recherche sur le forum

[jmfmarques]

oui (c'est fatiguant...) et l'aide en ligne ? Dir, entre autres ?

[Catbull]

Voici un exemple de parcours de fichier :

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
25
 
Public Sub Lancer()
    RenommerFichier "E:\RAS", "DEV"
End Sub
 
Public Function ParcourirDossier(CheminRepertoire As String, Extension As String) As Long
    'Cocher la référence Microsoft Scripting Runtime
    ' La fonction renvoie le nombre de fichier trouvé
 
    Dim fs As New FileSystemObject
    Dim Repertoire As Folder
    Dim Fichier As File
 
    Set Repertoire = fs.GetFolder(CheminRepertoire)
 
    For Each Fichier In Repertoire.Files
        If UCase(fs.GetExtensionName(Fichier.Name)) = UCase(Extension) Then
 
            'Code de Traitement à insérer par exemple :
            'RenommerFichier
 
            ParcourirDossier = ParcourirDossier + 1
        End If
    Next Fichier
End Function

[lvldia]

Voici un exemple de parcours de fichier :

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
25
 
Public Sub Lancer()
    RenommerFichier "E:\RAS", "DEV"
End Sub
 
Public Function ParcourirDossier(CheminRepertoire As String, Extension As String) As Long
    'Cocher la référence Microsoft Scripting Runtime
    ' La fonction renvoie le nombre de fichier trouvé
 
    Dim fs As New FileSystemObject
    Dim Repertoire As Folder
    Dim Fichier As File
 
    Set Repertoire = fs.GetFolder(CheminRepertoire)
 
    For Each Fichier In Repertoire.Files
        If UCase(fs.GetExtensionName(Fichier.Name)) = UCase(Extension) Then
 
            'Code de Traitement à insérer par exemple :
            'RenommerFichier
 
            ParcourirDossier = ParcourirDossier + 1
        End If
    Next Fichier
End Function

Merci beaucoup pour cette réponse rapide

[lvldia]

Encore une petite question, j'ai essayé d'adapter ce code pour du vba, mais il ne connait pas FileSystemObject , c'est quoi son équivalent en vba?

[linda15975]

tu es sûre d'avoir coché la référence Microsoft Scripting Runtime comme indiqué dans le code de Catbull?
dan s outils > références

[Catbull]

Encore une petite question, j'ai essayé d'adapter ce code pour du vba, mais il ne connait pas FileSystemObject , c'est quoi son équivalent en vba?

FileSystemObject

Il faut cocher la référence Microsoft Scripting Runtime comme indiqué en commentaire. (Menu Outils > Références)

[lvldia]

J'ai trouvé une autre solution : Set fs = CreateObject("Scripting.FileSystemObject")

Et tout va bien