help howto del folder with progress

[Priorityboy]

I want to delete some folders in Appdata and while i'm deleting it, there will be the status showed like this. 

#include <File.au3>

DeleteFolderContent("@AppDataDir & ".minecraft",1") ; > Set "C:\Users\Administrator\AppData\Roaming\Mikrotik" Folder user appdata <<< Change always

$DIR = FileSelectFolder("Select","") ; > Set "C:\Users\Administrator\AppData\Roaming\Mikrotik" Folder user appdata change here
If Not @error Then
    $FILE = _FileListToArray($DIR,"*",1)
    If IsArray($FILE) Then
        ProgressOn("Folder Remove",$DIR)
        For $INDEX = 1 To $FILE[0]
            ProgressSet($INDEX*100/$FILE[0],$FILE[$INDEX])
            FileDelete($DIR & "\" & $FILE[$INDEX])
            Sleep(250)
        Next
        ProgressOff()
    EndIf
EndIf

 

Or if you want to specify the folders without clicking anything to choose it, let it run itself by using this kind of code.

expandcollapse popup

#RequireAdmin
$sFolder = FileSelectFolder("Select folder", "") ; > Set "C:\Users\Administrator\AppData\Roaming\Mikrotik" Folder user appdata
If @error Then Exit

ProgressOn("Dir delete with progress", "", "Scanning . . .")
$iFiles = _GetFileCount($sFolder)
_DeleteFilesProgress($sFolder, $iFiles)
ProgressOff()

Func _GetFileCount($sFolder, $bRecursive = True)
    Local $iNumFiles = 0, $hFindFile, $sFile, $sFilepath
    $hFindFile = FileFindFirstFile($sFolder & "\*")
    While 1
        $sFile = FileFindNextFile($hFindFile)
        If @error Then ExitLoop
        $sFilepath = $sFolder & "\" & $sFile
        If $bRecursive And StringInStr(FileGetAttrib($sFilepath), "D", 2) <> 0 Then $iNumFiles += _GetFileCount($sFilepath, $bRecursive)
        $iNumFiles += 1
    WEnd
    Return $iNumFiles
EndFunc

Func _DeleteFilesProgress($sFolder, $iTotalFiles, $iNumFiles = 0, $bRecursive = True)
    Local $hFindFile, $sFile, $sFilepath

    $hFindFile = FileFindFirstFile($sFolder & "\*")
    While 1
        $sFile = FileFindNextFile($hFindFile)
        If @error Then ExitLoop
        $sFilepath = $sFolder & "\" & $sFile
        If $bRecursive And StringInStr(FileGetAttrib($sFilepath), "D", 2) <> 0 Then
            $iNumFiles = _DeleteFilesProgress($sFilepath, $iTotalFiles, $iNumFiles, $bRecursive)
            ProgressSet($iNumFiles / $iTotalFiles * 100, "Deleting: " & $sFile)
            DirRemove($sFilepath)
        Else
            ProgressSet($iNumFiles / $iTotalFiles * 100, "Deleting: " & $sFile)
            FileDelete($sFilepath)
        EndIf
        $iNumFiles += 1
    WEnd
    Return $iNumFiles
EndFunc

 

[water]

The title tells me that you are asking for help. But I do not find a question in your thread

[Priorityboy]

yes, i'am find no topic

Edited June 10, 2016 by Priorityboy

[Priorityboy]

Does anybody know how to write the script for deleting the folders in any other ways? You can suggest it here. 

[water]

Does the first code snippet you posted work for you?

[BigDaddyO]

Here is something I used a long time ago for using the Windows File Copy Progress, but if you look at it, there is a flag $FO_DELETE to delete instead of copy.

https://www.autoitscript.com/forum/topic/26374-display-a-of-progress-bar-during-filecopy/?page=2#comment-187997