انشاء مجلد جديد مع بداية البرنامج

ضع هذه الشفرة في التعريف العام

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

وهذه أثناء أقلاع البرنامج

    MakeSureDirectoryPathExists "c:\HnHn\test\"

حيث Test هو أسم المجلد المطلوب التأكد من وجوده وحال عدم ذلك .. يتم أنشاءه

أم بالنسبة لـ

اقتباس

اني اريد ان ابحث في هذا المجلد عن ملف معين

استخدم Dir

If Dir(app.path & "\HnHn.jpg") <> "" Then 
MsgBox "الصورة موجوده"
else
MsgBox "الصورة غير موجوده"
end if

شكرا جزيلا على المساعدة ... الكود شغال حلاوة ;)