Ce post fait suite à un précédent qui ne m'a pas apporté ce que je
souhaitais, mais peut-être ai-je mal formulé ma question. Merci toutefois à
Jessy et 3Stone.
Je reformule donc :
Comment une fois défini un répertoire (variable string) en répertorier et
lister ses sous-répertoires ?
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
Gafish
Alain wrote:
Bonjour,
Bonjour,
Ce post fait suite à un précédent qui ne m'a pas apporté ce que je souhaitais, mais peut-être ai-je mal formulé ma question. Merci toutefois à Jessy et 3Stone.
Je reformule donc :
Comment une fois défini un répertoire (variable string) en répertorier et lister ses sous-répertoires ?
Essaie cette fonction :
Public Function fnGetSubFoldersInDirectory(sPath As String) As String
Dim fso, Directory, SubFolders, Folders Dim sTmp As String
Set fso = CreateObject("Scripting.FileSystemObject") Set Directory = fso.GetFolder(sPath) Set SubFolders = Directory.SubFolders For Each Folders In SubFolders sTmp = sTmp & Folders.Name & ";" Next Folders sTmp = Left(sTmp, Len(sTmp) - 1) fnGetSubFoldersInDirectory = sTmp Set SubFolders = Nothing Set fso = Nothing Set Directory = Nothing End Function
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Alain wrote:
Bonjour,
Bonjour,
Ce post fait suite à un précédent qui ne m'a pas apporté ce que je
souhaitais, mais peut-être ai-je mal formulé ma question. Merci
toutefois à Jessy et 3Stone.
Je reformule donc :
Comment une fois défini un répertoire (variable string) en
répertorier et lister ses sous-répertoires ?
Essaie cette fonction :
Public Function fnGetSubFoldersInDirectory(sPath As String) As String
Dim fso, Directory, SubFolders, Folders
Dim sTmp As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set Directory = fso.GetFolder(sPath)
Set SubFolders = Directory.SubFolders
For Each Folders In SubFolders
sTmp = sTmp & Folders.Name & ";"
Next Folders
sTmp = Left(sTmp, Len(sTmp) - 1)
fnGetSubFoldersInDirectory = sTmp
Set SubFolders = Nothing
Set fso = Nothing
Set Directory = Nothing
End Function
Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Ce post fait suite à un précédent qui ne m'a pas apporté ce que je souhaitais, mais peut-être ai-je mal formulé ma question. Merci toutefois à Jessy et 3Stone.
Je reformule donc :
Comment une fois défini un répertoire (variable string) en répertorier et lister ses sous-répertoires ?
Essaie cette fonction :
Public Function fnGetSubFoldersInDirectory(sPath As String) As String
Dim fso, Directory, SubFolders, Folders Dim sTmp As String
Set fso = CreateObject("Scripting.FileSystemObject") Set Directory = fso.GetFolder(sPath) Set SubFolders = Directory.SubFolders For Each Folders In SubFolders sTmp = sTmp & Folders.Name & ";" Next Folders sTmp = Left(sTmp, Len(sTmp) - 1) fnGetSubFoldersInDirectory = sTmp Set SubFolders = Nothing Set fso = Nothing Set Directory = Nothing End Function
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Alain
Merci Arnaud,
Je vais sans tarder essayer votre fonction et je vous tiens au courant ... A première lecture, cela doit convenir.
Bien à vous,
Alain
Merci Arnaud,
Je vais sans tarder essayer votre fonction et je vous tiens au courant ... A
première lecture, cela doit convenir.
