The DIR fungsi dalam VBA terutama menunjukkan direktori atau file dari folder yang diberikan. Ini juga dapat mengembalikan file pertama dengan fungsi ini. Fungsi ini memiliki banyak kegunaan untuk mendapatkan file dan folder tertentu. Semua yang Anda butuhkan hanya memasukkan jalur file di pathname dari VBA Anda mungkin merasa lebih sulit untuk menggunakan kode VBA DIR Jangan khawatir, dalam artikel ini, kami akan menunjukkan beberapa contoh untuk visualisasi yang lebih baik dalam menggunakan VBA DIR Semoga Anda dapat menggunakan fungsi tersebut setelah membaca artikel ini. Jadi, mari kita mulai.

Unduh Buku Kerja Praktik

Unduh buku kerja latihan berikut ini. Ini akan membantu Anda memahami subjek dengan lebih baik.

Pengenalan ke Fungsi DIR

Ringkasan:

The VBA DIR mengembalikan nama file atau direktori dari jalur folder yang diberikan. Secara konvensional, fungsi ini mengembalikan file pertama.

Sintaksis:

Penjelasan Argumen:

Ada beberapa atribut yang sudah ditentukan sebelumnya, yaitu-

7 Contoh Penggunaan Fungsi VBA DIR di Excel

Dari uraian tersebut, Anda mungkin sudah memahami bahwa VBA DIR memberikan nama file dari pathname yang disediakan. Mari kita pahami dengan contoh. Di sini kita telah membuat direktori Exceldemy_Folder untuk menunjukkan kepada Anda berbagai contoh. Ada berbagai folder dan file kecil dalam folder ini.

1. Temukan Nama File dari Path

Di folder kita, kita bisa menemukan file tertentu dengan mendeklarasikan jalur nama file.

Setelah menyalin jalur file, Anda perlu menjalankan kode.

Untuk alasan ini, pergilah ke Pengembang tab>> memilih Visual Basic Lalu pergi ke Sisipkan tab>> pilih Modul. Dalam Umum kotak dialog, kita menulis kode.

Karena agenda kami adalah untuk menemukan Nama file dari pathname, kita akan mengatur pathname lengkap (dari root ke file) dan kode kita akan menjadi

 Sub Nama_File() Dim FN As String FN = Dir("E:\Exceldemy\Penjualan_Januari.xlsx") MsgBox FN End Sub 

Di sini, di dalam kode kita, kita telah menetapkan pathname sebagai E:\Exceldemy\Penjualan_Dari_Januari.xlsx

Perincian Kode:

• Awalnya, kita mendeklarasikan variabel string bernama FN Dan output dari Dir disimpan dalam variabel ini.
• Selanjutnya, yang Dir menemukan nama file dan mengembalikannya dari jalur yang disediakan.
• Kemudian MsgBox mengatur output melalui kotak pesan. MsgBox mengembalikan output menggunakan kotak pesan.

• Kemudian, jalankan kode dengan F5 kunci.

Akhirnya, kita telah menemukan file bernama Penjualan_dari_Januari.xlsx .

2. Periksa Keberadaan Direktori

Kita bisa memeriksa eksistensi direktori dengan menggunakan perintah Dir Mari kita tulis kode untuk memeriksa apakah fungsi Exceldemy Tuliskan kode berikut dalam kotak umum dan jalankan dengan perintah F5 kunci.

 Sub CheckFile() Dim PN As String Dim File As String PN = "E:\Exceldemy" File = Dir(PN, vbDirectory) If File "" Then MsgBox File & " ada" Else MsgBox "File tidak ada" End If End Sub 

Perincian Kode:

• Kita telah mendeklarasikan dua variabel; PN berisi pathname lengkap dari direktori pemeriksaan kita.
• Di sini, di dalam Dir kita telah menetapkan dua nilai, nama jalur dan nilai atribut sebagai vbDirectory Nilai atribut ini akan membantu untuk mendeteksi direktori. Dan output dari fungsi ini disimpan di dalam Berkas variabel.
• Kemudian kita memeriksa apakah variabel tersebut kosong atau tidak. Jika kita menemukan bahwa variabel tersebut tidak kosong, maka nyatakan keberadaan direktori tersebut melalui kotak pesan, jika tidak, kembalinya tidak ada.

Di sini, yang Exceldemy ada, jadi kita akan menemukan " Ada Exceldemy ", di mana Exceldemy adalah nama folder.

3. Membuat Folder yang Tidak Ada

Anda dapat membuat folder yang tidak ada di PC Anda. Untuk ini, Anda harus membuat nama jalur yang tidak ada di folder Anda. Bayangkan kita akan membuat direktori bernama Exceldemy_1 Kami akan menggunakan MkDir untuk membuat direktori, tetapi sebelum itu, kita perlu menulis yang berikut ini VBA kode.

 Sub CheckFile() Dim PN As String Dim File As String PN = "E:\Exceldemy_1" File = Dir(PN, vbDirectory) If File "" Then MsgBox File & " Folder file sudah ada" Else MkDir PN MsgBox "Folder file telah dibuat dengan nama" & File End If End Sub 

