[Code] Lọc file

by **Admin** Mon Dec 17, 2012 3:14 am

Code:: #Region #AutoIt3Wrapper_icon=C:\Documents and Settings\User\Desktop\DossierDLSZ.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Comment=Chơi ở net có thể dùng để kiểm tra liên tục lọc và copy File ra USB (chỉ kiểm tra một thư mục) #AutoIt3Wrapper_Res_Description=Lọc và copy File #AutoIt3Wrapper_Res_Fileversion=1.0.0.0 #AutoIt3Wrapper_Res_LegalCopyright=Tác giả: Bùi Hữu Tân #EndRegion #NoTrayIcon AutoItSetOption("TrayOnEventMode", 1) AutoItSetOption("TrayMenuMode", 3) TraySetOnEvent(-13, "hien") Global $tu = @DesktopDir & "" ,$tep1 = "*.*" Global $den = @ScriptDir & "\den" , $c = False ,$x = True ,$map ,$q = True $Form1 = GUICreate("Kien tra", 317, 153, 385, 222) $dd1 = GUICtrlCreateInput($tu, 8, 16, 257, 21) GUICtrlSetState (-1,128) GUICtrlSetBkColor(-1,0xFFFFFF) $dd2 = GUICtrlCreateInput("..\Maps", 8, 48, 257, 21) GUICtrlSetState (-1,128) GUICtrlSetBkColor(-1,0xFFFFFF) $tep = GUICtrlCreateInput($tep1, 8, 88, 305, 21,1) GUICtrlSetBkColor(-1,0xFFFFFF) $t = GUICtrlCreateButton("Từ", 272, 14, 43, 25, 131072) $d = GUICtrlCreateButton("Đến", 271, 46, 43, 25, 131072) $b = GUICtrlCreateButton("Bắt đầu", 56, 120, 75, 25, 131072) $h = GUICtrlCreateButton("Huỷ bỏ", 184, 120, 75, 25, 131072) GUISetState(@SW_SHOW) kt($tu,$dd1) kt($den,$dd2) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3,$h Exit Case -4 GUISetState(@SW_HIDE) TraySetState(1) Case $t layduongdan($dd1,$tu) WinActivate($Form1) Case $d layduongdan($dd2,$den) WinActivate($Form1) Case $b If $c Then $c = False GUICtrlSetData($b, "Bắt đầu") GUICtrlSetState ($t,64) GUICtrlSetState ($d,64) GUICtrlSetState ($tep,64) GUICtrlSetData($tep,$tep1) Else $c = True GUICtrlSetData($b, "Dừng lại") GUICtrlSetState ($t,128) GUICtrlSetState ($d,128) GUICtrlSetState ($tep,128) $tep1 = GUICtrlRead($tep) $search = FileFindFirstFile($tu & $tep1) EndIf EndSwitch If $c then If $q Then $map = FileFindNextFile($search) If @error Then FileClose($search) $search = FileFindFirstFile($tu & $tep1) EndIf If StringInStr(FileGetAttrib($tu & "" & $map), "D") = 0 Then GUICtrlSetData($tep,$map) If FileExists ($den & $map) == 0 Then FileCopy($tu & $map,$den & "",0) EndIf EndIf $q = False Else $q =True EndIf EndIf WEnd Func hien() GUISetState(@SW_SHOW) GUISetState(@SW_RESTORE) TraySetState(2) EndFunc Func layduongdan($contro,ByRef $dd) GUISetState (@SW_DISABLE) $dd11 = FileSelectFolder("Tìm đường dẫn!","",7) If @error <> 1 Then If StringRight($dd11,1) <> "" Then $dd11 &= "" $dd = $dd11 GUICtrlSetData($contro, $dd) EndIf If ($tu <> "" And $den <> "") Then GUICtrlSetState ($b,64) GUISetState (@SW_ENABLE) EndFunc Func kt(ByRef $kt,$contro1) If FileExists ($kt) == 0 Then $kt = "" GUICtrlSetState ($b,128) GUICtrlSetData($contro1,$kt) EndIf EndFunc