Récupérer liste des fichiers d'un répertoire

Le
dakota78
Bonjour, Sous Access 97 je voudrais récupérer dans un tableau la liste des
fichiers d'un répertoire. En VB.net cela donne :

Dim files() As String = IO.Directory.GetFiles(DR1, "*.*",
IO.SearchOption.TopDirectoryOnly)
For Each file As String In files
Dim fichier As String = IO.Path.GetFileName(file)
Next

Mais en VBA Access ?
Faut-il utiliser : Scripting.FileSystemObject ? ou la fonction dir ?

Merci pour votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thom
Le #16531001
Bonjour dakota78,

La fonction "dir" est très facile à utiliser, deplus elle est bien
documentée dans l'aide VBA avec un prime un bel exemple.

Bonne journée,

Thomas

"dakota78" news:
Bonjour, Sous Access 97 je voudrais récupérer dans un tableau la liste des
fichiers d'un répertoire. En VB.net cela donne :

Dim files() As String = IO.Directory.GetFiles(DR1, "*.*",
IO.SearchOption.TopDirectoryOnly)
For Each file As String In files
Dim fichier As String = IO.Path.GetFileName(file)
Next

Mais en VBA Access ?
Faut-il utiliser : Scripting.FileSystemObject ? ou la fonction dir ?

Merci pour votre aide


dakota78
Le #16531181
Merci pour ton aide. Cela donne ceci :
Dim file As String
Dim x, cp As Integer
Dim fa(200) As String

cp = 1
rep = "n:cvnouveaux*.*"
file = Dir(rep, vbNormal)
fa(cp) = file
While Len(file) > 0
file = Dir
cp = cp + 1
fa(cp) = file
Wend
Debug.Print "---------" & cp & "-------------------"
For x = 1 To cp
Debug.Print fa(x)
Next




"Thom" a écrit :

Bonjour dakota78,

La fonction "dir" est très facile à utiliser, deplus elle est bien
documentée dans l'aide VBA avec un prime un bel exemple.

Bonne journée,

Thomas

"dakota78" news:
> Bonjour, Sous Access 97 je voudrais récupérer dans un tableau la liste des
> fichiers d'un répertoire. En VB.net cela donne :
>
> Dim files() As String = IO.Directory.GetFiles(DR1, "*.*",
> IO.SearchOption.TopDirectoryOnly)
> For Each file As String In files
> Dim fichier As String = IO.Path.GetFileName(file)
> Next
>
> Mais en VBA Access ?
> Faut-il utiliser : Scripting.FileSystemObject ? ou la fonction dir ?
>
> Merci pour votre aide





Thom
Le #16531171
Oui, ça m'a l'air pas mal :-)

"dakota78" news:
Merci pour ton aide. Cela donne ceci :
Dim file As String
Dim x, cp As Integer
Dim fa(200) As String

cp = 1
rep = "n:cvnouveaux*.*"
file = Dir(rep, vbNormal)
fa(cp) = file
While Len(file) > 0
file = Dir
cp = cp + 1
fa(cp) = file
Wend
Debug.Print "---------" & cp & "-------------------"
For x = 1 To cp
Debug.Print fa(x)
Next




"Thom" a écrit :

Bonjour dakota78,

La fonction "dir" est très facile à utiliser, deplus elle est bien
documentée dans l'aide VBA avec un prime un bel exemple.

Bonne journée,

Thomas

"dakota78" de
news:
> Bonjour, Sous Access 97 je voudrais récupérer dans un tableau la liste
> des
> fichiers d'un répertoire. En VB.net cela donne :
>
> Dim files() As String = IO.Directory.GetFiles(DR1, "*.*",
> IO.SearchOption.TopDirectoryOnly)
> For Each file As String In files
> Dim fichier As String = IO.Path.GetFileName(file)
> Next
>
> Mais en VBA Access ?
> Faut-il utiliser : Scripting.FileSystemObject ? ou la fonction dir ?
>
> Merci pour votre aide







Publicité
Poster une réponse
Anonyme