Procedure VBA Untuk Menghapus File

Niguru.com | Minggu, 14 Apr 2019 | Dalam melakukan pengelolaan file pada komputer seringkali programmer membuat aplikasi yang dapat membantu user dalam melakukan pengelolaan file.

Dan salah satu fasilitas yang seringkali diperlukan dalam pengelolaan file adalah menghapus file tertentu secara otomatis, misalnya saja file backup yang biasanya hanya diperlukan untuk penyimpanan data selama waktu tertentu, misalnya 2 hari saja, dan kemudian akan dihapus secara otomatis setelah waktu tersebut sudah terlampaui.



Kali ini Niguru.com akan menjelaskan cara untuk menghapus file lewat perintah VBA, dengan membuat procedure tertentu untuk memudahkan penulisan instruksi.
Berikut ini procedure-nya:
‘-------------------------------------------------
‘Delete file procedure
Sub delFile(fpath As String)
If Len(Dir(fpath)) > 0 Then
   SetAttr fpath, vbNormal
   Kill fpath
End If
End Sub
‘-------------------------------------------------

Cara penggunaan procedure diatas sangat mudah, programmer tinggal menuliskan instruksi berikut ini untuk melakukan penghapusan file:
delFile [namaFileYangAkanDihapusLengkapDenganPath]

contoh:
delFile "C:\Backup\Transaction-001.txt"

Dengan perintah diatas, maka file dengan nama Transaction-001.txt, akan terhapus.
Dan keunggulan dari procedure diatas adalah, bila ternyata file Transaction-001.txt sudah tidak ada maka tidak terjadi pesan kesalahan pada aplikasi.

Demikian penjelasan mengenai cara untuk membuat procedure VBA untuk menghapus file.
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)