[R] Problème pour récupérer variable avec fileselectfolder

[benzo]

Bonjour,

Bon ca doit être tout bête mais la j'y arrive pas.

Comment fait on pour récupérer la valeur d'un "fileselectfoler" et l'afficher dans une inputbox crée au préalable.

Ci joint un bout de mon code ce sera plus clair

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <File.au3>

Opt("GUIOnEventMode", 1);
Opt("TrayIconHide", 1) 

guicreate("installation de ***   by ****")
GUISetState () ;
guictrlcreatelabel("indiquer le chemin du serveur",10,103)
guictrlcreatelabel("Nom de la station ",35,18)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                 V A R I A B L E S
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$pc_name = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName", "ComputerName")
GUICtrlCreateInput($pc_name,170,  15, 140, 20)

$chemin =""
$cmdParcourir = GUICtrlCreateButton("Parcourir...",313,95,80)
GuiCtrlSetOnEvent($cmdParcourir,"parcourir")
$serverpath=GUICtrlCreateInput($chemin,170,97,140,20)


$QUITTER = GUICtrlCreateButton("Sortir",98,350,120,20)  
guictrlsetonevent($QUITTER,"quitter");
;~ $INSTALLER = GUICtrlCreateButton("installer",230,350,120,20)
;~ GUICtrlSetOnEvent($INSTALLER,"installer")


Func parcourir()
    
$chemin = FileSelectFolder("Sélectionnez le dossier de sauvegarde", "","","")

EndFunc


func quitter()
    Exit
endfunc

while 1

    $msg = GUIGetMsg()
   
    select
    case $msg = $GUI_EVENT_CLOSE  
    case $msg=$QUITTER
        ExitLoop
    
;~  CASE $msg = $INSTALLER

endselect   

Wend
 

en fait je voudrais que le chemin du répertoire choisi soit affiché en clair dans l'inputbox

merci d'avance,soyez indulgents je débute

[benzo]

ok j'ai trouvé

Code : Tout sélectionner

Func parcourir()
    
$chemin = FileSelectFolder("Sélectionnez le dossier de sauvegarde", "","","")
guictrlread($chemin)
GUICtrlSetData($serverpath,$chemin)
 

tout simplement !!

[ani]

Héhé, excellent benzo

Tu peux modifier le script , autoit dispose de macro (li cette partie elle peu etre utile )

voici une petite correction

► Afficher le textele code

Code : Tout sélectionner

#include <GUIConstants.au3>
;#include <File.au3> ; le file ne sert pas dans l'exemple

Opt("GUIOnEventMode", 1); tu utilise le event mode (lire chapitre)
Opt("TrayIconHide", 1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; V A R I A B L E S
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$pc_name = @ComputerName

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Interface
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Gui = GUICreate("installation de *** by ****")
GUISetOnEvent($GUI_EVENT_CLOSE, "quitter")

GUICtrlCreateLabel("indiquer le chemin du serveur", 10, 103)
GUICtrlCreateLabel("Nom de la station ", 35, 18)

GUICtrlCreateInput($pc_name, 170, 15, 140, 20)

$cmdParcourir = GUICtrlCreateButton("Parcourir...", 313, 95, 80)
GUICtrlSetOnEvent($cmdParcourir, "parcourir")

$serverpath = GUICtrlCreateInput("", 170, 97, 140, 20)

$QUITTER = GUICtrlCreateButton("Sortir", 98, 350, 120, 20)
GUICtrlSetOnEvent($QUITTER, "quitter");
;~ $INSTALLER = GUICtrlCreateButton("installer",230,350,120,20)
;~ GUICtrlSetOnEvent($INSTALLER,"installer")
GUISetState(@SW_SHOW, $Gui)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Boucle
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While 1
Sleep(100)
WEnd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Fonctions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func parcourir()
Local $chemin = ""
$chemin = FileSelectFolder("Sélectionnez le dossier de sauvegarde", "")
GUICtrlSetData($serverpath, $chemin)
EndFunc ;==>parcourir


Func quitter()
Exit
EndFunc ;==>quitter

edit : pour les erreur lire l'aide

[Tlem]

Pourquoi faire : GUICtrlRead($chemin) puisque la variable $chemin contient le résultat du FileSelectFolder ?

GUICtrlSetData($serverpath, $chemin) suffit amplement !

Il serait plus judicieux de contrôler que $chemin <> "" et que @error <> 1, pour éviter de supprimer une éventuelle première sélection.