VB6 Code - Fungsi Untuk Mengetahui Keberadaan Sebuah Folder

Di bawah ini merupakan fungsi VB6 untuk mengetahui keberadaan folder.

Fungsi untuk mengetahui keberadaan folder:

Function IsFolderExist(FolderName As String) As Boolean
     IsFolderExist = (Dir$(FolderName, vbDirectory) <> "")
End Function

Contoh penggunaan fungsi untuk mengetahui keberadaan sebuah folder:

Private Sub Form_Load()
     MsgBox IsFolderExist("C:\Windows") 'True jika ada
     MsgBox IsFolderExist("C:\Data Asep Hibban") 'False jika tidak ada
End Sub