Liste de fichier ?????
80david80
Messages postés
7
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
25 octobre 2002
-
24 oct. 2002 à 17:12
ghost260984 Messages postés 20 Date d'inscription mercredi 18 juin 2003 Statut Membre Dernière intervention 14 décembre 2004 - 27 avril 2004 à 15:35
ghost260984 Messages postés 20 Date d'inscription mercredi 18 juin 2003 Statut Membre Dernière intervention 14 décembre 2004 - 27 avril 2004 à 15:35
3 réponses
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
24 oct. 2002 à 19:37
24 oct. 2002 à 19:37
Tu as un contrôle spécialement dédié à cela :
Le contrôle FileListBox
DARK SIDIOUS
Le contrôle FileListBox
DARK SIDIOUS
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
25 oct. 2002 à 10:20
25 oct. 2002 à 10:20
Bonjour,
Dim Path
Path = InputBox("Saisir le répertoire souhaité: exemple: c:\Mes Documents","Liste de fichier dans un répertoire")
MsgBox ShowFolderList(Path),vbmessage,"Fichiers contenus dans le répertoire " & Path
Function ShowFolderList(strPath)
Dim fso, Dossiers, fic, fichiers, strListe
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(strPath)
Set fic = Dossiers.Files
'pour chaque fichier de mon objet files de mon objet fso...:)
For Each fichiers in fic
'le nom du fichier
strListe = strListe & vbcrlf & vbcrlf & fichiers.Name & " Date (jjmmaa) : " & fichiers.DateLastModified & " Taille (octet) : " & fichiers.Size
Next
ShowFolderList = strListe
End Function
Dim Path
Path = InputBox("Saisir le répertoire souhaité: exemple: c:\Mes Documents","Liste de fichier dans un répertoire")
MsgBox ShowFolderList(Path),vbmessage,"Fichiers contenus dans le répertoire " & Path
Function ShowFolderList(strPath)
Dim fso, Dossiers, fic, fichiers, strListe
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(strPath)
Set fic = Dossiers.Files
'pour chaque fichier de mon objet files de mon objet fso...:)
For Each fichiers in fic
'le nom du fichier
strListe = strListe & vbcrlf & vbcrlf & fichiers.Name & " Date (jjmmaa) : " & fichiers.DateLastModified & " Taille (octet) : " & fichiers.Size
Next
ShowFolderList = strListe
End Function
ghost260984
Messages postés
20
Date d'inscription
mercredi 18 juin 2003
Statut
Membre
Dernière intervention
14 décembre 2004
27 avril 2004 à 15:35
27 avril 2004 à 15:35
l utilisation de la FiliListBox est beaucoup plus simple
tu fait
dim tablo() as string
redim tablo (0 to 0)
filelistbox.path= "chemin du fichier"
for i = 0 to filelistbox.listcount -1
redim preserve tablo ( 0 to i + 1 )
tabo(i) = filelistbox.list(i)
next i
redim preserve tablo( 0 to ubound(tablo) -1 )
et c est fini ( et en plus ca marche :)
tu fait
dim tablo() as string
redim tablo (0 to 0)
filelistbox.path= "chemin du fichier"
for i = 0 to filelistbox.listcount -1
redim preserve tablo ( 0 to i + 1 )
tabo(i) = filelistbox.list(i)
next i
redim preserve tablo( 0 to ubound(tablo) -1 )
et c est fini ( et en plus ca marche :)