Gestion fichier avec Scripting.FileSystemObject

Version imprimable

Bonjour,

je develloppe une application afin de faire une gestion de fichier,

j'arrive a lister dans des item la liste des fichiers present dans le dossier , je ne sais comment naviguer dans les item du " Set ff = f.Files"

voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim StChemin As String
Dim StDossierSchema As String
Dim SrcBook As Workbook
Dim fso As Object, f As Object, ff As Object, f1 As Object
Dim SPath As String
Dim InIndex As Integer
 
Dim fld As Scripting.Folder
Dim fle As Scripting.File
 
StChemin = ActiveWorkbook.Path
Set fso = CreateObject("Scripting.FileSystemObject")
' Ouvrir la boite de dialogue pour choix du dossier
SPath = GetFolder(StChemin)
If SPath = "" Then Exit Sub
' Définir ce dossier par défaut dans FSO
Set f = fso.GetFolder(SPath)
'Recuperation de la listes des document
Set ff = f.Files

Merci d'avance
Crdlt
Franck

16/03/2011, 13h21
pgz
Bonjour.

Tu peux parcourir les fichiers contenus dans le répertoire avec une boucle For each ...
Par exemple, si tu veux faire la liste des fichiers dans une chaîne de caratères
Code:

1 2 3 4 For each ff in f.Files sListe = sListe & vbCrLf & ff.name Next ff sListe = Mid$(sListe,3)
Cordialement,

PGZ
16/03/2011, 13h29
pijaku
Bonjour,
Je n'ai pas pu tester ton code, mon excel n'en voulant pas, mais il me semble qu'il suffit d'ajouter à la fin de ton code quelque chose comme :
Code:

1 2 3 4 5 6 Dim Fichier As String 'blablabla ton code ici For Each ff In f.files Fichier = ff.Name MsgBox Fichier Next ff
EDIT : trop tard...

merci de vos réponses,

j'ai reussi a recuperer la listes des fichier sur les index, je souhaite savoir si je souhaite tester un fichier et passer au suivent.?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
For Each ofiles In f.Files
 
                'Validation fichier DWG
                If ofiles.Type = "Fichier DWG" And IsNumber(Left(CStr(ofiles.Name)), 2) = True Then
                    StNomFichier = CStr(ofiles.Name)
                    LPosition = InStr(1, StNomFichier, StTypeSg)
 
                    'numero d'ordre de 3 Unité ,exemple 154
                        If LPosition = 4 Then
                            StNumOrdre = Left(CStr(ofiles.Name), 3)
                            InNumOrdre = Val(StNumOrdre)
                        End If
 
                     'numero d'ordre de 2 Unité ,exemple 28
                        If LPosition = 3 Then
                            StNumOrdre = Left(CStr(ofiles.Name), 2)
                            InNumOrdre = Val(StNumOrdre)
                            InNumligne = (InNumOrdre * 4) + 6
                        End If
                Else
                    IsNumber(Left(CStr(ofiles.Name)), 2)
                End If