مساعدة في انشاء فولدر

[ازهر عبد العزيز]

السلام عليكم 

لدي هذا المسار   C:\Libraries\Library1\BOOKS

اريد انشاء فولدر داخل الفولدر BOOKS  من خلال الزر  الموجود بحسب الاسم المدخل في مربع النص الموجود في النمودج

Libraries.rar

[Foksh]

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

Sub CreateFolder()
    Dim folderPath As String
    Dim folderName As String
    
    folderPath = "C:\Libraries\Library1\BOOKS\"
 
    folderName = Me.TextBox1.Value
    
    MkDir folderPath & folderName
End Sub

فقط قم بتغيير اسم مربع النص TextBox1

واستدعِ اسم الدالة CreateFolder في الزر 😊

وكل عام وأنتم بخير 💐

[ازهر عبد العزيز]

7 دقائق مضت, Foksh said:

وكل عام وأنتم بخير 💐

وانت بالف خير اخي ربي يحفظكم

في حال الفولدر موجود تظهر رسالة خطأ ممكن حل للمشكلة

[محمد احمد لطفى]

مشاركة أستاذى @Foksh

 

Dim folderPath As String
Dim folderName As String
Dim checkFolder As String

folderPath = "C:\Libraries\Library1\BOOKS\"
folderName = Me.TextBox1.Value
checkFolder = Dir(folderPath & folderName, vbDirectory)

If checkFolder = "" Then
    MkDir folderPath & folderName
Else
    MsgBox "Folder already exists!", vbExclamation
End If

 

[ازهر عبد العزيز]

6 دقائق مضت, محمد احمد لطفى said:

مشاركة أستاذى @Foksh

جزاك الله كل خير اخي

ماذا لو تم نغير المسار بالكامل مستقبلا  C:\Libraries\Library1\BOOKS الى  D:\Libraries\Library1\BOOKS

هل هناك طريقة لجعل الكود ياخذ المسار بحسب وجود قاعدة البيانات 

[Foksh]

بسيطة اخي @ازهر عبد العزيز

جرب هذا التعديل ، تقدر تستخدم المديول في أي مكان وفي اي نموذج 🤗

باستخدام كود الدالة التالي :-

Public Sub CreateDataFolder()
On Error Resume Next
Dim FolderA As String
Dim FolderB As String
Dim FolderC As String
Dim FolderD As String
Dim FormsName As String
FolderA = "Libraries"
FolderB = "Library1"
FolderC = "BOOKS"
FormsName = frm.Name
FolderD = Forms(frm).Controls("BookName").Value

    If Len(Dir(FolderA, vbDirectory)) = 0 Then
    MkDir CurrentProject.Path & "\" & FolderA
    If Len(Dir(FolderB, vbDirectory)) = 0 Then
    MkDir CurrentProject.Path & "\Libraries\" & FolderB
    If Len(Dir(FolderC, vbDirectory)) = 0 Then
    MkDir CurrentProject.Path & "\Libraries\Library1\" & FolderC
    If Len(Dir(FolderD, vbDirectory)) = 0 Then
    MkDir CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderD
    End If
    End If
    End If
    End If
End Sub

Libraries.accdb

[ازهر عبد العزيز]

5 دقائق مضت, Foksh said:

جرب هذا التعديل

اتعبتك يااخي لكن ممكن شرح لهذا الكود

If Len(Dir(FolderA, vbDirectory)) = 0 Then
    MkDir CurrentProject.Path & "\" & FolderA

 

[Foksh]

التأكد من وجود المجلد الرئيسي Libraries بجانب قاعدة البيانات اينما كانت ، في حال عدم وجوده يتم انشاء المجلد ، وهكذا باقي الجمل الشرطية ..... 😊

[ازهر عبد العزيز]

1 دقيقه مضت, Foksh said:

التأكد من وجود المجلد الرئيسي Libraries بجانب قاعدة البيانات اينما كانت ، في حال عدم وجوده يتم انشاء المجلد ، وهكذا باقي الجمل الشرطية ..... 😊

ما شاء الله عليك اخي احسنت زادك الله علما وعافية طلب اخر يا اخي القلولدرات Libraries , Library1 , BOOKS دائما ستكون موجودة بجانب القاعدة لا احتاج الى التاكد من وجودهن ممكن اختصار الكود الاخير لو تفضلت بحسب المطلوب 

[Foksh]

تفضل أخي @ازهر عبد العزيز

Public Sub CreateDataFolder()
On Error Resume Next
Dim FolderA As String
FolderA = Forms(frm).Controls("BookName").Value
    If Len(Dir(FolderA, vbDirectory)) = 0 Then
    MkDir CurrentProject.Path "\Libraries\Library1\BOOKS\" & FolderA
    End If
    End Sub

 

تم تعديل أبريل 11, 2024 بواسطه Foksh
ازالة & زائدة

[ازهر عبد العزيز]

ظهرت لي هذة المشكلة

 

تم تعديل أبريل 11, 2024 بواسطه ازهر عبد العزيز

[محمد احمد لطفى]

تفضل 

 

    MkDir CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA

 

[Foksh]

18 دقائق مضت, ازهر عبد العزيز said:

