مساعدة فى طلب تعديل على الكود لسحب المسارات إلى قاعدة البيانات للملفات

[walid7799]

السلام عليكم

مساعدة فى طلب تعديل على الكود لسحب المسارات إلى قاعدة البيانات للملفات

والكود هو :

Dim fdialog As Office.FileDialog
Dim filepath As String

Set fdialog = Application.FileDialog(msoFileDialogFilePicker)

With fdialog
            .Title = "Select image"
            .AllowMultiSelect = False
            .Filters.Clear
            .Filters.Add "Image file", "*.jpg ; *.bmp ; *.png"

            If .Show Then
                filepath = .SelectedItems(1)
                [PthIn1] = filepath
                Else
                Exit Sub
            End If
End With

ممكن التعديل حتى يقوم بسحب أكثر من ملف فى المرة الواحدة 

برجاء التفضل بالتعديل من الاساتذة مشكورين مسبقا على المجهود فى المنتدى العظيم (أفيسنا)

من لا يشكر لا يستحق.

أستودعكم الله

 

تم تعديل فبراير 19, 2022 بواسطه jjafferr