لجعله لايتم تحميله طالما موجود

بسيطة ، إعمل شرط في الأول علي مسار الملف بمشغل السواقة هل هو موجود أم لا ، في حالة وجودة إلغي العملية ، وفي حالة عدم وجودة حمله كما تشاء ، مثال :

If(Dir(App.Path & "\Data.dat") = "")Then
	MsgBox "الملف غير موجود ، يجب عليك تحميلة"
	''هنا يمكننا تحميل الملف من علي الويب.
Else
	MsgBox "الملف موجود فلا داعي لتحميلة"
End If

شكراً

شككككككككككككككككككككرا لك اخي على مجهودك الطيب معي

تحياتي ..................

فؤاد سعد

انا جربته واشتغل شكرا لك اخي الكريم كايرو