Bonjour,
Exemple pour rechercher ts les fichiers d'un répertoire (code en VBS).
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
-------------------------------
Réponse au message :
-------------------------------
Pour trouver tout les noms de fichiers se trouvant dans un dossier, je te conseille d'utiliser un FileListBox.
DARK SIDIOUS
-------------------------------
Réponse au message :
-------------------------------
Savez vous comment trouver tout les nom des fichier qui se trouve dans un dossier pour ensuite les mettres dans une base de donné???
|