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

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

تحياتي

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

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