-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathMUW.au3
95 lines (69 loc) · 2.22 KB
/
MUW.au3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
#cs ----------------------------------------------------------------------------
Migration unit for windows 7
AutoIt Version: 3.3.12.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
#cs
$aFolderArrayName - ìàññèâ èìåí ïàïîê â ìåñòå íàçíà÷åíèÿ
$aFolderArraySize - ìàññèâ ðàçìåðîâ ïàïîê â ìåñòå íàçíà÷åíèÿ
$iTotalSize - îáùèé ðàçìåð ïàïîê â ìåñòå íàçíà÷åíèÿ
$aFolderArray - ìàññèâ èìåí è ðàçìåðîâ ïàïîê â ìåñòå íàçíà÷åíèÿ
#ce
; Script Start - Add your code below here
#include<ButtonConstants.au3>
#include<GUIConstantsEx.au3>
#include<GUIConstants.au3>
#include <Array.au3>
#include <RecFileListToArray.au3>
Global $aFolderArray, $aFolderArraySize, $iTotalSize, $aFolderArrayName
Local $iTotalSize = 0, $aGUI[UBound($aFolderArray) - 1]
$aFolderArrayName = _RecFileListToArray(@UserProfileDir, "*", 2, 0, 0, 2)
$aFolderArraySize = $aFolderArray
Func getFolderArray()
For $i = 1 to UBound($aFolderArray) - 1
$aFolderArraySize[$i] = Round( DirGetSize($aFolderArray[$i])/1048576, 1)
Next
Local $avArray[$aFolderArraySize[0]+1][2]
Local $i = 0
While $i<= UBound($avArray)- 1
$avArray[$i][0] = $aFolderArray[$i]
$avArray[$i][1] = $aFolderArraySize[$i]
$iTotalSize = $aFolderArraySize[$i]+$iTotalSize
$i=$i + 1
WEnd
EndFunc
getFolderArray()
; GUI
;MsgBox(4096, "", $iChbx&$i))
Opt("GUIOnEventMode", 1) ;
;------------------------------------------------
$hGUI = GUICreate("Backuper", 280, (UBound($aFolderArray)*25))
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetState(@SW_SHOW)
;------------------------------------------------
;$iChbx1 = GUICtrlCreateCheckbox("My Documents", $iMargin, $iMargin)
;GUICtrlSetState(-1, $GUI_CHECKED)
;$iTmpHgt=$iMargin+$iGrid
$i = 1
While $i<= UBound($aFolderArray)- 1
$iMargin = 20
$iPadding = 30
$iGrid = 25
$iTmpHgt = 0 + $iMargin
$iTmpWdth = 0
$aGUI[$i] = GUICtrlCreateCheckbox($aFolderArray[$i] & $avArray[$i][1], $iTmpHgt, $iMargin)
$iTmpHgt=$iMargin+$iGrid
WEnd
Func getFileArray()
EndFunc
While 1
Sleep(500) ; Öèêë îæèäàíèÿ
WEnd
Func specialEvents()
Exit
EndFunc
;DriveMapAdd("U:", "\\10.193.2.1\Backups", 1, "admin", "agemoi123")
;If
;DirCreate("\\10.193.2.1\Backups\")