butcha

Sorry to sound stupid, but could someone show me how it is done, I dont seem to fully understand this yet, (I'm trying tho!!) many thanks

Hi, I'm sure loads of progress bars have been done in the past but I seem to struggle understanding the code and getting it to actually work see below my code I have at the moment and I would like to attach a progress bar once copy files has been clicked o n the form, but not sure how to do it. I even look at copyhere method but the wont be good if files already exist (I have only the option to overwrite rather than check last modified date) hope this makes sense #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=H:\Autoit\Forms\epack.kxf $Form1 = GUICreate("E-Pack Copy for Citrix", 223, 295, 192, 133) GUISetIcon("H:\Misc\mblogo.ico") $Label1 = GUICtrlCreateLabel("Select the servers to", 8, 8, 146, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("copy the E-Pack files to:", 8, 25, 171, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Select All", 128, 80, 89, 25, $WS_GROUP) GUICtrlSetTip(-1, "Select all Citrix servers") $Button2 = GUICtrlCreateButton("Clear All", 128, 112, 89, 25, $WS_GROUP) GUICtrlSetTip(-1, "Clear all selected Citrix servers") $Button3 = GUICtrlCreateButton("Copy Files", 128, 176, 89, 65, $WS_GROUP) GUICtrlSetTip(-1, "Copy EPack files to the selected servers") $Button4 = GUICtrlCreateButton("Exit", 128, 144, 89, 25, $WS_GROUP) GUICtrlSetTip(-1, "Live Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "Live Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "Live Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "Live Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "DR Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "DR Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "User Acceptance Testing Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "Development Citrix Presentation Server") GUICtrlSetCursor (-1, 0) $Progress1 = GUICtrlCreateProgress(8, 256, 201, 25) $Button5 = GUICtrlCreateButton("Please Read", 128, 48, 89, 25, $WS_GROUP) $Label3 = GUICtrlCreateLabel("Copy Progress. . .", 8, 240, 87, 17) dim $checkbox[8] $checkbox[0] = GUICtrlCreateCheckbox("LonCtxPS1", 8, 48, 81, 17) $checkbox[1] = GUICtrlCreateCheckbox("LonCtxPS2", 8, 72, 81, 17) $checkbox[2] = GUICtrlCreateCheckbox("LonCtxPS3", 8, 96, 81, 17) $checkbox[3] = GUICtrlCreateCheckbox("LonCtxPS4", 8, 120, 81, 17) $checkbox[4] = GUICtrlCreateCheckbox("PetCtxPS1", 8, 144, 81, 17) $checkbox[5] = GUICtrlCreateCheckbox("PetCtxPS2", 8, 168, 81, 17) $checkbox[6] = GUICtrlCreateCheckbox("UATCtxPS1", 8, 192, 81, 17) $checkbox[7] = GUICtrlCreateCheckbox("DEVCtxPS1", 8, 216, 81, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $Button1 ;Check All For $n = 0 To UBound($checkbox) - 1 ;For $n = 0 To 7 Step 1 GUICtrlSetState ( $checkbox[$n] , $GUI_CHECKED ) Next case $nmsg = $Button2 ;Clear All For $n = 0 To UBound($checkbox) - 1 ;For $n = 0 To 7 Step 1 GUICtrlSetState ( $checkbox[$n] , $GUI_UNCHECKED ) Next case $nmsg = $Button3 ;Copy Files $fSelection = False For $n = 0 To UBound($checkbox) - 1 If BitAND(GUICtrlRead($checkbox[$n]), $GUI_CHECKED) Then $fSelection = True ExitLoop EndIf Next If $fSelection Then $answer = msgBox(36, 'Copy Files to Citrix servers', 'Are you sure you want to copy E-Packs files to the selected servers?') if $answer = 6 then $status1 = GUICtrlRead($checkbox[0]) $status2 = GUICtrlRead($checkbox[1]) $status3 = GUICtrlRead($checkbox[2]) $status4 = GUICtrlRead($checkbox[3]) $status5 = GUICtrlRead($checkbox[4]) $status6 = GUICtrlRead($checkbox[5]) $status7 = GUICtrlRead($checkbox[6]) $status8 = GUICtrlRead($checkbox[7]) If $status1 = 1 then call ("o1copy") If $status2 = 1 then call ("o2copy") If $status3 = 1 then call ("o3copy") If $status4 = 1 then call ("o4copy") If $status5 = 1 then call ("o5copy") If $status6 = 1 then call ("o6copy") endif if $answer = 7 Then EndIf Else MsgBox(48, 'No Items Selected', 'You have not selected any Citrix servers to copy E-Pack files to, Please select from the list') EndIf case $nmsg = $Button4 Exit case $nmsg = $Button5 MsgBox(64, 'Please Read. . .', '1. You need to be logged in with your admin account on the network.' & @CRLF & @CRLF & '2. Epack Files need to be located in'& @CRLF & ' \\ad.saffery.net\saffery\IT\Rollout\Software\CaseWare\Updates') EndSelect WEnd ;Functions for copying files Func o1copy() DirCopy("C:\Temp\test\1", "C:\Temp\end", 1) EndFunc Func o2copy() DirCopy("C:\Temp\test\2", "C:\Temp\end", 1) EndFunc Func o3copy() DirCopy("C:\Temp\test\3", "C:\Temp\end", 1) EndFunc Func o4copy() DirCopy("C:\Temp\test\4", "C:\Temp\end", 1) EndFunc Func o5copy() DirCopy("C:\Temp\test\5", "C:\Temp\end", 1) EndFunc Func o6copy() DirCopy("C:\Temp\test\6", "C:\Temp\end", 1) EndFunc many thanks in advance

Good news! Managed to change most of my script now to using variables after working out to declare variable ( for example "dim $checkbox[8]" ) and now working ok. still trying to understand the UBound command I didnt find a way to change this command to variable but not sure if I spent long enough looking does anyone no a better way to do it see code below If $fSelection Then $answer = msgBox(36, 'Copy Files to Citrix servers', 'Are you sure you want to copy E-Packs files to the selected servers?') if $answer = 6 then $status1 = GUICtrlRead($checkbox[0]) $status2 = GUICtrlRead($checkbox[1]) $status3 = GUICtrlRead($checkbox[2]) $status4 = GUICtrlRead($checkbox[3]) $status5 = GUICtrlRead($checkbox[4]) $status6 = GUICtrlRead($checkbox[5]) $status7 = GUICtrlRead($checkbox[6]) $status8 = GUICtrlRead($checkbox[7]) If $status1 = 1 then call ("o1copy") If $status2 = 1 then call ("o2copy") If $status3 = 1 then call ("o3copy") If $status4 = 1 then call ("o4copy") If $status5 = 1 then call ("o5copy") If $status6 = 1 then call ("o6copy") endif if $answer = 7 Then EndIf second thoughts i'll post the whole script might be easier to determine what I am trying to do! #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=H:\Autoit\Forms\epack.kxf $Form1 = GUICreate("E-Pack Copy for Citrix", 223, 295, 192, 133) GUISetIcon("H:\Misc\mblogo.ico") $Label1 = GUICtrlCreateLabel("Select the servers to", 8, 8, 146, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("copy the E-Pack files to:", 8, 25, 171, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Select All", 128, 80, 89, 25, $WS_GROUP) GUICtrlSetTip(-1, "Select all Citrix servers") $Button2 = GUICtrlCreateButton("Clear All", 128, 112, 89, 25, $WS_GROUP) GUICtrlSetTip(-1, "Clear all selected Citrix servers") $Button3 = GUICtrlCreateButton("Copy Files", 128, 176, 89, 65, $WS_GROUP) GUICtrlSetTip(-1, "Copy EPack files to the selected servers") $Button4 = GUICtrlCreateButton("Exit", 128, 144, 89, 25, $WS_GROUP) GUICtrlSetTip(-1, "Live Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "Live Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "Live Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "Live Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "DR Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "DR Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "User Acceptance Testing Citrix Presentation Server") GUICtrlSetCursor (-1, 0) GUICtrlSetTip(-1, "Development Citrix Presentation Server") GUICtrlSetCursor (-1, 0) $Progress1 = GUICtrlCreateProgress(8, 256, 201, 25) $Button5 = GUICtrlCreateButton("Please Read", 128, 48, 89, 25, $WS_GROUP) $Label3 = GUICtrlCreateLabel("Copy Progress. . .", 8, 240, 87, 17) dim $checkbox[8] $checkbox[0] = GUICtrlCreateCheckbox("LonCtxPS1", 8, 48, 81, 17) $checkbox[1] = GUICtrlCreateCheckbox("LonCtxPS2", 8, 72, 81, 17) $checkbox[2] = GUICtrlCreateCheckbox("LonCtxPS3", 8, 96, 81, 17) $checkbox[3] = GUICtrlCreateCheckbox("LonCtxPS4", 8, 120, 81, 17) $checkbox[4] = GUICtrlCreateCheckbox("PetCtxPS1", 8, 144, 81, 17) $checkbox[5] = GUICtrlCreateCheckbox("PetCtxPS2", 8, 168, 81, 17) $checkbox[6] = GUICtrlCreateCheckbox("UATCtxPS1", 8, 192, 81, 17) $checkbox[7] = GUICtrlCreateCheckbox("DEVCtxPS1", 8, 216, 81, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $Button1 ;Check All For $n = 0 To UBound($checkbox) - 1 ;For $n = 0 To 7 Step 1 GUICtrlSetState ( $checkbox[$n] , $GUI_CHECKED ) Next case $nmsg = $Button2 ;Clear All For $n = 0 To UBound($checkbox) - 1 ;For $n = 0 To 7 Step 1 GUICtrlSetState ( $checkbox[$n] , $GUI_UNCHECKED ) Next case $nmsg = $Button3 ;Copy Files $fSelection = False For $n = 0 To UBound($checkbox) - 1 If BitAND(GUICtrlRead($checkbox[$n]), $GUI_CHECKED) Then $fSelection = True ExitLoop EndIf Next If $fSelection Then $answer = msgBox(36, 'Copy Files to Citrix servers', 'Are you sure you want to copy E-Packs files to the selected servers?') if $answer = 6 then $status1 = GUICtrlRead($checkbox[0]) $status2 = GUICtrlRead($checkbox[1]) $status3 = GUICtrlRead($checkbox[2]) $status4 = GUICtrlRead($checkbox[3]) $status5 = GUICtrlRead($checkbox[4]) $status6 = GUICtrlRead($checkbox[5]) $status7 = GUICtrlRead($checkbox[6]) $status8 = GUICtrlRead($checkbox[7]) If $status1 = 1 then call ("o1copy") If $status2 = 1 then call ("o2copy") If $status3 = 1 then call ("o3copy") If $status4 = 1 then call ("o4copy") If $status5 = 1 then call ("o5copy") If $status6 = 1 then call ("o6copy") endif if $answer = 7 Then EndIf Else MsgBox(48, 'No Items Selected', 'You have not selected any Citrix servers to copy E-Pack files to, Please select from the list') EndIf case $nmsg = $Button4 Exit case $nmsg = $Button5 MsgBox(64, 'Please Read. . .', '1. You need to be logged in with your admin account on the network.' & @CRLF & @CRLF & '2. Epack Files need to be located in'& @CRLF & ' \\ad.saffery.net\saffery\IT\Rollout\Software\CaseWare\Updates') EndSelect WEnd ;Functions for copying files Func o1copy() DirCopy("C:\Temp\test\1", "C:\Temp\end", 1) EndFunc Func o2copy() DirCopy("C:\Temp\test\2", "C:\Temp\end", 1) EndFunc Func o3copy() DirCopy("C:\Temp\test\3", "C:\Temp\end", 1) EndFunc Func o4copy() DirCopy("C:\Temp\test\4", "C:\Temp\end", 1) EndFunc Func o5copy() DirCopy("C:\Temp\test\5", "C:\Temp\end", 1) EndFunc Func o6copy() DirCopy("C:\Temp\test\6", "C:\Temp\end", 1) EndFunc

Thanks PsaltyDS Cant believe how quiick I got a response! I will try the code out and let you know how I get on, big learning curve at the moment. cheers

Hi there yep it's my first post! basically I'm trying to write a script that will allow me to check (tick) certain checkboxes (server names) then press a button which will copy files to the selected servers. I've managed so far to to do that but I would like to be able to pop a message up if no servers are selected when the "copy" button was clicked. All I can manage at the moment is the following. if BitAND(GUICtrlRead($checkC1), $gui_unchecked) and BitAND(GUICtrlRead($checkC2), $gui_unchecked) and BitAND(GUICtrlRead($checkC3), $gui_unchecked) and BitAND(GUICtrlRead($checkC4), $gui_unchecked) and BitAND(GUICtrlRead($checkC5), $gui_unchecked) and BitAND(GUICtrlRead($checkC6), $gui_unchecked) and BitAND(GUICtrlRead($checkC7), $gui_unchecked) and BitAND(GUICtrlRead($checkC8), $gui_unchecked) Then MsgBox(4096, "Test", "no servers selected") Else MsgBox(4096, "Test", "copy files") EndIf as you can see it's a long winded way so i would like to change it to a variable like $checkc[8] (number of check boxes) hope this makes sense I can post all my code if necessary thanks