تفضل استاذ @jo_2010 المرفق بعد التعديل ( عند اضافة المجلد إذا موجود يعطيك ماسج المجلد موجود مسبقاً واذا غير منشأ يعطيك ماسج تم انشاء المجلد بنجاح ).
واذا حبيت تلغيهم أو تلغي احداهما .اذهب لمحرر الاكواد واعمل كما بالمسجات بالموديول التالي . اضافة (') قبل الماسج .
Sub CreateFolder()
On Error Resume Next
Dim folderPath As String
folderPath = Me.PatientName.Value
If Len(Dir(CurrentProject.Path & "/" & "My Programs/" & folderPath, vbDirectory)) = 0 Then
MkDir CurrentProject.Path & "/" & "My Programs/" & folderPath
'MsgBox ("تم انشاء المجلد بنجاح")
Else
'MsgBox ("المجلد موجود مسبقا")
End If
End Sub
انا عملت بعض الادخالات للتجارب ممكن تطالعهم قبل الحذف ...ووافني بالرد.
DDAdd&DeletePDF.rar