Crétion d'un tableau regroupant les chemins complets de fichiers [Résolu]
Signaler
Daydayer
cs_jollivie
- Messages postés
- 201
- Date d'inscription
- mercredi 1 décembre 2004
- Statut
- Membre
- Dernière intervention
- 13 août 2005
cs_jollivie
- Messages postés
- 28
- Date d'inscription
- dimanche 29 décembre 2002
- Statut
- Membre
- Dernière intervention
- 24 février 2008
A voir également:
- Crétion d'un tableau regroupant les chemins complets de fichiers
- Lire un mp3 dans un listbox sans que le chemin complet n'y soit affiché. - Codes sources - Visual Basic / VB.NET (Multimedia)
- Asp.net - comment connaître le chemin complet vers l'application web en cours - Codes sources - ASP / ASP.NET (Astuces)
- Visual Basic / VB.NET : Treeview : récupérer le chemin complet d'un noeud - CodeS Sour - Guide
- Recherche du chemin complet d'un fichier ou d'une application - Codes sources - Flash (ActionScripts)
- Comment récupérer le nom du workbook a partir de son chemin complet ? ✓ - Forum - Visual Basic 6
1 réponse
cs_jollivie
- Messages postés
- 28
- Date d'inscription
- dimanche 29 décembre 2002
- Statut
- Membre
- Dernière intervention
- 24 février 2008
Dans les références, cocher Microsoft Scripting Runtime
a$ = <chemin complet du répertoire>
Dim fs As FileSystemObject
Set fs = New FileSystemObject
Dim objFolder As Folder
Set objFolder = fs.GetFolder(a$)
Dim f As File
i = 0
For Each f In objFolder.Files
i = i + 1
<si utilisation sous excel, par exemple>
Sheets("Sheet1").Cells(i, 1) = f.Path
Next
JO
a$ = <chemin complet du répertoire>
Dim fs As FileSystemObject
Set fs = New FileSystemObject
Dim objFolder As Folder
Set objFolder = fs.GetFolder(a$)
Dim f As File
i = 0
For Each f In objFolder.Files
i = i + 1
<si utilisation sous excel, par exemple>
Sheets("Sheet1").Cells(i, 1) = f.Path
Next
JO