Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 015 fois - Téléchargée 42 fois
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
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
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.