Option Explicit Private Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As Long End Type Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 Private Sub Comkutu1_Change() Fildosya.Pattern = Comkutu1.Text End Sub Private Sub Dirdizin1_Change() Fildosya.Path = Dirdizin1.Path End Sub Private Sub Drvsurucu_Change() Dirdizin1.Path = Drvsurucu.Drive End Sub Private Sub Form_Load() Comkutu1.AddItem "*.*" Comkutu1.AddItem ".exe" Comkutu1.AddItem ".doc" Comkutu1.AddItem "*.gif" Comkutu1.AddItem ".dat" Comkutu1.ListIndex = 0 End Sub Private Sub mnuh_Click() MsgBox "Bu Program Mgzik dinlerken ggrsel efeklerde kolaylgk saglar ve bunun igin tasarlanmggtgr." MsgBox "Bu Programg Onur TOPALOgLU YAPMIgTIR" MsgBox "Adres:www.onursoft.com / E-mail : onur_topaloglu@hotmail.com" End Sub