ظهرت لي هذة المشكلة

 

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

تم تعديل أبريل 11, 2024 بواسطه Foksh

[ازهر عبد العزيز]

لم يعمل الكود عندي @Foksh ارجو حل المشكلة

[Foksh]

😅

حاااضر ، تفضل هذا الملف مع التعديل بناءً على طلبك .

CreateFolder.accdb

[محمد احمد لطفى]

تعديل صغير للتأكد من وجود الملف قبل انشاء ملف جديد

 

Dim MaakeFolder As String
MaakeFolder = CurrentProject.Path & "\Libraries\Library1\BOOKS\" & Me.BookName
    If Len(Dir(MaakeFolder, vbDirectory)) = 0 Then
    MkDir MaakeFolder
    End If

 

Libraries.rar

[Foksh]

متابعة الأستاذ @محمد احمد لطفى مشكورة 🥰 .

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

 

واختر ما يناسبك .

[ازهر عبد العزيز]

1 ساعه مضت, Foksh said:

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

 

واختر ما يناسبك

اسف استاذ لم يعمل لا اعرف السبب هل قمت بتجربتة 

[ازهر عبد العزيز]

تمام استاذ لمشكلة عندي انتم وضعتم 

MkDir CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA

غيرتة الى 

MkDir CurrentProject.Path & "\Library1\BOOKS\" & FolderA

الان تمام

الاستاذ  @محمد احمد لطفى الاستاذ @Foksh تعجز الكلمات عن الشكر لكن طلب اخر ارجو ان يتسع لي

احتاج كو تحت زر لفتح هذا الفولدر الذي بتم انشائة 

[Foksh]

منذ ساعه, ازهر عبد العزيز said:

اسف استاذ لم يعمل لا اعرف السبب هل قمت بتجربتة 

أخي لو لم تتم التجربة لما ارفقت الملف لك 

 

50 دقائق مضت, ازهر عبد العزيز said:

احتاج كو تحت زر لفتح هذا الفولدر الذي بتم انشائة 

تفضل ،

    Dim FolderA As String
    FolderA = BookName.Value
    If Len(Dir(CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA, vbDirectory)) > 0 Then
        Shell "explorer.exe """ & CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA & """", vbNormalFocus
    Else
        MsgBox "المجلد غير موجود", vbExclamation
    End If

ضع هذا الكود في أي زر أو حدث تريده

تم تعديل أبريل 11, 2024 بواسطه Foksh

[kkhalifa1960]

6 ساعات مضت, ازهر عبد العزيز said:

لدي هذا المسار   C:\Libraries\Library1\BOOKS

اريد انشاء فولدر داخل الفولدر BOOKS  من خلال الزر  الموجود بحسب الاسم المدخل في مربع النص الموجود في النمودج

مشاركة مع اخواني تفضل استاذ @ازهر عبد العزيز محاولتي .

Libraries.rar

[ازهر عبد العزيز]

الاستاذ @Foksh , @محمد احمد لطفى , @kkhalifa1960

طلب اخير او قبل الاخير 

هل يوجد كود لحذف الفلولدر الذي يتم انشائة اي كود تحت زر لحذف الفولد بحسب اسم الكتاب الموجود في حقل 

BookName

[Foksh]

7 دقائق مضت, ازهر عبد العزيز said:

الاستاذ @Foksh , @محمد احمد لطفى , @kkhalifa1960

طلب اخير او قبل الاخير 

هل يوجد كود لحذف الفلولدر الذي يتم انشائة اي كود تحت زر لحذف الفولد بحسب اسم الكتاب الموجود في حقل 

BookName

أخي @ازهر عبد العزيز ، لاحظ أن الموضوع قد تشعب لأكثر من سؤال .

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

 

Dim FolderA As String
Dim FolderPath As String

FolderA = BookName.Value
FolderPath = CurrentProject.Path & "\Library1\BOOKS\" & FolderA

If Len(Dir(FolderPath, vbDirectory)) > 0 Then
    If Dir(FolderPath & "\", vbNormal) <> "" Then
        Dim Response As VbMsgBoxResult
        Response = MsgBox("هل ترغب في حذف المجلد ومحتوياته؟", vbQuestion + vbYesNo)
        
        If Response = vbYes Then
            Kill FolderPath & "\*.*"
            RmDir FolderPath
        End If
    Else
        RmDir FolderPath
    End If
Else
    MsgBox "المجلد غير موجود", vbExclamation
End If

 

[ازهر عبد العزيز]

9 دقائق مضت, Foksh said:

لاحظ أن الموضوع قد تشعب لأكثر من سؤال

صحيح استاذ حاولت تغير اسم الموضوع الى (التعامل مع المجلدات في اكسس) لكني لم استطيع ارجو من ادرارة المنتدى تغييرة ليكون مرجع مفيد لمن يبحث عن موضوع مشابة

[kkhalifa1960]

48 دقائق مضت, ازهر عبد العزيز said:

هل يوجد كود لحذف الفلولدر الذي يتم انشائة اي كود تحت زر لحذف الفولد بحسب اسم الكتاب الموجود في حقل 

تفضل 

Libraries-1.rar