Programalama > VISUAL BASIC

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 Müzik dinlerken görsel efeklerde kolaylık sağlar ve bunun için tasarlanmıştır."
MsgBox "Bu Programı Onur TOPALOĞLU YAPMIŞTIR"
MsgBox "Adres:www.onursoft.com  /   E-mail : onur_topaloglu@hotmail.com"
End Sub