Create directory from the Inputbox

[Silvinho]

I need do the following When the user execute autoit is going to an inputbox appear with the following question:

"type the month", after the user type February is going to be created the following directory: c :\Fevereiro, then, it, is going to, appear, other, , msg, , asking, :

" type the week?", the user types: "week 07" it will be created the following dir: c:\Fevereiro\Semana 07

[rasim]

I need do the following When the user execute autoit is going to an inputbox appear with the following question:

"type the month", after the user type February is going to be created the following directory: c :\Fevereiro, then, it, is going to, appear, other, , msg, , asking, :

" type the week?", the user types: "week 07" it will be created the following dir: c:\Fevereiro\Semana 07

Try this:

expandcollapse popup

#include <Date.au3>

Dim $CurMon

Switch @MON
Case 01
    $CurMon = "January"
Case 02
    $CurMon = "February"
Case 03
    $CurMon = "March"
Case 04
    $CurMon = "April"
Case 05
    $CurMon = "May"
Case 06
    $CurMon = "June"
Case 07
    $CurMon = "July"
Case 08
    $CurMon = "August"
Case 09
    $CurMon = "September"
Case 10
    $CurMon = "October"
Case 11
    $CurMon = "November"
Case 12
    $CurMon = "December"
EndSwitch

Do
    $GetMonth = InputBox("Message", "Please type the month", $CurMon)
Until $GetMonth = $CurMon

