الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود إنشاء مجلد

مغلق
بدأه محمدvb في 24 يوليو 2006 · 5 رد · 686 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخواني هذا الكود صغير وجميل جداً وهو ينشئ مجلد إذا أردت تنشئ مجلد مثلاً في الدرايفر C اكتب الكود التالي

MkDir ("C:\مجلد جديد 1")

أما لو حبيت تنشئ مجلد داخل مجلد البرنامج الكود التالي سوف يقوم بالغرض

MkDir App.Path & "\" & ("مجلد جديد 1")

ولكن لدي سوال هل بالإمكان انشي المجلد مخفي؟

وأيضاَ لحذف المجلد مثلاً من الدرايفر C نكتب الكود التالي

RmDir ("C:\مجلد جديد 1")

أما لو حبيت تحذف مجلد موجود داخل مجلد البرنامج الكود التالي سوف يقوم بالغرض

RmDir App.Path & "\" & ("مجلد جديد 1")

تحياتي للأخوه جميعاً

ولا تنسون إجابة سؤالي لمن يعرف الإجابه كيف انشي المجلد مخفي ؟

تم تعديل هذه المشاركة بواسطة محمدvb في 24 يوليو 2006 في 23:21

#2

يمكنك فعل ذلك عن طريق

MkDir ("C:\new folder2")

SetAttr "C:\new folder2", vbHidden

#3

شكراً جزيلاً اخي super rio

كود جميل ،، تحياتي

#4

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

على هذه الأكواد

#5

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

يشرفني ان اكون من اعضاء هذا المنتدى الجميل

اخواني

قمت بكتابة الكود الخاص بنسخ قاعدة البيانات ووضعها في مجلد خاص اسميته بنفس تاريخ اليوم ولكن وجهتني مشكلتين

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

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

هذا ولكم مني كل التقدير والاحترام على الجهود التي هي اكثر من رائعه .

#6

تحياتي للجميع

ابشركم توصلت الى حل المشكلة الاولى وهذا بفضل الله ثم بفضل هذا المنتدى الجميل

في هذه الطريقة

d = Format(Date, "dd") & "_" & Format(Date, "m") & "_" & Format(Date, "yyyy") L

past_d = Format(Date, "dd") & "_" & Format(Date, "m") - 1 & "_" & Format(Date, "yyyy") L

MsgBox past_d

x = "d:\packup\" & past_d

If Fsys.FolderExists(x) = True Then

Fsys.DeleteFolder x

End If

x = "d:\packup\" & d

If Fsys.FolderExists(x) = False Then

Fsys.CreateFolder "d:\packup\" & d

FileCopy App.Path & "\test1.mdb", x & "\test1.mdb"

End If

اما المشكلة الثانية فاتمنا من الجميع المساعدة لاني صراحة عجزت وانا ادور

الشكر للجميع

هذا الموضوع مغلق.

مواضيع مشابهة