1 de inputa Dosya yolunu girince o dosyada Combodan Seçilen Uzantılar varsa listeliyecek Bu tarz birsey Yapmak istiyorum Buraya Kadar Düzenleyebildim...
Kod: Tümünü seç
#include <File.au3>
#include <Array.au3>
#include <EditConstants.au3>
#include <ColorConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 333, 396, 192, 124)
$Button1 = GUICtrlCreateButton("Dosyaları Listele", 8, 48, 315, 41)
$Combo1 = GUICtrlCreateCombo("Seçim Yapınız..", 8, 16, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Masaüstü|Programın Yanında|Bilgisayarda","Seçim Yapınız..")
$Combo2 = GUICtrlCreateCombo("Seçim Yapınız..", 176, 16, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,".Mp3|.txt|.bmp","Seçim Yapınız..")
$Edit1 = GUICtrlCreateEdit("", 10, 124, 313, 247, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetText($StatusBar1, "Seçilen Dosya Sayınız..")
$Input1 = GUICtrlCreateInput("Seçilecek Dosya Yolu", 8, 96, 313, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Switch GUICtrlRead ($Combo1)
Case 'Masaüstü'
If GUICtrlRead($Combo1)= 'Masaüstü' Then
GUICtrlSetData($Edit1,"")
$masaustu = GUICtrlRead('Masaüstü')
$masaustu = @DesktopDir
Local $FileList = _FileListToArray($masaustu, "*.mp3","1") ;Nasıl kullanılması Gerekli
For $i = 1 To $FileList[0]
GUICtrlSetData($Edit1, $FileList[$i]&@CRLF, 1)
_GUICtrlStatusBar_SetText($StatusBar1,"Seçilen Dosya Sayınız.. = "& $FileList[0]&" Dosya Bulundu..")
Next
Else
MsgBox(0,"Bilgi","Aradığınız Dosya Yok")
EndIf
Case 'Bilgisayarda'
If GUICtrlRead($Combo1)= 'Bilgisayarda' Then
GUICtrlSetData($Edit1,"")
$Bilgisayarda = GUICtrlRead('Bilgisayarda')
$Bilgisayarda = @DesktopDir
Local $FileList = _FileListToArray($Bilgisayarda, "*.mp3","1") ;Nasıl kullanılması Gerekli
For $i = 1 To $FileList[0]
GUICtrlSetData($Edit1, $FileList[$i]&@CRLF, 1)
_GUICtrlStatusBar_SetText($StatusBar1,"Seçilen Dosya Sayınız.. = "& $FileList[0]&" Dosya Bulundu..")
Next
Else
MsgBox(0,"Bilgi","Aradığınız Dosya Yok")
EndIf
Case 'Programın Yanında'
If GUICtrlRead($Combo1)= 'Programın Yanında' Then
GUICtrlSetData($Edit1,"")
$PrograminYaninda = GUICtrlRead('Programın Yanında')
$PrograminYaninda = @DesktopDir
Local $FileList = _FileListToArray($PrograminYaninda, "*.mp3","1") ;Nasıl kullanılması Gerekli
For $i = 1 To $FileList[0]
GUICtrlSetData($Edit1, $FileList[$i]&@CRLF, 1)
_GUICtrlStatusBar_SetText($StatusBar1,"Seçilen Dosya Sayınız.. = "& $FileList[0]&" Dosya Bulundu..")
Next
Else
MsgBox(0,"Bilgi","Aradığınız Dosya Yok")
EndIf
EndSwitch
EndSwitch
WEnd