Je voudraisremplir une liste de choix (list box) avec le nom des fichiers
d'un repertoire...
L'aide ACCESS me donne ceci :
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & vbCrLf
Next
MsgBox s
End Sub
C'est bien, en l'adaptant, c'est ce que je cherche. Mais comment mettre
cette collection de fichiers dans la list box pour effectuer un choix
recuperable ensuite dans l'application ?
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
Eric
Bonjour Luc,
Un truc du genre en transformant la procédure en fonction:
Private Sub Form_Open(Cancel As Integer) Me.Liste0.RowSourceType = "Liste valeurs" Me.Liste0.RowSource = ShowFolderList("C:Documents and SettingsEricMes documents") End Sub
Function ShowFolderList(folderspec) As String Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc s = s & f1.Name s = s & ";" Next ShowFolderList = s End Function
La fonction est écrite dans le module du formulaire car je ne sais pas si tu en as besoin ailleurs.
Pour récuperer le nom du fichier, par exemple :
Private Sub Liste0_Click() MsgBox Liste0.Value End Sub
Bonjour a tous,
voici mon petit probleme :
Je voudraisremplir une liste de choix (list box) avec le nom des fichiers d'un repertoire...
C'est bien, en l'adaptant, c'est ce que je cherche. Mais comment mettre cette collection de fichiers dans la list box pour effectuer un choix recuperable ensuite dans l'application ?
Merci et bonne journee a tous,
Luc
--
A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Luc,
Un truc du genre en transformant la procédure en fonction:
Private Sub Form_Open(Cancel As Integer)
Me.Liste0.RowSourceType = "Liste valeurs"
Me.Liste0.RowSource = ShowFolderList("C:Documents and
SettingsEricMes documents")
End Sub
Function ShowFolderList(folderspec) As String
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & ";"
Next
ShowFolderList = s
End Function
La fonction est écrite dans le module du formulaire car je ne sais pas
si tu en as besoin ailleurs.
Pour récuperer le nom du fichier, par exemple :
Private Sub Liste0_Click()
MsgBox Liste0.Value
End Sub
Bonjour a tous,
voici mon petit probleme :
Je voudraisremplir une liste de choix (list box) avec le nom des fichiers
d'un repertoire...
C'est bien, en l'adaptant, c'est ce que je cherche. Mais comment mettre
cette collection de fichiers dans la list box pour effectuer un choix
recuperable ensuite dans l'application ?
Merci et bonne journee a tous,
Luc
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Un truc du genre en transformant la procédure en fonction:
Private Sub Form_Open(Cancel As Integer) Me.Liste0.RowSourceType = "Liste valeurs" Me.Liste0.RowSource = ShowFolderList("C:Documents and SettingsEricMes documents") End Sub
Function ShowFolderList(folderspec) As String Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc s = s & f1.Name s = s & ";" Next ShowFolderList = s End Function
La fonction est écrite dans le module du formulaire car je ne sais pas si tu en as besoin ailleurs.
Pour récuperer le nom du fichier, par exemple :
Private Sub Liste0_Click() MsgBox Liste0.Value End Sub
Bonjour a tous,
voici mon petit probleme :
Je voudraisremplir une liste de choix (list box) avec le nom des fichiers d'un repertoire...
C'est bien, en l'adaptant, c'est ce que je cherche. Mais comment mettre cette collection de fichiers dans la list box pour effectuer un choix recuperable ensuite dans l'application ?
Merci et bonne journee a tous,
Luc
--
A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Luc de Kin
Grand merci Eric, ca marche OK!
Luc
Bonjour Luc,
Un truc du genre en transformant la procédure en fonction:
Private Sub Form_Open(Cancel As Integer) Me.Liste0.RowSourceType = "Liste valeurs" Me.Liste0.RowSource = ShowFolderList("C:Documents and SettingsEricMes documents") End Sub
Function ShowFolderList(folderspec) As String Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc s = s & f1.Name s = s & ";" Next ShowFolderList = s End Function
La fonction est écrite dans le module du formulaire car je ne sais pas si tu en as besoin ailleurs.
Pour récuperer le nom du fichier, par exemple :
Private Sub Liste0_Click() MsgBox Liste0.Value End Sub
Bonjour a tous,
voici mon petit probleme :
Je voudraisremplir une liste de choix (list box) avec le nom des fichiers d'un repertoire...
C'est bien, en l'adaptant, c'est ce que je cherche. Mais comment mettre cette collection de fichiers dans la list box pour effectuer un choix recuperable ensuite dans l'application ?
Merci et bonne journee a tous,
Luc
--
A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Grand merci Eric, ca marche OK!
Luc
Bonjour Luc,
Un truc du genre en transformant la procédure en fonction:
Private Sub Form_Open(Cancel As Integer)
Me.Liste0.RowSourceType = "Liste valeurs"
Me.Liste0.RowSource = ShowFolderList("C:Documents and
SettingsEricMes documents")
End Sub
Function ShowFolderList(folderspec) As String
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & ";"
Next
ShowFolderList = s
End Function
La fonction est écrite dans le module du formulaire car je ne sais pas
si tu en as besoin ailleurs.
Pour récuperer le nom du fichier, par exemple :
Private Sub Liste0_Click()
MsgBox Liste0.Value
End Sub
Bonjour a tous,
voici mon petit probleme :
Je voudraisremplir une liste de choix (list box) avec le nom des fichiers
d'un repertoire...
C'est bien, en l'adaptant, c'est ce que je cherche. Mais comment mettre
cette collection de fichiers dans la list box pour effectuer un choix
recuperable ensuite dans l'application ?
Merci et bonne journee a tous,
Luc
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Un truc du genre en transformant la procédure en fonction:
Private Sub Form_Open(Cancel As Integer) Me.Liste0.RowSourceType = "Liste valeurs" Me.Liste0.RowSource = ShowFolderList("C:Documents and SettingsEricMes documents") End Sub
Function ShowFolderList(folderspec) As String Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc s = s & f1.Name s = s & ";" Next ShowFolderList = s End Function
La fonction est écrite dans le module du formulaire car je ne sais pas si tu en as besoin ailleurs.
Pour récuperer le nom du fichier, par exemple :
Private Sub Liste0_Click() MsgBox Liste0.Value End Sub
Bonjour a tous,
voici mon petit probleme :
Je voudraisremplir une liste de choix (list box) avec le nom des fichiers d'un repertoire...
C'est bien, en l'adaptant, c'est ce que je cherche. Mais comment mettre cette collection de fichiers dans la list box pour effectuer un choix recuperable ensuite dans l'application ?
Merci et bonne journee a tous,
Luc
--
A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