DirCreate("c:\" & $GetMonth)

Do
    $GetWeek = InputBox("Message", "Please type the week", _WeekNumberISO())
Until $GetWeek = _WeekNumberISO()

DirCreate("c:\" & $GetMonth &"\"& $GetWeek)

[smashly]

Hi,

expandcollapse popup

#include <GUIConstants.au3>

Global $EnMonth = "January|Febuary|March|April|May|June|July|August|September|October|November|December"
Global $BrMonth = "Janeiro|Fevereiro|Março|Abril|Maio|Junho|Julho|Agost|Setembro|Outubro|Novembro|Dezembro"
Global $mDir, $wDir

$Gui = GUICreate("Select Month & Week", 355, 30)
$Drive = GUICtrlCreateLabel(@HomeDrive & "\", 5, 10, 20, 15) 
$Month = GUICtrlCreateCombo("Select Month", 30, 5, 100, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, $EnMonth, "Select Month")
$Week = GUICtrlCreateCombo("", 150, 5, 100, 20, BitOR($WS_VSCROLL, $CBS_DROPDOWNLIST))
GUICtrlSetData(-1, _Week(), "Select Week")
GUICtrlCreateLabel("\", 135, 10, 10, 15)
$Create = GUICtrlCreateButton("Create Directory", 255, 5, 95, 20)
GUISetState(@SW_SHOW, $Gui)

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Month
            If GUICtrlRead($Month) <> "Select Month" Then
                Local $EM = StringSplit($EnMonth, "|"), $MM = StringSplit($BrMonth, "|")
                For $i = 1 To $EM[0]
                    If GUICtrlRead($Month) = $EM[$i] Then $mDir = $MM[$i]
                Next
            Else
                $mDir = ""
            EndIf   
        Case $Week
            If GUICtrlRead($Week) <> "Select Week" Then 
                $wDir = StringReplace(GUICtrlRead($Week), "Week", "Semana", 1)
            Else
                $wDir = ""
            EndIf   
        Case $Create
            If $mDir <> "" And $wDir <> "" And DirCreate(@HomeDrive & "\" & $mDir & "\" & $wDir) Then 
                ShellExecute("explorer.exe", "/e," & @HomeDrive & "\" & $mDir & "\" & $wDir)
            EndIf    
    EndSwitch
WEnd

Func _Week()
    Local $iWeek = "Select Week" & "|"
    For $i = 1 To 52
        $iWeek &= "Week " & StringFormat("%02i", $i) & "|"
    Next    
    Return StrinGTrimRight($iWeek, 1)
EndFunc

Cheers

[smashly]

Hi, your welcome.

I know this isn't exactly what you asked, but since your providing no code to work with then try this.

expandcollapse popup

#include <GUIConstants.au3>

Global $EnMonth = "January|Febuary|March|April|May|June|July|August|September|October|November|December"
Global $BrMonth = "Janeiro|Fevereiro|Março|Abril|Maio|Junho|Julho|Agost|Setembro|Outubro|Novembro|Dezembro"
Global $mDir, $wDir, $psDir = "PS", $aDir = "\Artefato Inspected\", $pcDir = "PCC" 

$Gui = GUICreate("Select Month & Week & MIG# & PS & PCC", 665, 30)
$Drive = GUICtrlCreateLabel(@HomeDrive & "\", 5, 10, 20, 15)
$Month = GUICtrlCreateCombo("Select Month", 30, 5, 100, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, $EnMonth, "Select Month")

GUICtrlCreateLabel("\", 135, 10, 10, 15)
$Week = GUICtrlCreateCombo("", 150, 5, 100, 20, BitOR($WS_VSCROLL, $CBS_DROPDOWNLIST))
GUICtrlSetData(-1, _Week(), "Select Week")

GUICtrlCreateLabel("\MIG", 255, 10, 25, 15)
$Mig = GUICtrlCreateInput(41328, 285, 5, 45, 20, $ES_NUMBER)

GUICtrlCreateLabel("\", 335, 10, 15, 15)
$Ps = GUICtrlCreateCombo($psDir, 350, 5, 45, 20, BitOR($WS_VSCROLL, $CBS_DROPDOWNLIST))

GUICtrlCreateLabel($aDir, 400, 10, 100, 15)
$PCC = GUICtrlCreateCombo("", 505, 5, 50, 20, BitOR($WS_VSCROLL, $CBS_DROPDOWNLIST))
GUICtrlSetData(-1, "PCC|IPU|ECP|PST|PC|PSF|INV|EES", "PCC")

$Create = GUICtrlCreateButton("Create Directory", 565, 5, 95, 20)
GUISetState(@SW_SHOW, $Gui)

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Month
            If GUICtrlRead($Month) <> "Select Month" Then
                Local $EM = StringSplit($EnMonth, "|"), $MM = StringSplit($BrMonth, "|")
                For $i = 1 To $EM[0]
                    If GUICtrlRead($Month) = $EM[$i] Then $mDir = $MM[$i]
                Next
            Else
                $mDir = ""
            EndIf   
        Case $Week
            If GUICtrlRead($Week) <> "Select Week" Then
                $wDir = StringReplace(GUICtrlRead($Week), "Week", "Semana", 1)
            Else
                $wDir = ""
            EndIf
        Case $Ps
            If GUICtrlRead($Ps) <> $psDir Then $psDir = GUICtrlRead($Ps)
        Case $PCC
            If GUICtrlRead($PCC) <> $pcDir Then $pcDir = GUICtrlRead($PCC)
        Case $Create
            GUICtrlRead($Mig)
            If $mDir <> "" And $wDir <> "" And GUICtrlRead($Mig) <> "" And DirCreate(@HomeDrive & _
                                                                                    "\" & $mDir & "\" & _
                                                                                    $wDir & "\MIG " & _
                                                                                    GUICtrlRead($Mig) & _
                                                                                    "\" & $psDir & _
                                                                                    $aDir & $pcDir) Then
                ShellExecute("explorer.exe", "/e," & @HomeDrive & "\" & $mDir & "\" & $wDir & "\MIG " & _
                                                                    GUICtrlRead($Mig) & "\" & $psDir & _
                                                                    "\Artefato Inspected\" & $pcDir)
            EndIf   
    EndSwitch
WEnd

Func _Week()
    Local $iWeek = "Select Week" & "|"
    For $i = 1 To 52
        $iWeek &= "Week " & StringFormat("%02i", $i) & "|"
    Next   
    Return StrinGTrimRight($iWeek, 1)
EndFunc

Cheers

Edited February 22, 2008 by smashly