Buyrun kodlarım
Kod: Tümünü seç
#include <File.au3>
#include <ComboConstants.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $ScriptDir = @ScriptDir
If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\"
Global $MainTitle = "Title"
Global $aFolder
$Form1 = GUICreate("Form1", 317, 442)
$Button2 = GUICtrlCreateButton("Say", 25, 136, 75, 25)
$Button1 = GUICtrlCreateButton("Taşı", 160, 136, 75, 25)
$Label1 = GUICtrlCreateLabel("Masaüstünde :", 24, 24, 118, 17)
$Label2 = GUICtrlCreateLabel("", 144, 24, 156, 17)
$Label4 = GUICtrlCreateLabel("", 32, 48, 228, 17)
$Combo1 = GUICtrlCreateCombo("PSD", 32, 88, 65, 25)
GUICtrlSetData(-1, "JPG|PNG|GIF|ICO|TXT|MP3")
$ButtonGozat = GUICtrlCreateButton("Gözat", 160, 88, 75, 25)
$Label3 = GUICtrlCreateLabel("Bulunan tüm dosya sayısı :", 24, 184, 128, 17)
$Label5 = GUICtrlCreateLabel("PSD", 24, 216, 26, 17)
$Label6 = GUICtrlCreateLabel("JPG", 24, 248, 24, 17)
$Label7 = GUICtrlCreateLabel("PNG", 24, 280, 27, 17)
$Label8 = GUICtrlCreateLabel("GIF", 24, 312, 21, 17)
$Label9 = GUICtrlCreateLabel("ICO", 24, 344, 22, 17)
$Label10 = GUICtrlCreateLabel("TXT", 24, 376, 25, 17)
$Label29 = GUICtrlCreateLabel("MP3", 24, 408, 26, 17)
$PSDLABEL = GUICtrlCreateLabel("", 72, 216, 42, 17)
$JPGLABEL = GUICtrlCreateLabel("", 72, 248, 42, 17)
$PNGLABEL = GUICtrlCreateLabel("", 72, 280, 42, 17)
$GIFLABEL = GUICtrlCreateLabel("", 72, 312, 42, 17)
$ICOLABEL = GUICtrlCreateLabel("", 72, 344, 42, 17)
$TXTLABEL = GUICtrlCreateLabel("", 72, 376, 42, 17)
$MP3LABEL = GUICtrlCreateLabel("", 72, 408, 42, 17)
$TUMDOSYALABEL = GUICtrlCreateLabel("Tüm dosyalar", 187, 184, 81, 17)
GUISetState(@SW_SHOW)
While 1
Sleep(10)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
_Move()
Case $Button2
_count()
Case $ButtonGozat
_FileSelectaFolder()
EndSwitch
WEnd
Func _count()
Local $extension = GUICtrlRead($Combo1)
Local $FileList = _FileListToArray(@ScriptDir, "*." & $extension, 1)
If IsArray($FileList) Then
For $i = 0 To UBound($FileList[0])
Sleep(20)
GUICtrlSetData ($Label2, $FileList[$i] & " "& $extension & " Dosyası var")
For $as = 1 To UBound($FileList) -1
Sleep(25)
GUICtrlSetData ($Label4, $FileList[$as])
Next
GUICtrlSetData ($Label4, "")
Next
Else
MsgBox(64,"","Belirtilen "& $extension &" Dosyası Bulunamadı!")
EndIf
EndFunc
Func _Move()
Local $extension = GUICtrlRead($Combo1)
Local $FileList = _FileListToArray(@ScriptDir, "*." & $extension, 1)
For $Move = 0 To UBound($FileList) -1
If FileExists(@DesktopDir & "\" & $extension & "\") = 1 Then
FileMove(@ScriptDir & "\" & $FileList[$Move],@DesktopDir & "\" & $extension & " Arşivim\" & $FileList[$Move], 9)
GUICtrlSetData ($Label4, "Taşındı")
Else
DirCreate(@DesktopDir & "\" & $extension & " Arşivim")
FileMove(@ScriptDir & "\" & $FileList[$Move], @DesktopDir & "\" & $extension & " Arşivim\" & $FileList[$Move], 9)
GUICtrlSetData ($Label4, "Taşındı")
EndIf
Next
EndFunc
Func _FileSelectaFolder()
Local $aFolder = FileSelectFolder("Klasör seç", "", 1)
Local $aFolder_1 = $aFolder
If StringRight($aFolder_1, 1) <> "\" Then $aFolder_1 &= "\"
If $aFolder_1 = $ScriptDir Then
MsgBox(16, $MainTitle, "Lütfen başka bir klasör seçin.")
_FileSelectaFolder()
EndIf
$FileList = _FileListToArray($aFolder, "*.*", 1)
_ArrayDisplay($FileList, "deneme")
EndFunc