Rechercher les nom des fichiers

Question

Savez vous comment trouver tout les nom des fichier qui se trouve dans un dossier pour ensuite les mettres dans une base de donné???

cs_DARKSIDIOUS · Answer

Pour trouver tout les noms de fichiers se trouvant dans un dossier, je te conseille d'utiliser un FileListBox.

DARK SIDIOUS

cs_JMO · Answer

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

Rechercher les nom des fichiers

2 réponses

Discussions similaires