add and save files by opening FileOpenDialog

angel83 · May 25, 2024

I'll tell you what I want to do in case you can help me.

The browse button searches for the .exe and .bat file. When I select the file, it saves the file name as text in:

$FILE1 = GUICtrlCreateEntry

What I'm looking to do is make the same browse button work on the others.

$FILE2 = GUICtrlCreateEntry

$FILE3 = GUICtrlCreateEntry

But, it saves the name of the .exe or .bat file differently when selecting another file. IN EACH ONE. GUICtrlCreateInput with the same browse button
FileOpenDialog

-------------------------------------------------- ----------------------------

THANK YOU I HOPE YOU UNDERSTAND WHAT I WANT TO DO.

This is my code:

#include <WindowsConstants.au3>
#include <GUIConstants.au3>

;#######################################################################

Global Const $COR_RED = 0xFF0000
Global Const $COR_WHITE = 0xFFFFFF
Global Const $COR_BLACK = 0x000000

;#######################################################################

$brgui=GUICreate("CONTROL", 1000,800, -1, -1,$WS_POPUP )
GUISetBkColor(0xffffff, $brgui)

;#######################################################################

$FILE1 = IniRead("settings.ini", "files", "C1", "")
$FILE2 = IniRead("settings.ini", "files", "C2", "")
$FILE3 = IniRead("settings.ini", "files", "C3", "")

;#######################################################################

$widthCell=300

$font="Arial"
GUISetFont (12, 500, -1, $font)

;#######################################################################

GUICtrlCreateLabel ("c1:", 5,76, 20, 20, $widthCell)
GUICtrlSetBkColor(-1, $COR_BLACK)
GUICtrlSetColor(-1, $COR_WHITE)

GUICtrlCreateLabel ("c2:", 5, 146, 20, 20, $widthCell)
GUICtrlSetBkColor(-1, $COR_BLACK)
GUICtrlSetColor(-1, $COR_WHITE)

GUICtrlCreateLabel ("c3:", 5, 216, 20, 20, $widthCell)
GUICtrlSetBkColor(-1, $COR_BLACK)
GUICtrlSetColor(-1, $COR_WHITE)

;############################################################################

$c1 = GUICtrlCreateInput("", 56, 76, 498, 21)
GUICtrlSetData($c1,$FILE1 )
GUICtrlSetData($c1,"",String($FILE1))
GUICtrlSetLimit(-1, 100)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)

$c2 = GUICtrlCreateInput("", 56, 146, 498, 21 )
GUICtrlSetData($c2,$FILE2 )
GUICtrlSetData($c2,"",String($FILE2))
GUICtrlSetLimit(-1, 100)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)

$c3 = GUICtrlCreateInput("", 56, 216, 498, 21 )
GUICtrlSetData($c3,$FILE3)
GUICtrlSetData($c3,"",String($FILE3))
GUICtrlSetLimit(-1, 100)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)

;###############################################################################

$Browse_1 = GUICtrlCreateButton("Search", 568, 76, 75, 25)
GUICtrlSetColor(-1, 0x000000)

;###############################################################################

$delete = GUICtrlCreateButton("Delete all", 868, 56, 90, 25)
GUICtrlSetColor(-1, 0x000000)

$btn3 = GUICtrlCreateButton ("Save",70, 750, 100, 20 )

$btn4 = GUICtrlCreateButton ("Exit", 230, 750, 80, 20 )

;################################################################################

GUISetState ()

;rotina de looping
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select

Case $msg =$delete

morrar()
GUICtrlSetData($c1, "")
GUICtrlSetData($c2, "")
GUICtrlSetData($c3, "")

Case $msg =$Browse_1

