Bagaimana cara memeriksa apakah ada file atau folder di komputer Anda dengan Excel VBA?

Tutorial otomatisasi Office hari ini difokuskan untuk mempelajari cara memverifikasi bahwa file ada di salah satu direktori komputer Anda.

Persiapan

Jika Anda agak baru dalam pengkodean, pastikan bahwa tab pengembangan Microsoft Office Excel diaktifkan dan Anda sudah familiar dengan beberapa dasar Excel VBA .

Memeriksa apakah ada file dengan Excel VBA

Kode berikut memanfaatkan kotak input untuk menangkap jalur ke file serta nama file itu sendiri dari pengguna.

Kemudian ia memanfaatkan metode Dir untuk memverifikasi apakah jalur file memang ada.

Terakhir, ini akan menampilkan kotak pesan kepada pengguna dengan hasil pemeriksaan.

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

Periksa apakah ada folder

Dengan cara yang hampir sama, Anda dapat memeriksa apakah folder tertentu ada di sistem operasi Anda. Juga di sini kami memanfaatkan metode Dir , tetapi dengan parameter vbDirectory .

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

Menggunakan Kode

• Buka Microsoft Excel dan navigasikan ke buku kerja Anda.
• Tekan Pengembang dan kemudian tekan Visual Basic.
• Salin dan Tempel kode dari atas sebagai subrutin di lembar tertentu modul VBA Anda.
• Jalankan (F5) kodenya.
• Simpan buku kerja Anda.

Kemungkinan ekstensi

Kode pelat boiler di atas diperpanjang untuk kasus penggunaan berikut:

• Buat folder/file jika belum ada.
• Hapus file folder asalkan ada di direktori file sistem operasi Anda.
• Cari file/folder menggunakan wildcard.