|
Case $Button7
If _IsChecked($Checkbox1) Then $File1 = " /min:" & GUICtrlRead($Input5)
If _IsChecked($Checkbox2) Then $File2 = " /max:" & GUICtrlRead($Input6)
;~ $Roboload = @SystemDir & "\Robocopy.exe" & " " & Chr(34) & GUICtrlRead($Input1) & Chr(34) & " " & Chr(34) & GUICtrlRead($Input2) & Chr(34) & " /S /mir " & _
;~ $File1 & $File2 & "/R:" & GUICtrlRead($Input3) & " /W:" & GUICtrlRead($Input4) & " /XD " & Chr(34) & "System Volume Information" & Chr(34) & " " & Chr(34) & _
;~ "$RECYCLE.BIN" & Chr(34) & " " & $Strdir & " /XF " & Chr(34) & "desktop.ini" & Chr(34) & " " & $Strfile
If Not ProcessExists("Robocopy.exe") Then Run($Roboload, @SystemDir, @SW_SHOW)
DirSize(GUICtrlRead($Input2), GUICtrlRead($Input1))
_GUICtrlListBox_BeginUpdate($List1)
Dim $listcount = _GUICtrlListBox_GetListBoxInfo($List1)
_GUICtrlListBox_EndUpdate($List1)
For $i = 0 to $listcount
Dim $listGetCurSel =_GUICtrlListBox_GetText($List1,$i)
;If $listGetCurSel Then $listGetCurSel &= $listGetCurSel
If $listGetCurSel Then MsgBox(0,$listcount,$listGetCurSel)
Next
If $listGetCurSel Then MsgBox(0,"aaaa",$listGetCurSel)
这段AU3我不知道咋操作了,忘大神指导下
在VisualFreeBasic里可以这样赋值Strfile = Strfile & Chr(34) & List2.List(x) & Chr(34) & " "。出现效果是 "AAAA" "bbbba" "cccc"一类的合并为一行
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?加入
×
|