Di sini kita telah menulis perintah untuk membuat direktori menggunakan pathname dari Lain-lain blok kode kita. Lari kode dengan F5 kunci.

Direktori telah dibuat. Mari kita lihat folder direktori. Exceldemy_1 sekarang terlihat di komputer Anda.

Bacaan serupa:

• Cara Memanggil Sub dalam VBA di Excel (4 Contoh)
• Kembalikan Nilai dalam Fungsi VBA (Baik Nilai Array dan Non-Array)
• Gunakan Fungsi VBA UCASE di Excel (4 Contoh)
• Cara Menggunakan Fungsi TRIM dalam VBA di Excel (Definisi + Kode VBA)

4. Temukan File Pertama dari Direktori

Tugas utama dari Dir Yang perlu Anda sediakan di dalam fungsi ini adalah pathname (hingga direktori container), dan fungsi ini akan mengembalikan berkas pertama dari direktori tersebut.

Mari kita cari berkas pertama dari Exceldemy direktori. Kode kami akan menjadi

 Sub FirstFileinFolder() Dim FN As String Dim PN As String PN = "E:\Exceldemy\" FN = Dir(PN) MsgBox "First File: " & FN End Sub 

Anda bisa melihat kode dasarnya; kita telah mengoper nama jalur ke dalam Dir Fungsi. Sekarang Lari kode dengan F5 Anda akan menemukan file pertama dalam direktori ini.

5. Temukan Semua File dari Direktori

Pada bagian sebelumnya, kita telah melihat bagaimana menemukan nama file pertama dari sebuah direktori. Situasi mungkin muncul ketika Anda perlu menemukan semua file dari direktori tertentu. Untuk menemukan semua file dalam direktori tertentu, Anda harus menulis yang berikut ini VBA kode.

 Sub AllFile() Dim FN As String Dim FL As String FN = Dir("E:\Exceldemy\") Do While FN "" FL = FL & vbNewLine & FN FN = Dir() Loop MsgBox ("Daftar File:" & FL) End Sub 

Berikut ini dua variabel untuk menyimpan nama-nama file sebagai satu ( FN ), dan sebagai daftar ( FL ). Lakukan Sementara mengulang hingga tidak ada berkas yang tersisa di direktori, dengan menggunakan perulangan ini, kita mendorong setiap nama berkas ke dalam FL variabel.

Jalankan kode tersebut, dan Anda akan menemukan semua file dalam direktori, seperti pada gambar di bawah ini.

6. Menemukan Semua File dan Folder dari Direktori

Kita telah menyebutkan di bagian sebelumnya di mana menemukan semua file. Kita juga bisa menemukan semua sub-folder di dalam folder. Untuk melakukan ini, tuliskan yang berikut ini VBA kode yang telah kami lampirkan di bawah ini.

 Sub AllFileFolders() Dim AN As String Dim Lst As String AN = Dir("E:\Exceldemy_Folder\", vbDirectory) Do While AN "" Lst = Lst & vbNewLine & AN AN = Dir() Loop MsgBox ("File Lst:" & Lst) End Sub 

Perubahan dalam kode kita hanyalah penggunaan parameter atribut. Kita telah menggunakan vbDirectory di bidang itu. Lari kode, dan Anda akan menemukan semua file dan subfolder dari Exceldemy_Folder .

7. Temukan Semua File dari Jenis Tertentu

Menggunakan VBA Dir kita dapat menemukan jenis file tertentu. Mari kita jelajahi dengan sebuah contoh.

Kita akan menemukan .csv Kode kita akan menjadi seperti berikut-

 Sub SpecialTypeFiles() Dim FL As String Dim FN As String FN = Dir("E:\Exceldemy_Folder\Exceldemy\*.csv") Do While FN "" FL = FL & vbNewLine & FN FN = Dir() Loop MsgBox ("Daftar File .csv:" & FL) End Sub 

Kami harap Anda telah memahami kodenya, yang menggunakan mekanisme yang sama untuk menemukan file. Dalam nama jalur, kami menggunakan wildcard ( * Tanda bintang ini (*) menunjukkan bahwa karakter apa pun hingga angka apa pun dapat muncul. Wildcard telah digunakan sedemikian rupa sehingga nama file dapat berupa apa saja tetapi harus berupa .csv file.

Apabila Anda menjalankan kode, kode ini akan mengembalikan .csv file dari Exceldemy direktori.

Bagian Latihan

Kami telah menyediakan bagian latihan pada setiap lembar di sisi kanan untuk latihan Anda. Silakan lakukan sendiri.

Kesimpulan

Itu semua tentang sesi hari ini. Dan ini adalah beberapa contoh mudah dari VBA Dir Harap beri tahu kami di bagian komentar jika Anda memiliki pertanyaan atau saran. Untuk pemahaman yang lebih baik, silakan unduh lembar latihan. Kunjungi situs web kami, Exceldemy Terima kasih atas kesabaran Anda dalam membaca artikel ini.