Rechercher les nom des fichiers
Signaler
DJPGM
cs_JMO
- Messages postés
- 9
- Date d'inscription
- samedi 8 juin 2002
- Statut
- Membre
- Dernière intervention
- 22 février 2008
cs_JMO
- Messages postés
- 1854
- Date d'inscription
- jeudi 23 mai 2002
- Statut
- Membre
- Dernière intervention
- 24 juin 2018
A voir également:
- Rechercher les nom des fichiers
- Recherche par nom de fichier composé ✓ - Forum - VB.NET
- Recherche un nom de fichier (presque inconnu) dans un répertoire connu ✓ - Forum - Visual Basic
- Vba-word tester et actualiser un chemin d'accès à un fichier + recherche du nom des drivers - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Récupérer le nom du fichier avec lequel l'appli doit s'ouvrir.lorsqu'on double clique depuis l'explo - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Visual Basic / VB.NET : Separer le nom du fichier de son chemin sous access - CodeS SourceS - Guide
2 réponses
cs_DARKSIDIOUS
- Messages postés
- 15814
- Date d'inscription
- jeudi 8 août 2002
- Statut
- Modérateur
- Dernière intervention
- 4 mars 2013
Pour trouver tout les noms de fichiers se trouvant dans un dossier, je te conseille d'utiliser un FileListBox.
DARK SIDIOUS
DARK SIDIOUS
cs_JMO
- Messages postés
- 1854
- Date d'inscription
- jeudi 23 mai 2002
- Statut
- Membre
- Dernière intervention
- 24 juin 2018
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
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