Pada pembahasan kali ini admin akan menerangkan sebuah source code cara menghapus sebuah file pada pc menggunakan bahasa pemrograman visual basic 6.0 atau yang lebih dikenal dengan sebutan VB6 dengan menggunakan coding Windows API. Tidak usah panjang lebar deh, langsung saja buka Visual Basic 6.0 kemudian buatlah sebuah form dan sebelum menambahkan komponen yang lain terlebih dahulu masuk ke menu Project - Components... atau dengan menggunakan shoot key ctrl+T dan carilah Microsoft Common Dialog Control 6.0 (SP3)
Ceklis dan kemudian klik OK. Selanjutnya tambahkan beberapa komponen pada form yang telah dibuat
Keterangan
1. Label (ubah name komponen tersebut menjadi lblPath)
2. CommandButton (ubah name komponen tersebut menjadi cmdBrowseFile)
3. Common Dialog Control (ubah name komponen tersebut menjadi cdBrowse)
4. CommandButton (ubah name komponen tersebut menjadi cmdHapusData)
Dan untuk selanjutnya buatlah juga sebuah modul, ubah name modul tersebut menjadi ModDelete kemudian copas coding dibawah ini
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
Selanjutnya double klik pada cmdBrowseFile dan copas coding dibawah ini
On Error GoTo pesan
With cdBrowse
.DialogTitle = "Pilih File Alarm yang akan diupload"
.Filter = "Files|*.*"
.ShowOpen
If Not .CancelError And .FileName <> "" Then
lblPath.Caption = cdBrowse.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
Setelah selesai double klik juga pada cmdHapusData dan copas coding dibawah ini
Dim op As SHFILEOPSTRUCT
With op
.wFunc = FO_DELETE
.pFrom = lblPath.Caption
.fFlags = FOF_ALLOWUNDO
End With
SHFileOperation op
lblPath.Caption = ""
Setelah semuanya simpan dan run (F5) maka layout tampilannya seperti dibawah ini
Kemudian klik tombol Browse File, dan cari file pada PC agan yang akan dihapus, setelah ketemu, klik ok dan klik tombol Hapus Data, setelah itu cek kembali data tersebut apakah masih ada atau sudah terhapus. Untuk lebih jelasnya agan-agan bisa mendownload Source Code Hapus File Menggunakan VB6 Metode Windows API ini pada link download yang telah admin sediakan. Terima kasih atas kunjungannya.
0 Response to "Source Code Hapus File Menggunakan VB6 Metode Windows API"
Post a Comment
1. Dilarang menjadikan referensi tanpa mencantumkan sumbernya
2. Berkomentar yang relevan sesuai artikel
3. Gunakan bahasa yang baik dan santun