Cara Hapus File dengan VB6 WinAPI

Coding untuk menghapus data khususnya menggunakan pemrograman Visual Basic 6.0 (Vb6) sepertinya sudah banyak dibahas pada website-website yang berhubungan dengan Pemrgoraman Visual Basic 6 (VB6), contoh Hapus database, hapus record tabel pada database dan sebagainya. Untuk kesempatan kali ini admin akan menguraikan / membahas coding tentang hapus sebuah file pada komputer menggunakan metode WinAPI. Jadi file yang telah terhapus akan tersimpan pada Recycle Bin seperti layaknya kita menghapus file dengan menggunakan tombol Delete pada keyboard.

Buka Microsoft Visual Basic 6.0 (VB6) siapkan beberapa komponen seperti dibawah ini

1. Form

2. Label

3. CommandButton

4. Microsoft Commond Dialog Control

5. Module

Untuk selanjutnya desainlah komponen-komponen tersebut pada form sehingga membentuk tampilan seperti gambar dibawah ini : 

LINK DOWNLOAD

Cara Hapus File dengan VB6 WinAPI

Copykan coding Visual Basic 6.0 (VB6) dibawah ini pada module

Public 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

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Const FO_DELETE = &H3
Public Const FOF_ALLOWUNDO = &H40

Kemudian pada tombol Browse File double klik dan copykan juga sintak dibawah ini

On Error GoTo pesan
With CommonDialog1
    .DialogTitle = "Pilih File Alarm yang akan diupload"
    .Filter = "Files|*.*"
    .ShowOpen

    If Not .CancelError And .FileName <> "" Then
       lblPath.Caption = CommonDialog1.FileName
    End If
End With
pesan:
    If (Err.Number = 481) Then
    MsgBox "Pilih File Alarm Tidak bisa diload", vbCritical, "Error Load Gambar"
    Exit Sub
    End If

Dilanjutkan coding pada tombol Hapus Data 

Dim op As SHFILEOPSTRUCT
With op
    .wFunc = FO_DELETE
    .pFrom = lblPath.Caption
    .fFlags = FOF_ALLOWUNDO
End With
SHFileOperation op
lblPath.Caption = ""

Jangan lupa tambahkan componen Microsoft CommonDialog Control pada form yang berfungsi sebagai komponen pendukung browse file. Setelah semuanya selesai simpan dan coba jalankan (F5). Pilih file dengan mengklik tombol Browse File kemudian klik tombol Hapus Data dan coba cek di Recycle Bin keberadaan file yang baru saja dihapus.

Bagi yang berminat untuk mendownload silahkan klik link download yang telah admin sediakan diatas dan semoga bermanfaat.