السلام عليكم
هذه الداله تقبل إسم ملف و ترجع بقيمه true لو وجد . غير ذلك ترجع ب false :-
شفرة:
--------------------------------------------------------------------------------
Function file_exist(file_name As String) As Boolean
On Error GoTo Not_exist
Name file_name As file_name
file_exist = True
Exit Function
:Not_exist
file_exist = False
End Function
--------------------------------------------------------------------------------
والسلام