Page 1 sur 1
[R] Problème pour récupérer variable avec fileselectfolder
Posté : ven. 02 nov. 2007 14:26
par 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
Posté : ven. 02 nov. 2007 15:24
par 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 !!
Posté : sam. 03 nov. 2007 11:06
par 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
Posté : sam. 03 nov. 2007 12:54
par 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.