Cara memeriksa apakah file ada menggunakan vba (dengan contoh)

Anda dapat menggunakan fungsi Dir di VBA untuk memeriksa apakah ada file tertentu di folder tertentu.

Berikut adalah cara umum untuk menggunakan pernyataan ini dalam praktik:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

Makro khusus ini akan membuat kotak input di mana pengguna dapat memasukkan path lengkap ke file untuk memeriksa apakah file tersebut ada.

Setelah pengguna memasukkan jalur file, makro kemudian akan menghasilkan kotak pesan yang menunjukkan apakah file tersebut ada atau tidak.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Periksa apakah file ada menggunakan VBA

Misalkan kita mempunyai folder yang terletak di lokasi berikut:

C:\Users\bob\Documents\current_data

Folder ini berisi tiga file CSV:

Katakanlah kita ingin menggunakan VBA untuk memeriksa apakah file bernama football_data.csv ada di folder ini.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

Setelah kita menjalankan makro ini, kotak masukan muncul di mana kita dapat memasukkan jalur file:

Kita akan masuk ke path lengkap file football_data.csv :

Setelah kita klik OK , kotak pesan akan muncul yang memberi tahu kita apakah file tersebut ada di folder yang kita tentukan:

Kotak pesan memberitahu kita bahwa file tersebut ada.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk fungsi Dir di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Cara Membuat Folder Menggunakan VBA
Cara menghapus folder menggunakan VBA
Cara menghapus file menggunakan VBA