Cek File dan Folder (VB 6.0)

Berikut ini saya bagikan kode program untuk mengecek File dan Folder menggunakan VB 6.0 (Visual Basic 6.0). OK, langsung saja ke kode programnya.
Berikut kode untuk mengecek keberadaan File.

Set b = CreateObject("Scripting.FileSystemObject")
If b.FileExists("C:\Program Files\Movie Maker\moviemk.exe") = True Then
MsgBox "File Ada"
Else
MsgBox "File Tidak Ada"
End If

Berikut kode untuk mengecek keberadaan Folder.

Set b = CreateObject("Scripting.FileSystemObject")
If b.FolderExists("C:\Program Files\Movie Maker") = True Then
MsgBox "Folder Ada"
Else
MsgBox "Folder Tidak Ada"
End If

Atau Anda juga bisa menggunakan kode berikut ini.

Kode untuk mengecek keberadaan File.

If Dir$("C:\Program Files\Movie Maker\moviemk.exe") <> "" Then
MsgBox "File Ada"
Else
MsgBox "File Tidak Ada"
End If

Kode untuk mengecek keberadaan Folder.

If Dir$("C:\Program Files\Movie Maker",vbDirectory) <>　"" Then
MsgBox "Folder Ada"
Else
MsgBox "Folder Tidak Ada"
End If

Langsung saja download contoh programnya disini atau disini.