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