إنشاء مجلد يختار اسمه وموقعه المستخدم

السلام عليكم

بحمد الله وتوفيقه وبعد تكرار المحاولة والخطأ .. تم الوصل للكود من المنتدى بعد إجراء تعديل خفيف ..

وهو كالتالي :

Public Sub newfoldr(fpath As String)
Dim strNewFolderName As String
strNewFolderName = "New Folder Jan"
If Len(Dir(fpath, vbDirectory)) = 0 Then
    MkDir (fpath)
End If
End Sub

وعند ضغط الزر يتم استدعاءه :

Call newfoldr([txt1])

بحيث أن txt1 = حقل يدخل فيه المستخدم اسم المجدلو موقعه مثل : D:\mot

شكرا لكم .

يتبقى فقط :

كيف نظهر رسالة إذا كان المجلد موجود مسبقا ؟!!

هذه أنتظرها منكم ولن يخيب أملي فيكم إن شاء الله .

تفضل عزيزي طلبك ..

AZ_mkdir.rar

عذرا لقد قمت بتحميل الملف الذي لم يتم التعديل عليه

لقد تم تحديث المشاركة السابقة بالمرفق الجديد ( أرجو ملاحظة ذلك أخي فتى الوادي )

يعطيك العافية وما قصرت ..

بارك الله فيك وفي علمك ونفع الله بك ...

ممكن طلب آخر

هل يمكنك تعديل الكود بحيث إذا كان المجلد موجود يعطي رسالة "المجلد موجود مسبقاً.. هل تريد استبداله؟" نعم/لا

إذا أمكن