Comment choisir un dossier, getopenfolder?

[Luki]

Bonjour le forum.

Je voudrais trouver l'équivalent de "GetOpenFileName" pour choisir un dossier via une boîte de dialogue. Est-ce possible? ou faut-il passer par "GetOpenFileName" et extraire le path du dossier (ce que je fais aujourd'hui).

J'ai cherché du côté de "Scripting.FileSystemObject" mais n'ai pas trouvé.

Merci et à bientôt.

 

[PascalXLD]

Re : Comment choisir un dossier, getopenfolder?

Bonjour

je vois que tu es sous 2000 donc

Sub AfficherCheminDosier_BrowseForFolder()

Dim objShell As Object, objFolder As Object

Set objShell = CreateObject("Shell.Application") 'recuperer nom repertoire cible
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)

End Sub

Pour recuperer dans une variable

Sub AfficherCheminDosier_BrowseForFolder()

Dim objShell As Object, objFolder As Object
Dim SecuriteSlash As Integer

Set objShell = CreateObject("Shell.Application") 'recuperer nom repertoire cible
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
On Error Resume Next

Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path
If objFolder.Title = "" Then Chemin = ""
SecuriteSlash = InStr(objFolder.Title, ":")
If SecuriteSlash > 0 Then Chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""

End Sub

 

[Luki]

Re : Comment choisir un dossier, getopenfolder?

Merci tout plein Pascal.

Je teste et je te dis.

 

[Luki]

Re : Comment choisir un dossier, getopenfolder?

Trop fort! C'est nickel!

Merci.