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 ?
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
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
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" <dakota78@discussions.microsoft.com> a écrit dans le message de
news: 5E5F9EBF-CBAD-493D-8360-AEC923D75DC8@microsoft.com...
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 ?
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
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
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" <dakota78@discussions.microsoft.com> a écrit dans le message de
news: 5E5F9EBF-CBAD-493D-8360-AEC923D75DC8@microsoft.com...
> 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
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
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
Oui, ça m'a l'air pas mal :-)
"dakota78" <dakota78@discussions.microsoft.com> a écrit dans le message de
news: FAD8CC4C-DFC6-464B-918A-F5B8F2C3B5A8@microsoft.com...
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" <dakota78@discussions.microsoft.com> a écrit dans le message
de
news: 5E5F9EBF-CBAD-493D-8360-AEC923D75DC8@microsoft.com...
> 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
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