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

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

السلام عليكم 

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

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

Libraries.rarFetching info...

[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 في الزر 😊

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

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

  في 11‏/4‏/2024 at 10:50, Foksh said:

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

Expand  

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

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

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

مشاركة أستاذى @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

 

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

  في 11‏/4‏/2024 at 11:07, محمد احمد لطفى said:

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

Expand  

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

ماذا لو تم نغير المسار بالكامل مستقبلا  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.accdbFetching info...

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

  في 11‏/4‏/2024 at 11:29, Foksh said:

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

Expand  

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

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

 

[Foksh]

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

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

  في 11‏/4‏/2024 at 11:44, Foksh said:

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

Expand  

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

  في 11‏/4‏/2024 at 12:38, ازهر عبد العزيز said:

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

 

Expand  

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

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

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

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

[Foksh]

😅

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

CreateFolder.accdbFetching info...

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

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

 

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

 

Libraries.rarFetching info...

[Foksh]

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

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

 

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

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

  في 11‏/4‏/2024 at 14:00, Foksh said:

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

 

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

Expand  

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

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

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

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

غيرتة الى 

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

الان تمام

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

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

[Foksh]

  في 11‏/4‏/2024 at 15:34, ازهر عبد العزيز said:

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

Expand  

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

 

  في 11‏/4‏/2024 at 15:44, ازهر عبد العزيز said:

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

Expand  

تفضل ،

    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]

  في 11‏/4‏/2024 at 10:40, ازهر عبد العزيز said:

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

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

Expand  

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

Libraries.rarFetching info...

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

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

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

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

BookName

[Foksh]

  في 11‏/4‏/2024 at 17:19, ازهر عبد العزيز said:

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

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

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

BookName

Expand  

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

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

 

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

 

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

  في 11‏/4‏/2024 at 17:28, Foksh said:

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

Expand  

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

[kkhalifa1960]

  في 11‏/4‏/2024 at 17:19, ازهر عبد العزيز said:

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

Expand  

تفضل 

Libraries-1.rarFetching info...