Mengecek keberadaan file dan folder

'Fungsi mengecek keberadaan suatu file dan folder

Function FileExist(ByRef sFname) As Boolean
If Len(Dir(sFname, 16)) Then FileExist = True Else FileExist = False
End Function