How Check For a File - Bagaimana Mengecek sebuah File
Contoh berikut adalah contoh bagaiman mengecek sebuah file. Code dibuat sangat sederhana sehingga mundah untuk dipelajari, sangat cocok untuk pemula yang baru belajar dari nol.
Membuat Function FileExist:
x=Instr(asPath,"\")
if x=0 then Exit Do
asPath=Right(asPath,Len(asPath)-x)
Loop
TrimPath=asPath
End Function 'end of fungsi
Private sub command1_Click() 'command button
if fileExist(Text1.text) then
Label1="YES"
else
Label1="NO"
End if
End Sub 'end command button
Ilmu Visual Basic
("catatan : bukan isi sebenranya")
masuk kesini
Membuat Function FileExist:
Public Function FileExist(asPath as string) as Boolean ' fungsi
If UCase(Dir(asPath))=Ucase(trimPath(asPath)) then
FileExist=true
Else
FileExist=False
End If
End Function 'end of fungsi
if Len(asPath)=0 then Exit Function
Dim x as integer
Do
x=Instr(asPath,"\")
if x=0 then Exit Do
asPath=Right(asPath,Len(asPath)-x)
Loop
TrimPath=asPath
End Function 'end of fungsi
Private sub command1_Click() 'command button
if fileExist(Text1.text) then
Label1="YES"
else
Label1="NO"
End if
End Sub 'end command button
Ilmu Visual Basic
("catatan : bukan isi sebenranya")
masuk kesini