how to crete folder at scriptdir?

[Wollf]

i have s mall problem creating a dir at the directory of script but i dont know how exactly scriptdir works couldnt find an example,also howexactly i can make dir with same name as input because i dont know if i am correct at code

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1) 

$Form1 = GUICreate("Folder Creation", 354, 217, 372, 323)
$1 = GUICtrlCreateInput("", 60, 104, 221, 21)
$Label1 = GUICtrlCreateLabel("Type your name in the input", 56, 44, 249, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Create folder", 50, 144, 113, 37, 0)
$Button2 = GUICtrlCreateButton("Enter", 176, 144, 113, 37, 0)
GUISetState(@SW_SHOW)

func button2()
    run("dnd1.au3")
EndFunc
Func button1()
    GUICtrlRead($1)
    DirCreate(@scriptdir &"$1")
    EndFunc
    


While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            Exit
            EndSwitch
WEnd

[Aceguy]

@scriptdir mean where your runing you compiled script from....

so if you .exe script is on your desktop, then thats where @scriptdir looks.

[Mobius]

Func button1()
    DirCreate(@SCRIPTDIR &"\"& GUICtrlRead($1))
EndFunc

Remember that the @SCRIPTDIR macro does not include final slash '\'

Also your variable was enclosed in quotes.

[Wollf]

Func button1()
    DirCreate(@SCRIPTDIR &"\"& GUICtrlRead($1))
EndFunc

Remember that the @SCRIPTDIR macro does not include final slash '\'

Also your variable was enclosed in quotes.

thank u very much i have 1 question what it that &"\"& in the middle and why it is needed?

[Melba23]

Wollf,

Your initial script had this line: DirCreate(@scriptdir &"$1")

This will not work for 2 reasons.

1. $1 is the ControlID of the input box - what you need is the contents. So (as Mobius posted) you need GUICtrlRead($1). You also do not need the "" - these are only used for strings and here you are dealing with a variable.

2. Mobius again pointed out that @ScriptDir does not include the "\" character. So if you do not include it as he told you - @ScriptDir & "\" & GUICtrlRead($1) - you will not create the correct folder:

Here is an example: We will assume that @ScriptDir = C:\AutoIt\Scripts and the input box reads "Special"

@ScriptDir & GUICtrlRead($1) ===> C:\AutoIt\ScriptsSpecial --- This is not correct

@ScriptDir & "\" & GUICtrlRead($1) ===> C:\AutoIt\Scripts\Special --- This is the path you want

See the difference? That is why you need the extra & "\" &.

M23

[Wollf]

is there any wrong in here because when i press create folder button it doesnt do anything

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1) 

$Form1 = GUICreate("Folder Creation", 354, 217, 372, 323)
$1 = GUICtrlCreateInput("", 60, 104, 221, 21)
$Label1 = GUICtrlCreateLabel("Type your name in the input", 56, 44, 249, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Create folder", 50, 144, 113, 37, 0)
$Button2 = GUICtrlCreateButton("Enter", 176, 144, 113, 37, 0)
GUISetState(@SW_SHOW)

func button2()
    run("dnd1.au3")
EndFunc
Func button1()
    DirCreate(@SCRIPTDIR &"\"& GUICtrlRead($1))
EndFunc
    


While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            Exit
            EndSwitch
WEnd

[Melba23]

Wollf,

How are you calling your functions? You need to let them know they need to run!

Hint: use GUISetOnEvent - you can find the details in the Help file.

M23

[Mobius]

Hello Wollf,

The problem is that AutoIt3 supports 2 quite different Gui mechanisms,

And your source is a fusion of the two.

Your code Example in OnEvent mode.

expandcollapse popup

Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Folder Creation", 354, 217, 372, 323)
GUISetOnEvent(-3,"Close") ; Set exit event for $GUI_EVENT_CLOSE
$1 = GUICtrlCreateInput("", 60, 104, 221, 21)
$Label1 = GUICtrlCreateLabel("Type your name in the input", 56, 44, 249, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Create folder", 50, 144, 113, 37, 0)
GUICtrlSetOnEvent(-1,"button1") ; <<<
$Button2 = GUICtrlCreateButton("Enter", 176, 144, 113, 37, 0)
GUICtrlSetOnEvent(-1,"button2") ; <<<
GUISetState(@SW_SHOW)

While 1 ; *Modified*, GUIGetMsg does not work with GUIOnEventMode
 Sleep(100)
WEnd

Func Close()
 Exit
EndFunc

Func button1()
  DirCreate(@SCRIPTDIR &"\"& GUICtrlRead($1))
EndFunc
   
func button2()
  run("dnd1.au3")
EndFuncoÝ÷ Ù.­ÊxLZ^ºÈ§7jém謷)^jëh×6$Form1 = GUICreate("Folder Creation", 354, 217, 372, 323)
$1 = GUICtrlCreateInput("", 60, 104, 221, 21)
$Label1 = GUICtrlCreateLabel("Type your name in the input", 56, 44, 249, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Create folder", 50, 144, 113, 37, 0)
$Button2 = GUICtrlCreateButton("Enter", 176, 144, 113, 37, 0)
GUISetState(@SW_SHOW)

While 1
    SWITCH GUIGetMsg()
        CASE -3
            EXIT
        CASE $Button1
            DirCreate(@SCRIPTDIR &"\"& GUICtrlRead($1))
        CASE $Button2
            run("dnd1.au3")
    ENDSWITCH
WEnd

Edited February 6, 2009 by Mobius

[Wollf]

i have tried to crete a folder named hi at the scriptdir and used the if for pic1 and created a folder inside folder hi. it was ok , do u have any idea how can i create a folder maths in the folder that i just created with name from input?

if $msg = $pic1 then

SoundPlay("Sounds/Maths.mp3")

DirCreate(@SCRIPTDIR &"hi\maths")

EndIf

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>

$hGUI = GUICreate("Form1", 685, 629, -1, -1, -1, $WS_EX_ACCEPTFILES)
$Label1 = GUICtrlCreateLabel("Directories", 80, 24, 91, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatebutton("", 16, 68, 100, 100, BitOr($GUI_SS_DEFAULT_BUTTON, $BS_BITMAP))
GUICtrlSetImage($Pic1, "images/Maths.bmp")
$Pic2 = GUICtrlCreatebutton("", 124, 68, 100, 100, BitOr($GUI_SS_DEFAULT_BUTTON, $BS_BITMAP))
GUICtrlSetImage($Pic2, "images/Mthsd.bmp")
$Pic3 = GUICtrlCreatebutton("", 16, 176, 100, 100, BitOr($GUI_SS_DEFAULT_BUTTON, $BS_BITMAP))
GUICtrlSetImage($Pic3, "images/geom.bmp")
$Pic4 = GUICtrlCreatebutton("", 124, 176, 100, 100, BitOr($GUI_SS_DEFAULT_BUTTON, $BS_BITMAP))
GUICtrlSetImage($Pic4, "images/bio.bmp")
$Pic5 = GUICtrlCreatebutton("", 16, 284, 100, 100, BitOr($GUI_SS_DEFAULT_BUTTON, $BS_BITMAP))
GUICtrlSetImage($Pic5, "images/Ancient.bmp")
$Pic6 = GUICtrlCreatebutton("", 124, 284, 100, 100, BitOr($GUI_SS_DEFAULT_BUTTON, $BS_BITMAP))
GUICtrlSetImage($Pic6, "images/new.bmp")
$Pic7 = GUICtrlCreatebutton("", 16, 392, 100, 100, BitOr($GUI_SS_DEFAULT_BUTTON, $BS_BITMAP))
GUICtrlSetImage($Pic7, "images/geo.bmp")
$Pic8 = GUICtrlCreatebutton("", 124, 392, 100, 100, BitOr($GUI_SS_DEFAULT_BUTTON, $BS_BITMAP))
GUICtrlSetImage($Pic8, "images/Progerg.bmp")
$Pic9 = GUICtrlCreatebutton("", 16, 500, 100, 100, BitOr($GUI_SS_DEFAULT_BUTTON, $BS_BITMAP))
GUICtrlSetImage($Pic9, "images/prog.bmp")
$Pic10 = GUICtrlCreatebutton("", 124, 500, 100, 100, BitOr($GUI_SS_DEFAULT_BUTTON, $BS_BITMAP))
GUICtrlSetImage($Pic10, "images/Physic.bmp")

$1 = GUICtrlCreateButton("Send", 388, 452, 125, 45, 0)
$2 = GUICtrlCreateInput("Write your name here",370,70,155,25)
$Label2 = GUICtrlCreateLabel("Enter files in the box below", 365, 32, 417, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$cListBox = GUICtrlCreateList("", 350, 150, 200, 200)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)

$button4 = GUICtrlCreateButton("Crete name folder",530,70,150,25)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_DROPPED
            GUICtrlSetData($cListBox, @GUI_DRAGFILE & @CRLF, 1)
        EndSwitch
        If $msg = $1 then
            SoundPlay("Sounds/Connecting.mp3")
            Run(@GUI_DRAGFILE)
            EndIf
        if $msg = $pic1 then
            SoundPlay("Sounds/Maths.mp3")
            DirCreate(@SCRIPTDIR &"hi\maths")
            EndIf
            if $msg = $pic2 then
            SoundPlay("Sounds/Mathsd.mp3")
            EndIf
            if $msg = $pic3 then
            SoundPlay("Sounds/Geo.mp3")
            EndIf
            if $msg = $pic4 then
            SoundPlay("Sounds/bio.mp3")
            EndIf
            if $msg = $pic5 then
            SoundPlay("Sounds/Ancient.mp3")
            EndIf
            if $msg = $pic6 then
            SoundPlay("Sounds/Nea.mp3")
            EndIf
            if $msg = $pic7 then
            SoundPlay("Sounds/Geom.mp3")
            EndIf
            if $msg = $pic8 then
            SoundPlay("Sounds/Prergdiad.mp3")
            EndIf
            if $msg = $pic9 then
            SoundPlay("Sounds/Prog.mp3")
            EndIf
            if $msg = $pic10 then
            SoundPlay("Sounds/Physic.mp3")
        EndIf
        if $msg = $button4 Then
            DirCreate(@SCRIPTDIR &"\"& GUICtrlRead($2))
            EndIf
WEnd

[Wollf]

oh i found it its like that

expandcollapse popup

if $msg = $pic4 then
            SoundPlay("Sounds/bio.mp3")
            DirCreate(@SCRIPTDIR &"\"& GUICtrlRead($2) &"\Biology")
            EndIfoÝ÷ Ú(Z½ç+y«^vÊ&y»­¶ì¶­r·µæ§¢Ø^­Ø«yËh¯(§¶·¶òÊÞj×ÚâyÛajÑbã(½á 4@RÇ+]¶¦¦«¨·Ovªê-jjFP­®T^iÝ7ëh­Þ±ø¥z)ì×¢W^®'+y«^u»­bÈzØ^~]z¸­æ­yÜ"¶azW¬²ÛºÛh+kçm+W¢÷PÑaH,K®*mv*Ú®¢Ý=Ú«¨µ©©B¶¹Qy§tß­®¢Ý=Ú«¨¶¢rÚå­æÓ~©Í[ºØ­±¬¬zºè®)ÞÆ޲ȫmë®*mv*é§ÂÊ!£'!jx¶­è¶¹ky§tߪbsX¦y©â~Ê&zÞ¦·¬±ë)Í_W°Yf¢÷­¢f­Çb­ç-¢¼¢~Ê&zÞ¦·¬±ë)Í¢³¥
-¡Ø«yËb¢y¶·¶ò²§yç`º'-®ZÞiÝ7êní»öí¡ÈZ°éì¢g¨êkz˲azºbr«z+ºY¡×ºÚ"µÍÚ[ÛYH ÑÝZPÛÛÝ[Ñ^]LÉÝÂÚ[ÛYH ÕÚ[ÝÜÐÛÛÝ[Ë]LÉÝÂÚ[ÛYH Ð]ÛÛÛÝ[Ë]LÉÝÂÌÍÚÕRHHÕRPÜX]J  ][ÝÑÜLI][ÝË

K
KLKLKLK ÌÍÕÔ×ÑVÐPÐÑTSTÊBÌÍÓX[HHÕRPÝÜX]SX[
    ][ÝÑXÝÜYÉ][ÝËLK
BÕRPÝÙ]Û
LKL ][ÝÓTÈØ[ÈÙY][ÝÊBÌÍÔXÌHHÕRPÝÜX]X]Û   ][ÝÉ][ÝËM
LL]Ü   ÌÍÑÕRWÔÔ×ÑQUSÐUÓ  ÌÍÐ×ÐUPT
JBÕRPÝÙ][XYÙJ   ÌÍÔXÌK  ][ÝÚ[XYÙËÓX]Ë ][ÝÊBÌÍÔXÌHÕRPÝÜX]X]Û ][ÝÉ][ÝËL
LL]Ü   ÌÍÑÕRWÔÔ×ÑQUSÐUÓ  ÌÍÐ×ÐUPT
JBÕRPÝÙ][XYÙJ   ÌÍÔXÌ   ][ÝÚ[XYÙËÓ]Ù  ][ÝÊBÌÍÔXÌÈHÕRPÝÜX]X]Û   ][ÝÉ][ÝËMMÍLL]Ü   ÌÍÑÕRWÔÔ×ÑQUSÐUÓ  ÌÍÐ×ÐUPT
JBÕRPÝÙ][XYÙJ   ÌÍÔXÌË ][ÝÚ[XYÙËÙÙ[ÛK   ][ÝÊBÌÍÔXÍHÕRPÝÜX]X]Û ][ÝÉ][ÝËLMÍLL]Ü   ÌÍÑÕRWÔÔ×ÑQUSÐUÓ  ÌÍÐ×ÐUPT
JBÕRPÝÙ][XYÙJ   ÌÍÔXÍ   ][ÝÚ[XYÙËØ[Ë  ][ÝÊBÌÍÔXÍHHÕRPÝÜX]X]Û    ][ÝÉ][ÝËM
LL]Ü   ÌÍÑÕRWÔÔ×ÑQUSÐUÓ  ÌÍÐ×ÐUPT
JBÕRPÝÙ][XYÙJ   ÌÍÔXÍK  ][ÝÚ[XYÙËÐ[ÚY[    ][ÝÊBÌÍÔXÍHÕRPÝÜX]X]Û ][ÝÉ][ÝËL
LL]Ü   ÌÍÑÕRWÔÔ×ÑQUSÐUÓ  ÌÍÐ×ÐUPT
JBÕRPÝÙ][XYÙJ   ÌÍÔXÍ   ][ÝÚ[XYÙËÛ]Ë  ][ÝÊBÌÍÔXÍÈHÕRPÝÜX]X]Û   ][ÝÉ][ÝËMÎLLL]Ü   ÌÍÑÕRWÔÔ×ÑQUSÐUÓ  ÌÍÐ×ÐUPT
JBÕRPÝÙ][XYÙJ   ÌÍÔXÍË ][ÝÚ[XYÙËÙÙ[Ë    ][ÝÊBÌÍÔXÎHÕRPÝÜX]X]Û ][ÝÉ][ÝËLÎLLL]Ü   ÌÍÑÕRWÔÔ×ÑQUSÐUÓ  ÌÍÐ×ÐUPT
JBÕRPÝÙ][XYÙJ   ÌÍÔXÎ   ][ÝÚ[XYÙËÔÙÙË   ][ÝÊBÌÍÔXÎHHÕRPÝÜX]X]Û    ][ÝÉ][ÝËM
LLL]Ü  ÌÍÑÕRWÔÔ×ÑQUSÐUÓ  ÌÍÐ×ÐUPT
JBÕRPÝÙ][XYÙJ   ÌÍÔXÎK  ][ÝÚ[XYÙËÜÙË ][ÝÊBÌÍÔXÌLHÕRPÝÜX]X]Û    ][ÝÉ][ÝËL
LLL]Ü  ÌÍÑÕRWÔÔ×ÑQUSÐUÓ  ÌÍÐ×ÐUPT
JBÕRPÝÙ][XYÙJ   ÌÍÔXÌL  ][ÝÚ[XYÙËÔÚXË    ][ÝÊBÌÍÌHHÕRPÝÜX]P]Û   ][ÝÔÙ[   ][ÝËÎ

LLK

K
BÌÍÌHÕRPÝÜX]R[]
    ][ÝÕÜ]H[Ý[YHI][ÝËÍÌ
ÌMMKJBÌÍÓX[HÕRPÝÜX]SX[
    ][ÝÑ[[È[HÞ[ÝÉ][ÝËÍKÌ
MË
BÕRPÝÙ]Û
LKL ][ÝÓTÈØ[ÈÙY][ÝÊBÌÍØÓÝÞHÕRPÝÜX]SÝ
    ][ÝÉ][ÝËÍLML
BÕRPÝÙ]Ý]JLK    ÌÍÑÕRWÑÔPÐÑTQ
BÌÍØ]ÛHÕRPÝÜX]P]Û   ][ÝÐÜ]H[YHÛ][ÝË
LÌ
ÌMLJBÕRTÙ]Ý]J
BÚ[HBIÌÍÛÙÈHÕRQÙ]ÙÊ
BTÝÚ]Ú   ÌÍÛÙÂBPØÙH   ÌÍÑÕRWÑUSÐÓÔÑBBBQ^]BPØÙH ÌÍÑÕRWÑUSÑÔQBBQÕRPÝÙ]]J   ÌÍØÓÝÞÕRWÑQÑSH [ÈÔJBBQ[ÝÚ]ÚBRY    ÌÍÛÙÈH ÌÍÌH[BBTÛÝ[^J  ][ÝÔÛÝ[ËÐÛÛXÝ[ËÉ][ÝÊBBBQ[S[ÝJÕRWÑQÑSHØÜ  [È ][ÝÉÌLÉ][ÝÈ   [ÈÕRPÝXY
    ÌÍÌJBBBQ[YBZY    ÌÍÛÙÈH ÌÍÜXÌH[BBTÛÝ[^J   ][ÝÔÛÝ[ËÓX]ËÉ][ÝÊBBBQÜX]JÐÔTT  [É][ÝÉÌLÉ][ÝÉ[ÈÕRPÝXY
    ÌÍÌH [É][ÝÉÌLÛX]É][ÝÊBBBQ[YBBZY  ÌÍÛÙÈH ÌÍÜXÌ[BBTÛÝ[^J    ][ÝÔÛÝ[ËÓX]ÙÉ][ÝÊBBBQÜX]JÐÔTT  [É][ÝÉÌLÉ][ÝÉ[ÈÕRPÝXY
    ÌÍÌH [É][ÝÉÌLÑXÝ[ÛX]É][ÝÊBBBQ[YBBZY    ÌÍÛÙÈH ÌÍÜXÌÈ[BBTÛÝ[^J  ][ÝÔÛÝ[ËÑÙ[ËÉ][ÝÊBBBQÜX]JÐÔTT [É][ÝÉÌLÉ][ÝÉ[ÈÕRPÝXY
    ÌÍÌH [É][ÝÉÌLÙÙ[ÙÜI][ÝÊBBBQ[YBBZY  ÌÍÛÙÈH ÌÍÜXÍ[BBTÛÝ[^J    ][ÝÔÛÝ[ËØ[ËÉ][ÝÊBBBQÜX]JÐÔTT   [É][ÝÉÌLÉ][ÝÉ[ÈÕRPÝXY
    ÌÍÌH [É][ÝÉÌLÐ[ÛÙÞI][ÝÊBBBQ[YBBZY  ÌÍÛÙÈH ÌÍÜXÍH[BBTÛÝ[^J   ][ÝÔÛÝ[ËÐ[ÚY[É][ÝÊBBBQÜX]JÐÔTT [É][ÝÉÌLÉ][ÝÉ[ÈÕRPÝXY
    ÌÍÌH [É][ÝÉÌLÐ[ÚY[ÜYZÉ][ÝÊBBBQ[YBBZY   ÌÍÛÙÈH ÌÍÜXÍ[BBTÛÝ[^J    ][ÝÔÛÝ[ËÓXKÉ][ÝÊBBBQÜX]JÐÔTT    [É][ÝÉÌLÉ][ÝÉ[ÈÕRPÝXY
    ÌÍÌH [É][ÝÉÌLÓ]ÈÜYZÉ][ÝÊBBBQ[YBBZY ÌÍÛÙÈH ÌÍÜXÍÈ[BBTÛÝ[^J  ][ÝÔÛÝ[ËÑÙ[ÛKÉ][ÝÊBBBQÜX]JÐÔTT    [É][ÝÉÌLÉ][ÝÉ[ÈÕRPÝXY
    ÌÍÌH [É][ÝÉÌLÑÙ[ÛY]I][ÝÊBBBQ[YBBZY  ÌÍÛÙÈH ÌÍÜXÎ[BBTÛÝ[^J    ][ÝÔÛÝ[ËÔÙXYÉ][ÝÊBBBQÜX]JÐÔTT  [É][ÝÉÌLÉ][ÝÉ[ÈÕRPÝXY
    ÌÍÌH [É][ÝÉÌLÔÜÜ[[Z[ÈÛÛÉ][ÝÊBBBQ[YBBZY  ÌÍÛÙÈH ÌÍÜXÎH[BBTÛÝ[^J   ][ÝÔÛÝ[ËÔÙËÉ][ÝÊBBBQÜX]JÐÔTT  [É][ÝÉÌLÉ][ÝÉ[ÈÕRPÝXY
    ÌÍÌH [É][ÝÉÌLÜÜÜ[[Z[É][ÝÊBBBQ[YBBZY    ÌÍÛÙÈH ÌÍÜXÌL[BBTÛÝ[^J   ][ÝÔÛÝ[ËÔÚXËÉ][ÝÊBBBQÜX]JÐÔTT [É][ÝÉÌLÉ][ÝÉ[ÈÕRPÝXY
    ÌÍÌH [É][ÝÉÌLÜÚXÉ][ÝÊBBQ[YBZY   ÌÍÛÙÈH ÌÍØ]Û[BBQÜX]JÐÔTT    [É][ÝÉÌLÉ][ÝÉ[ÈÕRPÝXY
    ÌÍÌJBBBQ[YÑ[

Edited February 7, 2009 by Wollf