Fungsi Untuk File Exist dan Not Exist pada Visual Basic 6.0


belajar visual basic lagi nih …😀

kali ini adalah fungsi untuk mengecek apakah file ada atau tidak ada

sebenarnya sih tanpa fungsi bisa seperti ini

If Dir(“C:\Test.txt”) <> “” Then
Msgbox “File ada”
Else
Msgbox “File tidak ada”
End If

namun kalau filenya beratribut hidden maka hasilnya file tida ada

oleh karena itu lebih baik memakai fungsi seperti ini

Public Function CheckPath(strPath As String) As Boolean
If Dir$(strPath) <> “” Then
MsgBox “file ada”
Else
MsgBox “file tidak ada”
End If
End Function

lalu panggil fungsinya di event lain

call CheckPath(“C:\Test.txt”)

happy coding aja..😀

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s