محمد فاروق محمود قام بنشر فبراير 9, 2015 مشاركة قام بنشر فبراير 9, 2015 برجاء مساعدتى فى عمل زر لانشاء فولدر فى اى مكان على الجهاز وشكراً رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 9, 2015 مشاركة قام بنشر فبراير 9, 2015 أخي سبق أن طرحت موضوع بهذا الشأن وأتذكر أني أجبتك .... يبدو أنه لم يكن ما تريد يرجى توضيح المطلوب بشكل أدق .. هل تريد أن تظهر لك نافذة تختار منها مكان المجلد الذي سيتم إنشاؤه ، أم أنك تريد أن تكتب مسار المجلد الذي سيتم إنشاؤه في الكود نفسه ... واسم المجلد هل يعتمد على قيمة خلية معينة أم أنه ثابت أم أم ؟؟؟ تساؤلات تبدو لك كثيرة لكنها مهمة للوصول للحل بشكل أسرع أرجو ألا تكون متضايق من كلامي رابط هذا التعليق شارك More sharing options...
محمد فاروق محمود قام بنشر فبراير 9, 2015 الكاتب مشاركة قام بنشر فبراير 9, 2015 شكراً اخى على الاهتمام هى اول مرة اسال عن هذا الطلب برجاء يكون هناك مربع لاختار مكان انشاء الفولدر ومكان اخر يمكن استخدمة لاستعراض الفولدرات وفتحها وشكراً رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 9, 2015 مشاركة قام بنشر فبراير 9, 2015 الأخ الفاضل يبدو أنه كان سؤال لعضو آخر ... صراحة لم أفهم هل تقصد مربع InputBox تكتب فيه المسار المطلوب ؟ أم ماذا تقصد بالمربع ؟؟ هل تقصد نافذة حوارية أم ماذا؟ رابط هذا التعليق شارك More sharing options...
محمد فاروق محمود قام بنشر فبراير 9, 2015 الكاتب مشاركة قام بنشر فبراير 9, 2015 شكرا اخى ياريت نافذة حوارىة رابط هذا التعليق شارك More sharing options...
محمد فاروق محمود قام بنشر فبراير 11, 2015 الكاتب مشاركة قام بنشر فبراير 11, 2015 ممكن مساعدى رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 11, 2015 مشاركة قام بنشر فبراير 11, 2015 أخي الكريم محمد إليك الملف التالي ..بالضغط على زر الأمر ستظهر لك نافذة حوارية تختار منها المسار الذي تريد إنشاء المجلد فيه ، ثم تضغط أوك سيقوم الكود بعمل مجلد باسم بناءً على القيمة الموجودة في الخلية A1 أرجو أن يكون هذا هو المطلوب Create Folder Using File Dialog.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 11, 2015 مشاركة قام بنشر فبراير 11, 2015 كما يمكنك تطوير الكود بهذا الشكل ليمكنك من إنشاء الكثير من المجلدات دفعة واحدة حسب القيم في النطاق A1:A5 بهذا الشكل Sub CreateFolder() Dim sPath As String Dim I As Long sPath = GetFolder For I = 1 To 5 If Len(sPath) <> 0 Then If Dir(sPath & "\" & Cells(I, 1).Value, vbDirectory) = vbNullString Then MkDir sPath & "\" & Cells(I, 1).Value End If End If Next I End Sub Function GetFolder() As String Dim dlg As FileDialog Set dlg = Application.FileDialog(msoFileDialogFolderPicker) dlg.InitialFileName = "C:\" If dlg.Show = -1 Then GetFolder = dlg.SelectedItems(1) End If End Function 1 رابط هذا التعليق شارك More sharing options...
محمد فاروق محمود قام بنشر فبراير 11, 2015 الكاتب مشاركة قام بنشر فبراير 11, 2015 فى ميزان حسناتك يا اخى شكراً 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 11, 2015 مشاركة قام بنشر فبراير 11, 2015 (معدل) بدل شكرا قول جزاكم الله خيراً (أنا بفضلها ..إذا مكانش فيها تعب عليك) نقطة أخرى اضغط على المشاركة اللي أعجبتك كأفضل جابة تسهيلا للباحث فيما بعد للوصول بسرعة إلى أفضل الحلول ، وعشان آخد منك نقطة هههه تقبل تحياتي تم تعديل فبراير 11, 2015 بواسطه YasserKhalil رابط هذا التعليق شارك More sharing options...
محمد فاروق محمود قام بنشر فبراير 11, 2015 الكاتب مشاركة قام بنشر فبراير 11, 2015 جزاك الله كل الخير بحاول اعمل برنامج صغير لحفظ المستندات الوارد من الاسكانر ووضعها فى فولدرات وعمل شيت ادخال للبيانات وعمل فورم للبحث هل فى فكرة زى دى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.