Cek Keberadaan Folder di VB6

Dim CekFolderFile As String
CekFolderFile = App.path

If Right$(CekFolderFile, 1) <> "\" Then CekFolderFile = CekFolderFile & "\Database\"
CekFolderFile = CekFolderFile & "DB_Login.mdb"

If Not FileExist(CekFolderFile) Then
MsgBox "Maaf, file Database Login tidak ada ... gagal loading, hubungi Administrator ! ", vbCritical, _
"Terjadi Kesalahan : Aplikasi tidak bisa dilanjutkan "
End
Else

End If