Имя кнопки - размер папки

[Scampy]

Всем привет! Есть скрипт:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>


$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$iSize = Round (DirGetSize("C:\1")/1048576, 2)
$Label = GUICtrlCreateLabel("Размер папки: " & $iSize & " Мб", 50, 50, 318, 17)
$Button = GUICtrlCreateButton("Кнопка", 50, 100, 170, 25)


GUISetState(@SW_SHOW)

While 1
     $nMsg = GUIGetMsg()
     Switch $nMsg
          Case $GUI_EVENT_CLOSE
               Exit

     EndSwitch
WEnd

Необходимо чтоб Кнопка имела имя размера папки, а при нажатии на нее очищала данную папку и показывала реальный размер данной папки. Что то не соображу...

 

[joiner]

по быстрому можно так

Спойлер

$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$iSize = Round(DirGetSize("C:\1") / 1048576, 2)
$Label = GUICtrlCreateLabel("Размер папки: " & $iSize & " Мб", 50, 50, 318, 17)
$Button = GUICtrlCreateButton($iSize & " Мб", 50, 100, 170, 25)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button
			$filelist = _FileListToArray("C:\1", '*', 0, True)
			If Not @error > 0 Then
				For $i = 1 To $filelist[0]
					$fga = FileGetAttrib($filelist[$i])
					If StringInStr($fga, 'D') Then
						DirRemove($filelist[$i], 1)
					Else
						FileDelete($filelist[$i])
					EndIf
				Next
				$iSize = Round(DirGetSize("C:\1") / 1048576, 2)
				GUICtrlSetData($Label, "Размер папки:" &  $iSize & " Мб")
				GUICtrlSetData($Button, $iSize & " Мб")
			EndIf
	EndSwitch
WEnd

 

[Scampy]

joiner,
Ошибку выдает

 

[joiner]

мне задавать дополнительный вопрос про ошибку или сам догадаешься?

 

[Scampy]

мне задавать дополнительный вопрос про ошибку или сам догадаешься?

))) понял... ;D что то я с утра уже туплю :stars: