Mengecek Keberadaan Sebuah File Dengan Macro VBA

Keberadaan atau eksistensi sebuah file bisa jadi merupakan sebuah kunci utama sebuah aplikasi untuk dapat dijalankan dengan normal. Atau dengan kata lain, jika sebuah file tertentu tidak ada di suatu tempat (folder) yang ditentukan maka akan mengakibatkan sebuah aplikasi tidak dapat berjalan sebagaimana mestinya.

Contoh sederhananya, coba Anda hapus sebuah atau beberapa file yang terdapat di dalam folder Windows atau Anda hapus sebuah atau beberapa file yang terdapat di dalam folder tempat sebuah aplikasi di install (yang biasanya terletak di C:\Program Files...). Maka bisa dipastikan, jika file tersebut adalah sebuah file utama untuk menjalankan aplikasi tersebut, maka tentu saja akan mengakibatkan atau akan menampilkan sebuah perintah error ketika aplikasi di buka atau dijalankan.

Dari contoh gambaran di atas, pentingnya keberadaan sebuah file sangat berpengaruh terhadap kesuksesan jalannya sebuah aplikasi ketika di buka. Bahkan bisa jadi sebagai faktor penentu apakah aplikasi bisa dijalankan atau tidak.

Dalam Microsoft Excel, jika Anda saat ini sedang mengembangkan sebuah aplikasi berbasis Microsoft Excel, dan Anda ingin mengecek keberadaan sebuah file (pendukung) yang akan dijadikan sebagai faktor utama aplikasi Anda. Maka kode berikut ini bisa Anda sematkan dalam projek VBA Anda.

Buka jendela Microsoft Visual Basic Editor dengan cara menekan tombol pintas Alt + F11, kemudian klik ganda ThisWorkbook untuk langsung membuka jendela kodenya.
Di bagian jendela kode, pilih object Workbook dan pilih procedure Open. Hal ini berfungsi untuk melakukan sebuah rutinitas awal setelah file Excel dibuka dan sebelum kode-kode lainnya di eksekusi.
Ketikkan baris kode berikut di dalam prosedur yang sudah Anda dipilih di langkah sebelumnya
```
Dim NamaFile As String
NamaFile = ThisWorkbook.Path & "\1.jpg"
If Dir(NamaFile) <> "" Then
  MsgBox "File ditemukan, silahkan lanjutkan"
  Else
  MsgBox "Maaf, file TIDAK ditemukan."
  Application.Quit
  ThisWorkbook.Close False
End If
```
NamaFile
adalah sebuah string yang dijadikan sebagai lokasi serta nama dari sebuah file. Untuk contoh di atas, nama file adalah 1.Jpg dan terletak dalam satu folder dengan aplikasi atau file Excel ini (ThisWorkbook.Path).
Anda bisa tentukan lokasi file Anda sendiri dengan mengganti nilai dari NamaFile ini

MsgBox "File ditemukan, silahkan lanjutkan"
di bagian ini, Anda bisa memasukkan perintah jika sebuah file ADA dan ditemukan

MsgBox "Maaf, file TIDAK ditemukan."
Pada bagian ini, Anda bisa menentukan sebuah perintah apakah Anda ingin menutup sebuah aplikasi atau perintah-perintah lainnya.
Untuk contoh di atas, ketika file tidak ditemukan maka akan menampilkan sebuah pesan kesalahan dan ketika pengguna menekan tombol OK maka aplikasi akan ditutup dengan tanpa menyimpan perubahan yang terjadi. Hal ini bisa terlihat di baris kode:
```
Application.Quit
ThisWorkbook.Close False
```

Sekarang Anda sudah berhasil mempelajari bagaimana cara untuk mengecek keberadaan sebuah file yang terdapat di dalam komputer atau media penyimapan. Semoga Anda menyukai tutorial dari excelive untuk edisi ini.
Kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya, Adios.