Discussion :

[lesultan2007]

Bonjour à tous,

je developpe une application en vb.net et dans cette application j'ai affaire à

des repertoires qui ont des sous repertoires (ainsi de suite) et à la fin, le

dernier sous repertoire contient des fichiers pdf. Mon objectif est de faire

une sorte de boucle qui me permettent d'accéder à chacun des fichiers pdfs

de ces différents repertoires pour effectuer des traitements...

Comment puis je m'y prendre? Merci d'avance

[tomlev]

Code :

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

Dim files As String() = Directory.GetFiles(repertoireRacine, "*.pdf", SearchOption.AllDirectories)

[Pascjdb]

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Dim nomrepertoire As String
Dim nomfich As String
 
Dim nbfich As Long
Dim nbtraités As Long
 
 
Sub ouverture_un_à_un_desfichiers_dun_repertoire()
nbtraités = 0
Set fs = Application.FileSearch
With fs
' indiquer le répertoire à lire
    .LookIn = "C:\aperso\objectifs 2005\preparation"
    .Filename = "*.*"  ' indiquer l'extension à rechercher
 nomrepertoire = .LookIn
 
    If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
            nbfich = .FoundFiles.Count
        MsgBox "le répertoire" & nomrepertoire & " contient " & nbfich & _
            " fichiers"
 
 
        For i = 1 To .FoundFiles.Count
            'MsgBox .FoundFiles(i)
            nomfich = .FoundFiles(i)
            traiterfichier
        Next i
    Else
        MsgBox "aucun fichier trouvé"
 
    End If
 
    MsgBox ("traitement terminé : " & nbtraités & " fichiers traités")
End With
 
End Sub
Sub traiterfichier()
    Workbooks.Open Filename:= _
        "" & nomfich
'inclure les modifs à effectuer sur chaque fichier
nbtraités = nbtraités + 1
ActiveWorkbook.Save
ActiveWorkbook.Close
 
End Sub