Cara Membuat Form Penghapus File Dengan WinAPI VB6

Pada artikel kali ini Admin akan berbagi tips yaitu cara membuat form untuk menghapus sebuah file yang ada di dalam komputer atau Laptop Anda.

Kalau biasanya kita membuat perintah menghapus record yang ada dalam database, tapi kali ini kita akan membuat perintah untuk menghapus file yang tersimpan didalam komputer atau laptop Anda dengan metode WinAPI. 

Jadi setelah kita menghapus file dengan metode ini seperti biasanya file yang dihapus akan disimpan di Recycle Bin seperti Anda menghapus file dengan tombol Delete pada Keyboard

Untuk lebih jelasnya perhatikan pada gambar dibawah ini :

Form Penghapus File

Berikut adalah langkah-langkah Cara Membuat Form Penghapus File Dengan WinAPI VB6 :

1. Buka Form VB6 Anda standar EXE

2. Tambahkan beberapa control didalam Form :

Label

CommandButton

Microsoft CommonDialog Control, dan

Module

3. Desainlah Form seperti gambar dibawah ini :

Desain Form

4. Setelah mendesain Form Ketiklah kode dibawah ini  :

Kode di Module1 :

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

Kode Tombol Cari File

Private Sub Command1_Click()

On Error GoTo pesan

With CommonDialog1

    .DialogTitle = "Pilih File Alarm yang akan diupload"

    .Filter = "Files|*.*"

    .ShowOpen

    If Not .CancelError And .FileName <> "" Then

       Label2.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

End Sub

Kode tombol Hapus File

Private Sub Command2_Click()

Dim op As SHFILEOPSTRUCT

With op

    .wFunc = FO_DELETE

    .pFrom = Label2.Caption

    .fFlags = FOF_ALLOWUNDO

End With

SHFileOperation op

Label2.Caption = ""

End Sub

Private Sub Form_Load()

Label2.Caption = ""

End Sub

Setelah selesai membuat kode diatas, jalankan Project Anda jika berhasil tekan tombol Cari File, pilih file yang akan dihapus lalu tekan tombol Hapus File dan sekarang coba cek file yang dihapus di Recycle Bin.

Demikian artikel pada hari tentang Cara Membuat Form Penghapus File Dengan WinAPI VB6, semoga artikel ini bermanfaat buat kita semua,Amin.

Selamat mencoba semoga berhasil.

Related Post: Tools