Discussion :

[Oh!Tofocus]

Bonjour
je rencontre un problèmes avec le choix du chemin à ouvrir.

si je le rentre directement le chemin "C:\Users\leo\Documents\Visual Studio 2008\Projects" ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim objShell As Object, objFolder As Object, oFolderItem As Object
objShell = CreateObject("Shell.Application")
objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H210&, "C:\Users\leo\Documents\Visual Studio 2008\Projects")

si je met une variable string ou_ouvrir ça marche pas ... ça ouvre sur la racine du disque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
dim ou_ouvrir As String
 
ou_ouvrir="C:\Users\leo\Documents\Visual Studio 2008\Projects"
 
 
Dim objShell As Object, objFolder As Object, oFolderItem As Object
objShell = CreateObject("Shell.Application")
objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H210&, ou_ouvrir)

ou est le BUG ?
comment faire ??? car je récupère le chemin dans une variable string

[asmduty]

Bonjour,

en pas à pas peux tu tester si System.IO.Directory.Exists(ou_ouvrir) est à true

[Oh!Tofocus]

salut asmduty

j'ai bien: test007 = true

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        ou_ouvrir = "C:\Users\leo\Documents\Visual Studio 2008\Projects"
        test007 = System.IO.Directory.Exists(ou_ouvrir)
        Dim objShell As Object, objFolder As Object, oFolderItem As Object
        objShell = CreateObject("Shell.Application")
        objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H210&, ou_ouvrir)

mais la fenetre n'ouvre pas dans le dossier Projects
comme si ou_ouvrir=""

testez le chez vous pour voir si c'est un problème uniquement chez moi

[Oh!Tofocus]

Vive la bidouille
avec "" & ou_ouvrir ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H210&, "" & ou_ouvrir)

allez comprendre pourquoi ????

Je suis sur que ça va rendre service à beaucoup de monde
A+