Lister le contenu d'un dossier sans api, fso, filelistbox, etc ...
Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 015 fois - Téléchargée 42 fois
Contenu du snippet
Ce morceau de code n'a rien d'extraordinaire mais il peut être utile dans une macro (par exemple). Il sert à lister le contenu d'un dossier et affiche le résultat dans une combo (ou une liste, un treeview, etc ...).
C'est la seule méthode que j'ai trouvé dans Outlook pour effectuer cette opération. Si quelqu'un à une autre méthode, je suis prenneur ... par curiosité ;-)
PS: N'oubliez pas de rajouter une référence à Word dans votre projet (Normalement, l'objet FileSearch est disponnible avec les applications Office moins Outlook).
C'est la seule méthode que j'ai trouvé dans Outlook pour effectuer cette opération. Si quelqu'un à une autre méthode, je suis prenneur ... par curiosité ;-)
Source / Exemple :
Dim temp As Word.Application
Dim dossier As String
Set temp = CreateObject("Word.Application")
Set fs = temp.FileSearch
dossier = "c:\Votre_dossier"
With fs
.LookIn = dossier
.FileName = "*.*"
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Combo1.AddItem Left(Mid(.FoundFiles(i), Len(dossier)+2), Len(Mid(.FoundFiles(i), Len(dossier)+2)))
Next i
Else
MsgBox "Aucun document n'a été trouvé dans le dossier", vbExclamation + vbOKOnly, "Erreur ..."
End If
End With
temp.Quit
Set temp = Nothing
Set fs = Nothing
DoEvents
Conclusion :
PS: N'oubliez pas de rajouter une référence à Word dans votre projet (Normalement, l'objet FileSearch est disponnible avec les applications Office moins Outlook).
A voir également
- Lister le contenu d'un dossier sans api, fso, filelistbox, etc ...
- PHP : Lister le contenu d'un dossier (avec spécification) - CodeS SourceS - Guide
- Lister le contenu d'un dossier et afficher les fichiers voulu dans un lien - Codes sources - PHP (Fichier / Disque)
- Lister le contenu d'un dossier dans une combobox ✓ - Forum - Visual Basic
- Visual Basic / VB.NET : Parcourir les dossiers avec un listview et sans api !! - CodeS SourceS - Guide
- Visual Basic / VB.NET : Lister le contenu d'un fichier zip (sans dll) - CodeS SourceS - Guide
- Messages postés
-
17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
68utiliser Word pour lister des fichiers.... pourquoi pas Paint pour écouter de la musique ?
Le but ne serait-il pas de ne pas se faire detecter a cause de l'utilisation de FileSystemObject.... ?
MonsterMax, attention, tu court-circuite le premier fichier, dans ton code :
fichier = dir$(chemin)
while len(fichier)>0
msgbox fichier
fichier = dir
wend
Ptet pour eviter ca .
de memoire, ca ressemble à ca :
fichier = dir(chemin)
while fichier = dir
msgbox fichier
wend
Je n'ai tout simplement utilisé que mes neurones et l'aide windaube .... A bon entendeur, salut !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.