انشاء مجلدات لملف الاكسس

[nogom]

السلام عليكم 

اخواني اريد عند فتح الفروم اين يقوم الفم الاكسس بانشاء مجلد رئيسي وداخله مجدلات

مثلا

الارشيف الريسيي اسمو ارشيف

ارشيف ثم الصور ثم 2018

[Ahmed.IQ]

هذا كود اننشاء مجلد واحد

Dim fs, cf, strFolder
strFolder = CurrentProject.Path & "\" & "Image"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار"
Else
MsgBox "'" & strFolder & "'لم يتم انشاء المجلد في المسار"
End If
End If

 

[qathi]

أخ @Ahmed.IQوبخصوص أدراج مجلد داخل مجلد مثل Image\Itmes كيف يصبح الكود؟؟ ممكن الكود من فضلك

 

[Ahmed.IQ]

فقط تقوم بتكرار الكود حسب رغبتك

Dim fs, cf, strFolder
strFolder = CurrentProject.Path & "\" & "Image"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي "
Else
MsgBox "'" & strFolder & "'لم يتم انشاء المجلد"
End If
End If
strFolder = CurrentProject.Path & "\Image" & "\" & "test"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي "
Else
MsgBox "'" & strFolder & "'لم يتم انشاء الملجد"
End If
End If

 

[nogom]

يعطيك العافية اخ احمد

هذا الكود رح يكون على زر صح

انا اريد عند فتح الفورم ينشأ المجلد مثلا

C:\Archif\2018/Image

حيث ان مجللد ال 2018 ينشأ على حسب السنة اتوماتيكيا

 

تم تعديل أغسطس 14, 2018 بواسطه nogom

[Ahmed.IQ]

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

بخصوص التسمية سهله اجعل الكود عند الفتح النموذج وجعل لك حقل مخفي وعطية اسمه مثل YearName يكون مصدر بياناته =Year(Date()) وبدل حقل test ضع الكود التالي

"" &  Me.YearName & "" راح ياخذ يحفظ لك الفايل بأسم السنة

[nogom]

2 دقائق مضت, Ahmed.IQ said:

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

بخصوص التسمية سهله اجعل الكود عند الفتح النموذج وجعل لك حقل مخفي وعطية اسمه مثل YearName يكون مصدر بياناته =Year(Date()) وبدل حقل test ضع الكود التالي

"" &  Me.YearName & "" راح ياخذ يحفظ لك الفايل بأسم السنة

يعطيك العافية

نعم رح يكون مسار ثابت

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

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

[Ahmed.IQ]

الحقل المخفي راح نستخدمه في تسمية المجلد حسب السنين والكود الي تقصده 

=Year(Date())

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

[nogom]

الان, Ahmed.IQ said:

الحقل المخفي راح نستخدمه في تسمية المجلد حسب السنين والكود الي تقصده 

=Year(Date())

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

يسلمو كتير 

جاري التجربة 

شكرا لك استاذ احمد

[nogom]

اخي احمد الاكواد يلي عطيتني اياها شغاله معي تمام وتم انشاء الملفين Image\Test

ولكن عندما قمت بتغير الــ TEST وضعت مكانه التاريخ السنة كما ذكرت انت انو اقوم ب عمل حقل واضع هذا الكود "" &  Me.YearName & ""

ولكن ظهرت هذه المشكلة كما فالصورة

تم تعديل أغسطس 14, 2018 بواسطه nogom

[nogom]

زبطت معي اخيرا 

الله يعطيك العافية استاذ احمد

تم تعديل أغسطس 14, 2018 بواسطه nogom

[nogom]

استاذ احمد

انا عارف اني دايقت

هاد الكود  عشان الملف الثالث

strFolder = CurrentProject.Path & "\archiving" & "\Me.Text99" & "\" & "10-1"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
Else
End If
End If

 

بس ما زبط معي 

[Ahmed.IQ]

جرب الكود التالي

me.text1 = السنة

me.text3 = الشهر واليوم

Dim fs, cf, strFolder
strFolder = CurrentProject.Path & "\" & "Image"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "'لم يتم انشاء المجلد"
Else
MsgBox "'" & strFolder & "'تم انشاء المجلد"
End If
End If
strFolder = CurrentProject.Path & "\Image" & "\" & "" & Me.Text1 & ""
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "'تم انشاء المجلد "
Else
MsgBox "'" & strFolder & "'لم يتم انشاء المجلد"
End If
End If
strFolder = CurrentProject.Path & "\Image\" & Me.Text1 & "" & "\" & "" & Me.Text3 & ""
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "' تم انشاء المجلد"
Else
MsgBox "'" & strFolder & "'لم يتم انشاء المجلد"
End If
End If

 

[nogom]

يسلمو اخ احمد الله يعطيك العافية يارب

 

[qathi]

أخي @Ahmed.IQ على ردك وعذرا على تاخر ردي بسبب انشغالاتي 

في ١٤‏/٨‏/٢٠١٨ at 08:29, Ahmed.IQ said:

فقط تقوم بتكرار الكود حسب رغبتك

Dim fs, cf, strFolder
strFolder = CurrentProject.Path & "\" & "Image"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي "
Else
MsgBox "'" & strFolder & "'لم يتم انشاء المجلد"
End If
End If
strFolder = CurrentProject.Path & "\Image" & "\" & "test"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي "
Else
MsgBox "'" & strFolder & "'لم يتم انشاء الملجد"
End If
End If

 

 

[jjafferr]

السلام عليكم

 

ومشاركة مع اخي احمد ، بكود استعمله في برامجي لإنشاء المجلدات تلقائيا حسب الاختيار من النموذج:

    'move the jpg file to
    newpathANDname = BE_Path & "\" & Forms!frm_Main!cmb_Year
    'if the YEAR Dir dose not exist, creat it
    If Dir(newpathANDname, vbDirectory) = "" Then
        MkDir newpathANDname
    End If

    newpathANDname = newpathANDname & "\" & Me.cmb_Department
    'if the DEPARTMENT Dir dose not exist, creat it
    If Dir(newpathANDname, vbDirectory) = "" Then
        MkDir newpathANDname
    End If
    
    newpathANDname = newpathANDname & "\" & Me.cmb_In_Out
    'if the IN/OUT Dir dose not exist, creat it
    If Dir(newpathANDname, vbDirectory) = "" Then
        MkDir newpathANDname
    End If
    
    newpathANDname = newpathANDname & "\" & Me.txt_Request_Number & ".jpg"

 

جعفر

[ابوآمنة]

شكرا لكم جميعا

وليكتمل العقد آمل وضع مثال مرفق لنرى التطبيق على أرض الواقع

وشكرا