probleme avec FileSystemObjectRésolu

Question

bonjour &#224; tous et merci d'apporter un element de r&#233;ponse &#224; mon probl&#232;me.
ce que je veux faire c'est afficher les fichiers contenu dans un dossier dans une Listbox. le code que j'utilise est le suivant ( je l'ai copi&#233; dans ce forum et il y'a des choses qui m'&#233;chappent dans sa compr&#233;hension ) :

Dim fld As Folder
Dim fl As File
Dim fso As FileSystemObject
Dim Dossier As String

Set fso = New FileSystemObject
str1NewValue = Text1.Text
Dossier = "C:\Signatures" & str1NewValue
  ' Set du dossier &#224; parcourir
  Set fld = fso.GetFolder(Dossier)

  ' Recherche r&#233;cursive des fichiers dans les sous-dossiers
   For Each fl In fld.Files
      If Right(fl.Name, 4) = ".doc" Then
         List1.List = List1.AddItem(fl.Name)
      End If
   Next

End Sub

je voudrais tout d'abord savoir si seul "Microsoft Scripting Runtime" suffit &#224; faire fonctionner ce bout de code ?
lorsque j'execute, le compilateur &#224; ce niveau me dit : "Chemin introuvable"
Set fld = fso.GetFolder(Dossier) ; quelle en est la cause ? comment y remedier ?

aieeeuuuuu · Accepted Answer

salut, 

bah je pense que le message d'erreur est assez clair :
chemin introuvable, ca veut dire qu'il ne trouve pas le chemin... :)

donc, plusieurs raisons possibles

Dossier = "C:\Signatures" & str1NewValue
poite vers un dossier qui n'existe pas sur ton dique


ou alors il y a quelque chose qui gene dans tout ca : une espace qui s'est inser&#233;e sans que tu la voie, ou il manque un "" ou il y en a un double...


regarde avec l'esion la valeur de la variable dossier juste avant de faire ton getFolder , et ton probleme tu trouvera :)

NHenry · Answer

Text1.text y a quoi dedans?, car c'est ptete la ton pb.



Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)

Une question se pose sur le forum, pas en priv&#233;


NH

tbbuim1 · Answer

Matte ce code, &#231;a peut t'aider.

C'est sous access mais la syntaxe est la m&#234;me sous VB!

C'est un programme qui lit tous les fichiers et r&#233;pertoires d'un disk

et qui cr&#233;e une arborescence comme l'explorateur de fichier windows

http://vbfrance.com/code.aspx?ID=22885
Donc dans ton cas, au lieu de faire Nodes.add tu feras List.addItem 
TBBUIM

Probleme avec FileSystemObject

3 réponses

Discussions similaires