برجاء المساعدة فى انشاء زر لانشاء فولدر جديد فى اي مكان ممكن اختارة بالجهاز

[محمد فاروق محمود]

برجاء مساعدتى فى عمل زر لانشاء فولدر فى اى مكان على الجهاز وشكراً

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

أخي سبق أن طرحت موضوع بهذا الشأن

وأتذكر أني أجبتك .... يبدو أنه لم يكن ما تريد

يرجى توضيح المطلوب بشكل أدق ..

هل تريد أن تظهر لك نافذة تختار منها مكان المجلد الذي سيتم إنشاؤه ، أم أنك تريد أن تكتب مسار المجلد الذي سيتم إنشاؤه في الكود نفسه ...

واسم المجلد هل يعتمد على قيمة خلية معينة أم أنه ثابت أم أم ؟؟؟ تساؤلات تبدو لك كثيرة لكنها مهمة للوصول للحل بشكل أسرع

أرجو ألا تكون متضايق من كلامي

[محمد فاروق محمود]

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

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

الأخ الفاضل

يبدو أنه كان سؤال لعضو آخر ...

صراحة لم أفهم هل تقصد مربع InputBox تكتب فيه المسار المطلوب ؟ أم ماذا تقصد بالمربع ؟؟ هل تقصد نافذة حوارية أم ماذا؟

[محمد فاروق محمود]

شكرا اخى ياريت نافذة حوارىة

[محمد فاروق محمود]

ممكن مساعدى

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

أخي الكريم محمد

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

سيقوم الكود بعمل مجلد باسم بناءً على القيمة الموجودة في الخلية A1

أرجو أن يكون هذا هو المطلوب

Create Folder Using File Dialog.rar

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

كما يمكنك تطوير الكود بهذا الشكل ليمكنك من إنشاء الكثير من المجلدات دفعة واحدة حسب القيم في النطاق 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

[محمد فاروق محمود]

فى ميزان حسناتك يا اخى شكراً

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

بدل شكرا قول جزاكم الله خيراً (أنا بفضلها ..إذا مكانش فيها تعب عليك)

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

تقبل تحياتي

تم تعديل فبراير 11, 2015 بواسطه YasserKhalil

[محمد فاروق محمود]

جزاك الله كل الخير بحاول اعمل برنامج صغير لحفظ المستندات الوارد من الاسكانر ووضعها فى فولدرات وعمل شيت ادخال للبيانات وعمل فورم للبحث هل فى فكرة زى دى