Minggu, 14 Agustus 2011

membuat cek file dengan vb6




Public Function FileExist(asPath as
string) as Boolean If UCase(Dir(asPath))=Ucase(trimPath(asPath))
then FileExist=true Else
FileExist=False End If
End Function
Public Function TrimPath(ByVal asPath as string) as
string
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

Tidak ada komentar:

Poskan Komentar

Related Posts Plugin for WordPress, Blogger...