The below script is used by me before for copying files/folders with progress bar(windows default progress bar).
I found similar option for moving by using same object.
But not able to find for delete.
dml.vbs (This is a vbscript one and I am posting in this forum because autoit is made on top of vbscript and it might have similar functions.)
So, I checked in AutoIT forums and found below script files and which I have been modified for my requirement.
In those below I found delete2.au3 is working fine but hanging during deletion of huge memory files/folders.
Please try to provide a solution.
i've been scripting around a bit with autoit but i always had this problem that i find a bit stupid on my part:
~Can't stop a script execution during a rotine... "duh!" you may say else take a look at this sample script:
#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $main = GUICreate("5.5 seconds!",1100,25,125,0,-1,$WS_EX_TOPMOST) $prog = GUICtrlCreateProgress(0,0,1000,25) $OK = GUICtrlCreateButton("GO!",1000,0,25,25) $Stop = GUICtrlCreateButton("Stop",1025,0,50,25) $label = GUICtrlCreateLabel("-",1075,0,25) GUICtrlSetState($Stop,$GUI_DISABLE) GUICtrlSetState($main,$GUI_ONTOP) GUISetState() $go = 1 while 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit case $msg = $OK GUICtrlSetState($OK,$GUI_DISABLE) GUICtrlSetState($Stop,$GUI_ENABLE) Do $msg = GUIGetMsg() GUICtrlSetData($prog,0) sleep(1000) GUICtrlSetData($prog,20) sleep(1000) GUICtrlSetData($prog,40) sleep(1000) GUICtrlSetData($prog,60) sleep(1000) GUICtrlSetData($prog,80) sleep(1000) GUICtrlSetData($prog,100) sleep(250) MouseClick("left") until $msg = $GUI_EVENT_CLOSE EndSelect WEnd How can i use the Stop button to Stop the rotine? Any toughts on that?
I have an application which delete folder and files specified by the user. Everthing workes fine but problem comes when the file/folder size is bigger(morethan 1GB). The GUI hangs when deleting large file/folder size. The idea is to have a progress bar with looping statement when deletion is in progress. So that looping stops the hanging of GUI and progress bar shows users to know about the process/progress. However i am unable to figureout how to detect deleting process.
Thank you in advance.
Hi guys, i have two question about Progress bar,
I'm testing this code:
ProgressOn("Progress Bar", "Sample progress bar", "Working...") For $i = 0 To 100 ProgressSet($i) Sleep(5) Next MyFunc() ProgressSet(100, "Done!") Sleep(750) ProgressOff()
1) Thi function does not work as expected, seem working with time, sometime finish first, sometime finish later. The func is a runwait(@comspec) can process file from 1MB to many GB, so i don't know how to set it
2) There is a version can integrate with GUI?
Thanks for support
I have been trying to do this for last 3 days but nothing seems to be working (correctly). What i am trying to do is extracting an iso image to my pendrive during which progress bar should show the process. The actual size of the archive size is not known but no significant difference is there after extraction. Here is my code and where am i making mistke?
#include <GUIConstants.au3> #include <GUIConstantsEx.au3> _PROGRESS () Func _PROGRESS () $Progress = GUICtrlCreateProgress(8, 56, 417, 25) $Form = GUICreate("Copy File", 369, 128, 193, 126) GUISetState(@SW_SHOW) $Progress1 = GUICtrlCreateProgress(8, 56, 353, 17) $close = GUICtrlCreateButton("Close", 200, 88, 75, 25, 0) $start = GUICtrlCreateButton("Start", 80, 88, 75, 25, 0) $Source = "E:\archive.iso" $Dest = "K:\TEST\" Const $INITIAL_SIZE = DriveSpaceFree( "K:" ) Const $FILE_SIZE = FileGetSize ( $Source ) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $close ExitLoop Case $msg = $start $Extract = Run(@ScriptDir & '\7z.exe' & ' x "' & $Source & '" ' & "-y -o" & '"' & $Dest & '"', "", @SW_HIDE) Sleep (100) While ProcessExists($Extract) > 0 $SPACE_FREE = DriveSpaceFree( "K:" ) $percentage = Round((( DriveSpaceFree( "K:" ) - $INITIAL_SIZE ) * 100 / $FILE_SIZE), 0) If $percentage > 0 And $percentage < 101 Then GUICtrlSetData($Progress1,$percentage) EndIf WEnd EndSelect WEnd EndFunc
Any help is appriciated.