[..] Selectionner un dossier

[zopo]

Bonsoir,
Voilà j'aimerais savoir quelle fonction ou méthode me permettrais de sélectionner un dossier sur le disque. Un peu comme FileOpenDialog mais pour les dossiers.

Une fonction de ce genre existe elle ? Quelle est son nom ?

Merci d'avance .

[Yogui]

Bonsoir,

La fonction :

Code : Tout sélectionner

FileSelectFolder

devrait le faire

bonne soirée

[zopo]

Merci !
J'ai réussie à faire ce que je voulais. Le sujet est donc Résolu...

Presque !
Voilà, en fait lorsque que l'on tape le code :

Code : Tout sélectionner

FileSelectFolder ( "Sélection d'un dossier :", "")

Tous les répertoires s'affichent, mais aussi "Poste de travaille", "Panneau de configuration", "Favoris Réseaux".
Moi j'aimerais que seulement Bureau, C:\, D:\ et Mes documents s'affichent sauf qu'avec :

Code : Tout sélectionner

FileSelectFolder ( "Sélection d'un dossier :", "C:\" & "D:\")

Ça ne marche pas...

Comment puis-je faire ?

[TT22]

Désolé, mais ce n'est pas possible avec cette fonction.
En plus, si tu met "C:\"&"D:\", ça fait comme si tu mettais "C:\D:\"

Sinon, ce que tu peux faire, c'est crèer une GUI qui demande à l'utlisateur de quel dossier source il veut partir, puis tu ouvre ton "FileSectFolder".

Edit : Un truc comme ça :

► Afficher le texte

Code : Tout sélectionner

GUICreate("Gui",500,500)
GUICtrlCreateLabel("De quel dossier souhaitez-vous partir ?",10,10,480,20)
$Bureau = GUICtrlCreateButton("Bureau",10,40,480,50)
$C = GUICtrlCreateButton("C:",10,100,480,50)
$D = GUICtrlCreateButton("D:",10,160,480,50)
$Doc = GUICtrlCreateButton("Mes Documents",10,220,480,50)
GUISetState(@SW_SHOW)

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
    Case -3
        Exit
    Case $Bureau
        GUISetState(@SW_HIDE)
        $Folder = FileSelectFolder("Choisissez votre dossier :",@DesktopDir)
        If Not @error Then
            ExitLoop
        Else
            GUISetState(@SW_SHOW)
        EndIf
    Case $C
        GUISetState(@SW_HIDE)
        $Folder = FileSelectFolder("Choisissez votre dossier :","C:")
        If Not @error Then
            ExitLoop
        Else
            GUISetState(@SW_SHOW)
        EndIf
    Case $D
        GUISetState(@SW_HIDE)
        $Folder = FileSelectFolder("Choisissez votre dossier :","D:")
        If Not @error Then
            ExitLoop
        Else
            GUISetState(@SW_SHOW)
        EndIf
    Case $Doc
        GUISetState(@SW_HIDE)
        $Folder = FileSelectFolder("Choisissez votre dossier :",@UserProfileDir)
        If Not @error Then
            ExitLoop
        Else
            GUISetState(@SW_SHOW)
        EndIf
    EndSwitch
WEnd

MsgBox(64,"Info","Votre dossier esr :"&@CRLF&$Folder)

[mikell]

Pourquoi pas simplement

Code : Tout sélectionner

$var = FileOpenDialog("", @desktopdir & "\",  "(dir)", 1)

[DimVar]

Ou encore :

Code : Tout sélectionner

$var = FileOpenDialog("", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}",  "(dir)", 1)

[mikell]

@DimVar
OK pour initialiser le FileOpenDialog, mais selon le dossier de départ laisser le filtre vide équivaut à mettre "*" donc ça listera aussi les fichiers, et là on n'est peut-être pas dans le cahier des charges (sélectionner un dossier sur le disque)

[DimVar]

corrigé.

[TT22]

Moi j'aimerais que seulement Bureau, C:\, D:\ et Mes documents s'affichent

C'est donc moi qui ait raison

[zopo]

Ok, merci.
Mais, le problème avec la DimVar c'est que, l'on ne peut pas sélectionner un dossier.
Quand on clique sur ouvrir ça affiche le contenu du dossier sélectionner ...

[mikell]

Hum oui FileOpenDialog et FileSelectFolder
(en passant) désolé DimVar j'avais écrit une c..rie

Code : Tout sélectionner

$var = FileSelectFolder("Choose a folder.", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
msgbox(0,"", $var)

[DimVar]

lol, et moi j'ai surenchéri !

[zopo]

OK, c'est presque ça (je sais je suis chiant)
Est il possible de ne PAS afficher "Panneau de configuration" ?

Merci

[zopo]

Up

Merci d'avance.