طلب مساعدة فى استكمال كود

[إبراهيم محمد]

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

 مرفق الكود التالى  والذى يقوم باعطاءا لمستخدم اختيار ملف معين  بحيث يتم تخزين مسار هذا الملف فى مسار والتعامل معه بعد ذلك  لتخزيم ملفات فيه 

ولكن تكمن  المشكله فى احتمالات الخطاء  منها 

اذا لم يختار المستخدم مسار وضغط على زر الالغاء 

او اذا كان الملف الذى يتم حفظه فى نفس المسار له نفس الاسم واختار المستخدم عدم الحفظ 

لا ادرى هل وضحت الفكرة ام لا ولكن اى استفسار اخر ان شاء الله نوضح المشكله فيه 

 

وبارك الله فيكم ايها الاستاذة الاجلاء واثابكم الله خير

Sub get_folder_path()
Dim iipath As String
With Application.FileDialog(msoFileDialogFolderPicker)
  .AllowMultiSelect = False
  .Show

  iipath = .SelectedItems(1)
  
End With

End Sub

[عبدالله باقشير]

السلام عليكم

جرب هذ الكود

Option Explicit

'
'
Sub kh_Start_MyPath()
Dim MyDialg As FileDialog, spath As String
On Error GoTo Err_Test_MyPath
'==========================================
Set MyDialg = Application.FileDialog(msoFileDialogFolderPicker)
'==========================================
1:
With MyDialg
    .Title = "اختيار مسار المجلد الذي  تريد حفظ الملف فيه"
    .InitialFileName = ActiveWorkbook.Path & "\"
    .Show
End With
'==========================================
If MyDialg.SelectedItems.Count Then
    spath = MyDialg.SelectedItems(1)
    If Dir(spath, vbDirectory) = vbNullString Then
        MsgBox " : لا يمكن الحفظ في المسار التالي" & vbCr & vbCr & spath _
        & vbCr & vbCr & "يجب اختيار مسار صحيح لحفظ الملف فيه ", 524288, "مسار خاطىء"
        GoTo 1
    Else
        Set MyDialg = Nothing
        ' اذا كان المسار صحيح يتم وضع الاوامر ادناه
        MsgBox spath
    End If
End If
'==========================================
Err_Test_MyPath:
    If Err Then MsgBox "Err.Number:" & vbCr & Err.Number
    Set MyDialg = Nothing
End Sub

في امان الله

[إبراهيم محمد]

ما شاء الله استاذنا وعالمنا الجليل  الاستاذ الفاضل / عبد الله باقشير

والله كود فى منتهى الروعه وينم عن احتراف وتمكن   وبالفعل كود نتعلم منه الكثير 

جزاك الله خيرا وبارك الله فيك  وجعلك الله دائما نبراسا للعلم نقتدى ونهتدي بها  ونتعلم منك دائما المزيد باذن الله تعالى 

خالص تحياتى وتقديرى واحترامي