سؤال في list

لا توجد دالة في فيجوال بيسيك ترجع اسم الملف من العنوان، لكن هذه دالة تقوم بهذه المهمة بإسم ExtractFileName

Private Function ExtractFileName(ByVal vStrFullPath As String) As String
    Dim intPos As Integer
    intPos = InStrRev(vStrFullPath, "\")
    ExtractFileName = Mid$(vStrFullPath, intPos + 1)
End Function

Private Sub Command1_Click()
  CommonDialog1.ShowOpen
  List1.AddItem (ExtractFileName(CommonDialog1.FileName))
End Sub

بالنسبة لنسخ الملفات إستخدم CopyFile من دوال ال API لذلك

الشكر الجزيل لك أخي أنا لم أجرب الكود بعد ولكن حبيت إني أشكرك لتقديم المساعدة, بالنسبة لنسخ الملفات باستخدام الدالة api فأنا لم أسمع عن ذلك يا ريت تكتبلي مثال لو ممكن وأكون لك من الشاكرين.

تـــفضل .

لقد صممت لك هذا المثال

تحياتي .

واي سؤال انا تحت امرك

EX.zip

اقتباس

الشكر الجزيل لك أخي أنا لم أجرب الكود بعد ولكن حبيت إني أشكرك لتقديم المساعدة, بالنسبة لنسخ الملفات باستخدام الدالة api فأنا لم أسمع عن ذلك يا ريت تكتبلي مثال لو ممكن وأكون لك من الشاكرين.

يمكنك زيارة موضوع شرح دوال API الموجود فى توقيعى وستجد شرح للدالة CopyFile :rolleyes:

ألف شكر لكم إخوتي أحمد وغوست على هذا المجهود الرائع والمساعدة الطيبة وهذا الكرم هو شيئ طبيعي من أعضاء متميزين مثلكم

أخ أحمد المثال سهل جدا وهو المطلووب بالضبط .

في الحقيقة عندي استفسارين الأول:

في المثال موجود جملة commondialog1.action =1 هل لهذا الكود دلالة معينة أو ما هو عمله

الثاني :-

أريد أن أقوم بإنشاء عدد من المجلدات مثلا :-

المشروع موجود في مجلد c:\pro

ما أريده هو صنع مجلدات مثل 1 , 2 , 3 ولكن عند تحزيم البرنامج أريد أن يتم وضعهم في ملف ال setup

يعني لو نزلت البرنامج على جهاز آخر يتم تنزيلو مع المجلدات .

أرجو أن لا أكون ثقيلا عليك وشكرا جزيلا لك

CommonDialog1.Action=1 تساوى CommonDialog1.ShowOpen

اقتباس

ما أريده هو صنع مجلدات مثل 1 , 2 , 3 ولكن عند تحزيم البرنامج أريد أن يتم وضعهم في ملف ال setup

يعني لو نزلت البرنامج على جهاز آخر يتم تنزيلو مع المجلدات .

اذا كنت تستعمل المعالج الموجود مع فيجوال بيسيك لعمل Setup فلا اظن انه يملك خاصية اضافة مجلدات اما البرامج الاخرى مثل Setup Factory , Install Shield , Install Creator فمن الممكن ان تضيف اى مجلدات تريدها :rolleyes:

مشكور جدا أخي محمد المهدي ولكن كما تعلم فإن البرنامج يحوي ملفات activex يتم تضمينها في ملف الsetup الذي يتم صنعه من معالج الفيجيوال فهل هذه البرامج تؤدي نفس الغرض؟

يارب يكون المثال عجبك وجميع اسألتك قام بالرد عليها الاخ محمد اما بالنسبة لـ

اقتباس

البرنامج يحوي ملفات activex يتم تضمينها في ملف الsetup الذي يتم صنعه من معالج الفيجيوال فهل هذه البرامج تؤدي نفس الغرض؟

طبعا اخي بل افضل جدا ... واجملهم من راي واسهلهم Install Creator

أخي الفاضل أحمد والله إني أخجل من كرم أخلاقكم وهذه هي أخلاق المبرمج الحقيقي طبعا انا لا أعتبر نفسي مثلكم فالطريق أمامي طويلة لأصبح مثلكم , كيف أحصل على البرنامج المذكور

تفضل اخي هذا رابط للاخ a7med_prof يحتوي على البرنامج + الشرح بالتفصيل

اسف

من هنا

شكرا لكم جميعا على هذه الردود والمساعدات الرائعة

إخوتي الأعزاء بالنسبة الدالة التي أدرجها الأخ محمد نسمان هي مهمة جدا جدا عند ربط إسم ملف "مسارو " بقاعدة بيانات و تشغيل هذا الملف مرة أخرى وهذا وفق تجربتي وشكرا.