مسار حفظ الملف للأداة Commondialog

طبعا بكل تأكيد ،، فقط لا تستخدم الـCommon Dialog بل استخدم اداة الـFile من الادوات الرئيسية واعطها المسار المحدد في الحدث Load للفورم التي توجد عليه .

وتحديد المسار لها عن طريق الكود التالي .

File1.Path = App.Path & "\TestFolder"

حيث ان الـ App.Path هي لتحديد مسار البرنامج و الـ TestFolder هو المجلد الذي يحوي ملفاتك الخاصة التي تريد عرضها في اداتك السابقة .

كما يمكنك تحديد امتدادات الملفات التي تريد عرضها فقط في الاداة السابقة عن طريق الخاصية Pattern والتي غالبا ما تكون القيمة الافتراضية لها هي جميع الملفات ويرمز لها بالـ *.*

تحياتي لك .

شكرا لك أخي الكريم ...

بالنسبة للقسم ...

اقتباس

هل من طريقة تلزم المستخدم بحفظ ملفه الجديد في مسار معين (مسار المشروع نفسه) أي جعل تغيير المسار غير ممكن

طبعا اخي ، بنفس الطريقة استخدم الـApp.Path اذا كنت تريد حفظ الملف في نفس مسار البرنامج .

مثال .

Open App.Path & "\Test.TXT" For Append As #1

Print #1,"Prof_1982"

Close #1

حيث ان الكود السابق يقوم بانشاء ملف من نوع نص في مسار البرنامج دون تدخل المستخدم ، وسيقوم بطباعة كلمة Prof_1982 داخل الملف .

تحياتي

السلام عليكم ورحمة الله وبركاتة

أخى الفاضل مثل ما قال الأخ بروف ولكن لى بعض التعديل

mypath = App.Path

If Right$(mypath, 1) <> "\" Then mypath = mypath & "\"

وهكذا أخى الفاضل سوف يحمل المتغير mypath مسار مجلد برنامجك ولو كان فى محث القرص مباشرة
إليك هذا المثال للكتابة فى ملف والقراءة منة ويمكنك تغيير إسم الملف المطلوب بدلا من
Text.txt
لكتابة ملف وقراءتة.zip

Dim mypath As String