Memeriksa keberadaan sebuah file

Digunakan untuk mengecek keberadaan sebuah file pada komputer anda dengan fungsi DIR$Function FileExists(strPath As String) As BooleanDim lngRetVal As LongOn Error Resume NextlngRetVal = Len(Dir$(strPath, vbReadOnly Or _ vbSystem Or _ vbHidden Or _ vbArchive Or _ vbNormal)) If Err Or lngRetVal = 0