'Aku biasanya pakai fungsi ini
Public Function FileAda(NamaFile As String) As Boolean
Set FS = CreateObject(" Scripting.FileSystemObject")
Set FS = CreateObject(" Scripting.FileSystemObject")
FileAda = IIf(FS.FileExists(NamaFile), True, False)
End Function
End Function
Private Sub Command1_Click()
NamaFile$ = "C:\Autoexec.bat"
If FileAda(NamaFile) Then
MsgBox NamaFile & " ditemukan", vbInformation
Else
MsgBox NamaFile & " tidak ditemukan", vbInformation
End If
End Sub
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
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.
