طلب عمل زر انشاء مجلد المرفقات

[ابواقر الدعمي]

السلام عليكم اساتذتي الأفاضل لدي طلب واكون شاكر لكم اذا حللتم لي الطلب وهو لدي قاعدة بيانات موظفين واحتاج كود وشرحه لاضافة المرفقات وعند الاضافة ينشا ملف اسمه مرفقات ويضع بداخله الملف وزر اخر لمعاينة ملف علما ان المعاينة والمرفقات شامل للملفات المتداولة

 

 

http://قاعدة بيانات

تم تعديل يوليو 9, 2020 بواسطه ابوخليل
تعديل العنوان .. يرجى الالتزام بقواعد المشاركة

[محمد أبوعبدالله]

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

برجاء ارفاق مثال لتوضيح الفكرة

عموما هذا كود مسئول عن انشاء مجلد بجوار البرنامج اذا لم يكن المجلد موجود اصبلاً

            On Error Resume Next
            Dim fs, cf, strFolder
            strFolder = CurrentProject.Path & "\" & "AttachmentX"
            Set fs = CreateObject("Scripting.FileSystemObject")
               If fs.FolderExists(strFolder) = False Then
                  MsgBox "تحذير !!! مجلد المرفقات غير موجود ! وسيتم انشائه ان شاء الله بجوار البرنامج", vbExclamation, "officena"
            Set cf = fs.CreateFolder(strFolder)
            If fs.FolderExists(strFolder) = True Then
               
            MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي "
            
            Else
               MsgBox "تحذير لم يتم انشاء مجلد المرفقات ", vbExclamation, "officena"
            End If
            End If

تحياتي

[ابواقر الدعمي]

24 دقائق مضت, محمد أبوعبدالله said:

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

برجاء ارفاق مثال لتوضيح الفكرة

عموما هذا كود مسئول عن انشاء مجلد بجوار البرنامج اذا لم يكن المجلد موجود اصبلاً

            On Error Resume Next
            Dim fs, cf, strFolder
            strFolder = CurrentProject.Path & "\" & "AttachmentX"
            Set fs = CreateObject("Scripting.FileSystemObject")
               If fs.FolderExists(strFolder) = False Then
                  MsgBox "تحذير !!! مجلد المرفقات غير موجود ! وسيتم انشائه ان شاء الله بجوار البرنامج", vbExclamation, "officena"
            Set cf = fs.CreateFolder(strFolder)
            If fs.FolderExists(strFolder) = True Then
               
            MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي "
            
            Else
               MsgBox "تحذير لم يتم انشاء مجلد المرفقات ", vbExclamation, "officena"
            End If
            End If

تحياتي