Lister le contenu d'un dossier sans api, fso, filelistbox, etc ...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 866 fois - Téléchargée 42 fois

Commenter

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é ;-)

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

Ajouter un commentaire

Commentaires

Signaler
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
 57 -
vraiment n'importe quoi !!!

utiliser 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
Signaler
cs_Pingouin
Messages postés
262
Date d'inscription
lundi 26 août 2002
Statut
Membre
Dernière intervention
24 août 2005
 -
Dis pourkoi klé API et le fso ca existe ?
Ptet pour eviter ca .
Signaler
nickadele
Messages postés
1253
Date d'inscription
mercredi 7 août 2002
Statut
Modérateur
Dernière intervention
10 avril 2013
 -
Et le FileSystemObject il sert à quoi?
Signaler
cs_monstermax
Messages postés
36
Date d'inscription
jeudi 28 mars 2002
Statut
Membre
Dernière intervention
5 décembre 2002
 -
sinon ya encore plus simple,
de memoire, ca ressemble à ca :

fichier = dir(chemin)
while fichier = dir
msgbox fichier
wend
Signaler
kikouillou
Messages postés
6
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
28 août 2002
 -
Excuse moi kud, je ne savais pas que ce code existait déjà (je ne connaissais même pas l'existence de newshackers.com)!!!
Je n'ai tout simplement utilisé que mes neurones et l'aide windaube .... A bon entendeur, salut !
Afficher les 6 commentaires
S'inscrire maintenant

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.

Du même auteur (kikouillou)