$FILE1 = FileOpenDialog(@SCRIPTNAME,@WORKINGDIR,"(*.exe;*.bat)")
IF @ERROR THEN EXIT
$FILE1 = StringMid($FILE1,StringInStr($FILE1,"\",2,-1) +1)
GUICtrlSetData($c1,$FILE1)
IniWrite(@ScriptDir & "\settings.ini", "files", "C1", $FILE1)

Case $msg = $btn3
Call("writeini")

Case $msg = $btn4
           GUISetState (@SW_HIDE)
           exit
   EndSelect

Wend

Exit(0)
;===============>fim

;################################################################################

Func morrar()
IniWrite(@ScriptDir & "\settings.ini", "files", "C1", "")
IniWrite(@ScriptDir & "\settings.ini", "files", "C2", "")
IniWrite(@ScriptDir & "\settings.ini", "files", "C3", "")

EndFunc

;################################################################################

Func writeini()

GUICreate("",150,60, -1, -1,$WS_POPUP)
GUICtrlCreateLabel("wait ....", 5, -4, 200, 500)
GUICtrlSetBkColor(-1, $COR_BLACK )
GUICtrlSetColor(-1, $COR_WHITE)
GUICtrlSetFont(-1, 38, 300, -1, $font)
GUISetState (@SW_SHOW)

Sleep(2000)
GUIDelete()

GUICreate("",205,60, -1, -1, $WS_POPUP)
GUICtrlCreateLabel("**SAVE**", 5, -4, 200, 500)
GUICtrlSetBkColor(-1, $COR_RED)
GUICtrlSetColor(-1, $COR_WHITE)
GUICtrlSetFont(-1, 36, 300, -1, $font)
GUISetState (@SW_SHOW)

Sleep(1500)
GUIDelete()

EndFunc

ioa747 · May 25, 2024

#include <WindowsConstants.au3>
#include <GUIConstants.au3>

Global Const $COR_RED = 0xFF0000
Global Const $COR_WHITE = 0xFFFFFF
Global Const $COR_BLACK = 0x000000

$brgui = GUICreate("CONTROL", 1000, 800, -1, -1, $WS_POPUP)
GUISetBkColor(0xffffff, $brgui)

$FILE1 = IniRead("settings.ini", "files", "C1", "")
$FILE2 = IniRead("settings.ini", "files", "C2", "")
$FILE3 = IniRead("settings.ini", "files", "C3", "")

$widthCell = 300

$font = "Arial"
GUISetFont(12, 500, -1, $font)

GUICtrlCreateLabel("c1:", 5, 76, 20, 20, $widthCell)
GUICtrlSetBkColor(-1, $COR_BLACK)
GUICtrlSetColor(-1, $COR_WHITE)

GUICtrlCreateLabel("c2:", 5, 146, 20, 20, $widthCell)
GUICtrlSetBkColor(-1, $COR_BLACK)
GUICtrlSetColor(-1, $COR_WHITE)

GUICtrlCreateLabel("c3:", 5, 216, 20, 20, $widthCell)
GUICtrlSetBkColor(-1, $COR_BLACK)
GUICtrlSetColor(-1, $COR_WHITE)

$c1 = GUICtrlCreateInput("", 56, 76, 498, 21)
GUICtrlSetData($c1, StringMid($FILE1, StringInStr($FILE1, "\", 2, -1) + 1))
;~ GUICtrlSetData($c1, "", String($FILE1))
GUICtrlSetLimit(-1, 100)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)

$c2 = GUICtrlCreateInput("", 56, 146, 498, 21)
GUICtrlSetData($c2, StringMid($FILE2, StringInStr($FILE2, "\", 2, -1) + 1))
;~ GUICtrlSetData($c2, "", String($FILE2))
GUICtrlSetLimit(-1, 100)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)

$c3 = GUICtrlCreateInput("", 56, 216, 498, 21)
GUICtrlSetData($c3, StringMid($FILE3, StringInStr($FILE3, "\", 2, -1) + 1))
;~ GUICtrlSetData($c3, "", String($FILE3))
GUICtrlSetLimit(-1, 100)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)

$Browse_1 = GUICtrlCreateButton("Search", 568, 76, 75, 25)
GUICtrlSetColor(-1, 0x000000)

$Browse_2 = GUICtrlCreateButton("Search", 568, 146, 75, 25)
GUICtrlSetColor(-1, 0x000000)

$Browse_3 = GUICtrlCreateButton("Search", 568, 216, 75, 25)
GUICtrlSetColor(-1, 0x000000)

$delete = GUICtrlCreateButton("Delete all", 868, 56, 90, 25)
GUICtrlSetColor(-1, 0x000000)

;~ $btn3 = GUICtrlCreateButton("Save", 70, 750, 100, 20)
$btn4 = GUICtrlCreateButton("Exit", 230, 750, 80, 20)

GUISetState()

;rotina de looping
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
    $msg = GUIGetMsg()
    Select
        Case $msg = $delete
            morrar()
            GUICtrlSetData($c1, "")
            GUICtrlSetData($c2, "")
            GUICtrlSetData($c3, "")

        Case $msg = $Browse_1
            $FILE1 = FileOpenDialog(@ScriptName, @WorkingDir, "(*.exe;*.bat)")
            If @error Then Exit
            IniWrite(@ScriptDir & "\settings.ini", "files", "C1", $FILE1)
            $FILE1 = StringMid($FILE1, StringInStr($FILE1, "\", 2, -1) + 1)
            GUICtrlSetData($c1, $FILE1)

        Case $msg = $Browse_2
            $FILE2 = FileOpenDialog(@ScriptName, @WorkingDir, "(*.exe;*.bat)")
            If @error Then Exit
            IniWrite(@ScriptDir & "\settings.ini", "files", "C2", $FILE2)
            $FILE2 = StringMid($FILE2, StringInStr($FILE2, "\", 2, -1) + 1)
            GUICtrlSetData($c2, $FILE2)

        Case $msg = $Browse_3
            $FILE3 = FileOpenDialog(@ScriptName, @WorkingDir, "(*.exe;*.bat)")
            If @error Then Exit
            IniWrite(@ScriptDir & "\settings.ini", "files", "C3", $FILE3)
            $FILE3 = StringMid($FILE3, StringInStr($FILE3, "\", 2, -1) + 1)
            GUICtrlSetData($c3, $FILE3)

;~      Case $msg = $btn3
;~          Call("writeini")

        Case $msg = $btn4
            GUISetState(@SW_HIDE)
            Exit
    EndSelect

WEnd

Exit (0)
;--------------------------------------------------------------------------------------------------------------------------------
Func morrar()
    IniWrite(@ScriptDir & "\settings.ini", "files", "C1", "")
    IniWrite(@ScriptDir & "\settings.ini", "files", "C2", "")
    IniWrite(@ScriptDir & "\settings.ini", "files", "C3", "")


EndFunc   ;==>morrar
;--------------------------------------------------------------------------------------------------------------------------------
;~ Func writeini()
;~  GUICreate("", 150, 60, -1, -1, $WS_POPUP)
;~  GUICtrlCreateLabel("wait ....", 5, -4, 200, 500)
;~  GUICtrlSetBkColor(-1, $COR_BLACK)
;~  GUICtrlSetColor(-1, $COR_WHITE)
;~  GUICtrlSetFont(-1, 38, 300, -1, $font)
;~  GUISetState(@SW_SHOW)

;~  Sleep(2000)
;~  GUIDelete()

;~  GUICreate("", 205, 60, -1, -1, $WS_POPUP)
;~  GUICtrlCreateLabel("**SAVE**", 5, -4, 200, 500)
;~  GUICtrlSetBkColor(-1, $COR_RED)
;~  GUICtrlSetColor(-1, $COR_WHITE)
;~  GUICtrlSetFont(-1, 36, 300, -1, $font)
;~  GUISetState(@SW_SHOW)

;~  Sleep(1500)
;~  GUIDelete()

;~ EndFunc   ;==>writeini

how-to-post-code-on-the-forum

angel83 · May 25, 2024

gracias ioa747 por responder. Lo que estoy tratando de hacer es que solo funcione un botón.
$Browse_1 = GUICtrlCreateButton("Buscar", 568, 76, 75, 25).
pero para los tres GUICtrlCreateInput

angel83 · May 25, 2024

And thanks for telling me how to post the code, I'm new

angel83 · May 25, 2024

#include <WindowsConstants.au3>
#include <GUIConstants.au3>


;#######################################################################



   Global Const $COR_RED      = 0xFF0000
   Global Const $COR_WHITE        = 0xFFFFFF
   Global Const $COR_BLACK            = 0x000000



;#######################################################################



$brgui=GUICreate("CONTROL", 1000,800, -1, -1,$WS_POPUP )
GUISetBkColor(0xffffff, $brgui)



;#######################################################################



$FILE1   = IniRead("settings.ini", "files", "C1",      "")
$FILE2   = IniRead("settings.ini", "files", "C2",      "")
$FILE3   = IniRead("settings.ini", "files", "C3",      "")


;#######################################################################

$widthCell=300

$font="Arial"
GUISetFont (12, 500, -1, $font)

;#######################################################################

GUICtrlCreateLabel ("c1:", 5,76, 20, 20, $widthCell)
GUICtrlSetBkColor(-1, $COR_BLACK)
GUICtrlSetColor(-1, $COR_WHITE)


GUICtrlCreateLabel ("c2:", 5, 146, 20, 20, $widthCell)
GUICtrlSetBkColor(-1, $COR_BLACK)
GUICtrlSetColor(-1, $COR_WHITE)


GUICtrlCreateLabel ("c3:", 5, 216, 20, 20, $widthCell)
GUICtrlSetBkColor(-1, $COR_BLACK)
GUICtrlSetColor(-1, $COR_WHITE)



;############################################################################



$c1 = GUICtrlCreateInput("", 56, 76, 498, 21)
GUICtrlSetData($c1,$FILE1 )
GUICtrlSetData($c1,"",String($FILE1))
GUICtrlSetLimit(-1, 100)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)



$c2 = GUICtrlCreateInput("", 56, 146, 498, 21 )
GUICtrlSetData($c2,$FILE2 )
GUICtrlSetData($c2,"",String($FILE2))
GUICtrlSetLimit(-1, 100)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)


$c3 = GUICtrlCreateInput("", 56, 216, 498, 21 )
GUICtrlSetData($c3,$FILE3)
GUICtrlSetData($c3,"",String($FILE3))
GUICtrlSetLimit(-1, 100)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)



;###############################################################################


$Browse_1 = GUICtrlCreateButton("Search", 568, 76, 75, 25)
GUICtrlSetColor(-1, 0x000000)

;###############################################################################


$delete = GUICtrlCreateButton("Delete all", 868, 56, 90, 25)
GUICtrlSetColor(-1, 0x000000)


$btn3 = GUICtrlCreateButton ("Save",70, 750, 100, 20 )


$btn4 = GUICtrlCreateButton ("Exit", 230, 750, 80, 20 )


;################################################################################


GUISetState ()

;rotina de looping
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
    $msg = GUIGetMsg()
    Select


        Case $msg =$delete

            morrar()
            GUICtrlSetData($c1, "")
            GUICtrlSetData($c2, "")
            GUICtrlSetData($c3, "")



         Case $msg =$Browse_1

$FILE1 = FileOpenDialog(@SCRIPTNAME,@WORKINGDIR,"(*.exe;*.bat)")
IF @ERROR THEN EXIT
$FILE1 = StringMid($FILE1,StringInStr($FILE1,"\",2,-1) +1)
GUICtrlSetData($c1,$FILE1)
IniWrite(@ScriptDir & "\settings.ini", "files", "C1", $FILE1)





        Case $msg = $btn3
            Call("writeini")


        Case $msg = $btn4
            GUISetState (@SW_HIDE)
            exit
    EndSelect

Wend

Exit(0)
;===============>fim



;################################################################################

Func morrar()
IniWrite(@ScriptDir & "\settings.ini", "files", "C1", "")
IniWrite(@ScriptDir & "\settings.ini", "files", "C2", "")
IniWrite(@ScriptDir & "\settings.ini", "files", "C3", "")


EndFunc

;################################################################################

Func writeini()



GUICreate("",150,60, -1, -1,$WS_POPUP)
GUICtrlCreateLabel("wait ....", 5, -4, 200, 500)
GUICtrlSetBkColor(-1, $COR_BLACK  )
GUICtrlSetColor(-1, $COR_WHITE)
GUICtrlSetFont(-1, 38, 300, -1, $font)
GUISetState (@SW_SHOW)


Sleep(2000)
GUIDelete()


GUICreate("",205,60, -1, -1, $WS_POPUP)
GUICtrlCreateLabel("**SAVE**", 5, -4, 200, 500)
GUICtrlSetBkColor(-1, $COR_RED)
GUICtrlSetColor(-1, $COR_WHITE)
GUICtrlSetFont(-1, 36, 300, -1, $font)
GUISetState (@SW_SHOW)


Sleep(1500)
GUIDelete()



EndFunc

Sign In

add and save files by opening FileOpenDialog

Recommended Posts

angel83

ioa747

angel83

angel83

angel83

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta