Cara Menggunakan Dir $ di VB6
Bahasa pemrograman Visual Basic masih memiliki beberapa kegunaan dalam pemrograman modern dan pengembangan aplikasi, dan dengan demikian Anda mungkin menemukan diri Anda menyelidiki sintaksnya untuk membuat aplikasi profesional perusahaan Anda bekerja dengan aplikasi lama atau pustaka kode. Menggunakan fungsi $ Dir memungkinkan Anda untuk dengan mudah melihat bagaimana pencarian file dan folder dilakukan melalui VB6.
1.
Gunakan fungsi $ Dir untuk memeriksa apakah ada file. Jika file tidak ada, fungsi mengembalikan string kosong. Kode berikut menentukan apakah file "example.txt" ada di direktori C:
Jika Dir $ ("C: \ example.txt") = "" Maka Msgbox "tidak di sini!" Lainkan Msgbox "di sini" Akhiri Jika
2.
Gunakan Dir $ untuk memeriksa apakah ada direktori. Perintah ini identik dengan yang memeriksa apakah ada file, tetapi membutuhkan penggunaan argumen tambahan, "vbDirectory, " di pemanggilan fungsi. Kode contoh ini memeriksa keberadaan folder bernama "contoh" di partisi C:
Jika Dir $ ("C: \ example", vbDirectory) = "" Maka Msgbox "tidak di sini!" Lainkan Msgbox "di sini" Akhiri Jika
3.
Gunakan Dir $ untuk mendaftar isi direktori. Jika Anda tahu ada direktori, Anda bisa menggunakan Dir $ untuk mendaftar file dalam direktori itu. Menggunakan variabel bernama "nama, " gunakan Dir $ bersama dengan loop Do-While untuk menarik nama setiap file dalam direktori yang memiliki ekstensi file .txt:
Redupkan nama Sebagai String
name = Dir $ ("C: \ example * .txt") Lakukan Sampai name = "" Cetak nama nama = Dir $ () Loop