√ Cek File Exist Atau Tidak Dengan Vba Excel

 

Setelah aku bahas bagaimana cara cek sebuah folder dalam drive tertentu di komputer Anda dan kali ini aku akan banyak sekali coding atau script VBA bagaimana cara cek sebuah file di komputer tersebut. Sebenarnya kalau Anda memakai komputer tentu Anda akan memakai fungsi Search pada windows Explorer. Kenapa aku buatkan pola bagaimana coding cek sebuah file memakai coding VBA excel ini?

Hal ini kalau Anda pernah menciptakan aplikasi excel dengan VBA atau macro maka aku kira bahan yang satu ini juga perlu Anda ketahui entah untuk tujuan apa namun untuk para pakar VBA excel aku yakin sudah niscaya memahaminya. Lalu bagaimana cara menciptakan cek file apakah exist atau tidak? Berikut cara membuatnya.

Pertama Anda buat sebuah UserForm dan tambahkan CommandButton untuk sebagai object untuk mmebuat mekanisme 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 dipakai yaitu "TombolCekFile" dan mekanisme yaitu klik artinya kalau 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 info kepada user dengan isinya MsgBox "File Tidak Ada" tetapi kalau file ditemuka pada drive tersebut maka munculkan juga sebuah pesan "File Ada" dengan coding MsgBox "File Ada"

Oke deh, aku kira itulah bagaimana coding untuk cek file exist atau tidak silakan Anda kembangkan untuk mempelajari lebih jaung penggunaan pola coding diatas. Semoga bermanfaat dan selamat belajar.
Sumber http://www.excel-id.com/