اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by Foksh,

الردود الموصى بها

السلام عليكم 

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

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

Libraries.rar

رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

 

تم تعديل بواسطه Foksh
ازالة & زائدة
رابط هذا التعليق
شارك

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

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

 

لقطة شاشة 2024-04-11 153710.png

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

تم تعديل بواسطه Foksh
  • Like 1
رابط هذا التعليق
شارك

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

 

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

  • Thanks 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

 

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

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

رابط هذا التعليق
شارك

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

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

غيرتة الى 

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

الان تمام

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

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

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

تم تعديل بواسطه Foksh
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

Libraries.rar

  • Like 2
رابط هذا التعليق
شارك

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

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

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

BookName
رابط هذا التعليق
شارك

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

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

تفضل 

Libraries-1.rar

  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information