boie pour selection d'un cheminRésolu

Question

Bonjour tout le monde, j'aurai voulu savoir comment faire ouvrir la petite fenètre qui permet de selectionner un dossier dans tout l'ordinateur (pas d'en ouvrir un, juste de le selectionner) et de stocker le chemin du dossier dans une textbox. J'ai le code pour la fenètre qui s'ouvre quand on selectionne ,par exemple, "enregistrer sous..." mais c'est pas celle la qui qu'il me faut. Il y en a une autre plus petite qui permet de selectionner un dossier ou d'en crée un nouveau. Ce que je voudrai, c'est savoir quel est le code et qu'est-ce que je dois rajouter pour que le chemin choisi se stocke dans une textbox.

Merci

-----------------------------------
|     Longue vie à Vbfrance! :D     |
-----------------------------------

pneau · Accepted Answer

salut tu peux utiliser du VBscript comme ci dessous
Dim MyFolderBrowse As Object
Dim MyWs           As Object
Dim MyPath        As Object
Dim Chemin



Set MyFolderBrowse = CreateObject("Shell.Application")



Set MyPath = MyFolderBrowse.BrowseForFolder(&H0&, "Sélectionner un répertoire", &H1&)
On Error Resume Next
Chemin = MyPath.ParentFolder.ParseName(MyPath.Title).Path & ""
If MyPath.Title <> "" Then
    txtRep.Text = UCase(Chemin)
    End If
Set MyFolderBrowse = Nothing
Set MyPath = Nothing


Pat

 Don't Worry , Be Happy

Utilisateur anonyme · Answer

Merci beaucoup! exactement ce que je voulais! :D



-----------------------------------
|     Longue vie à Vbfrance! :D     |
-----------------------------------

Boie pour selection d'un chemin

2 réponses

Votre réponse

Discussions similaires