Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Récupérer liste des fichiers d'un répertoire

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

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Thom
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" a écrit dans le message 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


Avatar
dakota78
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" a écrit dans le message 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





Avatar
Thom
Oui, ça m'a l'air pas mal :-)

"dakota78" a écrit dans le message de
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" a écrit dans le message
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