#include <File.au3>
$DIR = FileSelectFolder("Select","")
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