Cek File Exist Atau Tidak dengan VBA Excel

 

Setelah saya bahas bagaimana cara cek sebuah folder dalam drive tertentu di komputer Anda dan kali ini saya akan berbagai coding atau script VBA bagaimana cara cek sebuah file di komputer tersebut. Sebenarnya jika Anda menggunakan komputer tentu Anda akan menggunakan fungsi Search pada windows Explorer. Kenapa saya buatkan contoh bagaimana coding cek sebuah file menggunakan coding VBA excel ini?

Hal ini jika Anda pernah membuat aplikasi excel dengan VBA atau macro maka saya kira materi yang satu ini juga perlu Anda ketahui entah untuk tujuan apa namun untuk para pakar VBA excel saya yakin sudah pasti memahaminya. Lalu bagaimana cara membuat cek file apakah exist atau tidak? Berikut cara membuatnya.

Pertama Anda buat sebuah UserForm dan tambahkan CommandButton untuk sebagai object untuk mmebuat prosedur cek filenya. kemudian tambahkan coding berikut ini pada object CommandButton1 tersebut sebaiknya Anda ganti Name CommandButton1 dengan nama "TombolCekFile" melalui properties

Berikut Coding VBA untuk Cek File Exist atau Tidak

Private Sub TombolCekFile_Click()
Dim AlamatFile As String
Dim Filenya As String
AlamatFile = "D:\AplikasiVBA.xlsm"
Filenya = ""
   
On Error Resume Next
Filenya = Dir(AlamatFile)
   
On Error GoTo 0
If Filenya = "" Then
   MsgBox "File Tidak Ada"
   Else
   MsgBox "File Ada"
End If
End Sub

Object yang digunakan adalah "TombolCekFile" dan prosedur adalah klik artinya jika Anda klik TombolCekFile tersebut maka coding diatas akan dijalankan dan akan mencek nama file AplikasiVBA.xlsm pada drive D:

D:\AplikasiVBA.xlsm
Jika nama file tidak ditemukan pada drive D: tersebut maka akan muncul sebuah pesan sebagai informasi kepada user dengan isinya MsgBox "File Tidak Ada" tetapi jika file ditemuka pada drive tersebut maka munculkan juga sebuah pesan "File Ada" dengan coding MsgBox "File Ada"

Oke deh, saya kira itulah bagaimana coding untuk cek file exist atau tidak silakan Anda kembangkan untuk mempelajari lebih jaung penggunaan contoh coding diatas. Semoga bermanfaat dan selamat belajar.

Tweet