tambahkan di module :
Public Function DirExists(ByVal strDirName As String) As Boolean
DirExists = IIf(Dir$(strDirName, vbDirectory) = "", False, True)
End Function
Public Function FileExist(strPath As String) As Boolean
FileExist = IIf(Not (Dir(strPath) = "") = 0, False, True)
End Function
di badan program bisa pakai
select case fileexists("path dan namafile")
case true
msgbox " file ada"
case false
msgbox "file tidak ada"
end select
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
