تغير الفلدر الافتراضي ل GetOpenFilename

[omar elhosseini]

 

تغير الفلدر الافتراضي ل GetOpenFilename

 

المعروف عند استخدام 
GetOpenFilename
فأن الديالوج بوكس يفتح على الفلدر الافتراضي وهو
My Documents
ولا يمكن تغيره

ولكن يمكن اجبار
GetOpenFilename
علي تغير الفلدر الافتراضي لها
الي أي فلدر نريد بإستخدام دوال
API Functions
كما في هذا المثال

سوف تفتح علي الفلدر الحالي لهذا الملف
 

GetOpenFilename.rar

 

 

[محي الدين ابو البشر]

السلام  عليكم

بارك الله بك وبجهودك زادك الله علما

دمت ذخراُ

تقبل تحياتي

تم تعديل يوليو 26, 2016 بواسطه محي الدين ابو البشر

[saad abed]

اخى عمر

السلام  عليكم

بارك الله بك وبجهودك زادك الله علما

 

[omar elhosseini]

 

الاخ محي الدين ابو البشر

الاخ سعد عابد

شكرا لكم اعزائي

 

[ياسر خليل أبو البراء]

بارك الله فيك أستاذنا الكبير أبوتامر

يوجد كود لا يستلزم استدعاء API ..

Sub Test_GetOpenFilename()
'
ChDir ThisWorkbook.Path
PicList = Application.GetOpenFilename(FileFilter:="Picture Files (*.jpg;*.gif;*.png;*.bmp;*.tif;*.Emf;*.jpeg;*.GIF),*.jpg;*.gif;*.png;*.bmp;*.tif;*.Emf;*.jpeg;*.GIF", Title:="Please Choose An Image", MultiSelect:=True)
'
End Sub

 

 

[omar elhosseini]

 

الاخ ياسر خليل أبو البراء

اخي العزيز ياسر تحياتي لك

لم انتبه للدله

عزرا اخي العزيز

 

[ياسر خليل أبو البراء]

لا داعي للاعتذار أستاذي الفاضل ..

زيادة الخير خيرين .. وهذا إثراء للموضوع ليستفيد الجميع