حسب فهمي لطلبك هذا
اضف هذا الى كودك
Me.myPath = Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd")
اي سيكون الكود كالتالي
Private Sub btn_mkdir_Click()
Dim fs As Object
Dim a As Object
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd")) = True Then
MsgBox "المجلد موجود سابقاً"
Else
Set a = fs.Createfolder(Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd"))
Me.myPath = Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd")
MsgBox "تم عمل المجلد بنجاح"
End If
End Sub
والله يعلم