[R] Afficher le chemin d’un dossier dans un imputbox
Posté : jeu. 21 oct. 2010 19:40
Bonjour je suis nouveau sur le forum Autoit. Je débute dans ce langage. Je suis entrain de me faire un programme qui compresse les fichiers html, PHP, css… pour les rendre illisibles sur le net. Fin vous voyer le code qui tien tout sur une ligne.
Bref sa fait déjà une semaine que je regarde les tutoriels Autoit et pour l’instant j’ai programmé sa a l’aide de kodak. Je bloque en ce moment sur le fait que j’aimerais que lorsque je sélectionne le dossier grâce au bouton parcourir le chemin s’affiche dans la case indiqué par la variable $destination. Mais je ne sais pas quelle fonction me permétré de faier sa et comment la structurer.
Comment remédier a ce problème ?
Voici mon code.
Bref sa fait déjà une semaine que je regarde les tutoriels Autoit et pour l’instant j’ai programmé sa a l’aide de kodak. Je bloque en ce moment sur le fait que j’aimerais que lorsque je sélectionne le dossier grâce au bouton parcourir le chemin s’affiche dans la case indiqué par la variable $destination. Mais je ne sais pas quelle fonction me permétré de faier sa et comment la structurer.
Comment remédier a ce problème ?
Voici mon code.
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$structure = GUICreate("", 695, 245)
$MenuItem1 = GUICtrlCreateMenu("&Langue")
$MenuItem3 = GUICtrlCreateMenuItem("Français", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("&Aide")
$MenuItem5 = GUICtrlCreateMenuItem("FAQ", $MenuItem2)
$MenuItem4 = GUICtrlCreateMenuItem("Condition général", $MenuItem2)
$MenuItem6 = GUICtrlCreateMenuItem("A propos", $MenuItem2)
$gauche = GUICtrlCreateGroup("", 0, -8, 217, 249)
$texte = GUICtrlCreateLabel("Déposé ici vos fichiers à extension :", 8, 8, 211, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$liste = GUICtrlCreateList("", 8, 48, 201, 175)
GUICtrlSetFont(-1, 8, 800, 0, "Verdana")
GUICtrlSetBkColor(-1, 0xFFFFE1)
$texte2 = GUICtrlCreateLabel("htm / html / css / js / php.", 8, 24, 152, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$droite = GUICtrlCreateGroup("", 216, -8, 497, 249)
$texte3 = GUICtrlCreateLabel("Sélectionné le dossier de destination des fichiers une foie la compression terminé.", 224, 8, 474, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$barre = GUICtrlCreateProgress(225, 72, 465, 17)
$compression = GUICtrlCreateButton("Compression", 224, 96, 139, 49)
GUICtrlSetFont(-1, 12, 800, 0, "Verdana")
$texte4 = GUICtrlCreateLabel("Cliqué sur compression pour lancer la compression. ", 225, 51, 305, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetCursor (-1, 2)
$parcourir = GUICtrlCreateButton("Parcourir", 616, 24, 75, 20)
GUICtrlSetFont(-1, 8, 800, 0, "Verdana")
$destination = GUICtrlCreateInput("", 225, 24, 385, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetBkColor(-1, 0xFFFFE1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $parcourir
FileSelectFolder("", "", "", $parcourir)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
