أين كود التحكم فى المكان الافتراضى لــ Select File

[أحمد العيسى]

السلام عليكم

يوجد فى قاعدة بياناتى كود يتحكم فى تحميل ملف خارجى من المكان الافتراضى My Documents

وأريد أن يتم تغير هذا الافتراضى إلى الموضع الذى أريد لهذا الكود أن يفتح عليه وليكن روت القطاع  C

وهذا هو كود مايكروسوفت مصحوباً بصورة تشغيله:

Private Sub btnLocateFile_Click()
    Dim varItem As Variant
    Dim strPath As String
    Dim objFilePicker  As FileDialog
    Dim db As Database
    Dim rst As DAO.Recordset
    Dim strUnitNumber As String
    
    Set db = CurrentDb()
    Set objFilePicker = Application.FileDialog(msoFileDialogFilePicker)
    
    With objFilePicker
        .AllowMultiSelect = False
        .ButtonName = "Select"
        .InitialView = msoFileDialogViewList
        .Title = "Select File"

        With .Filters
         .Clear
         .Add "Excel Files", "*.xls"
        End With
        .FilterIndex = 1
        .Show
    End With
    
    If objFilePicker.SelectedItems.Count > 0 Then
        
        m_strFileName = objFilePicker.SelectedItems(1)
        Me.txtImportFile = m_strFileName
        
    End If

End Sub

 

تم تعديل يناير 4, 2020 بواسطه أحمد العيسى

[أبوبسمله]

ان شاء الله يكون ما تريد اخى

تحت with

بتضيف السطر التالى وتحدد فى مكان الفتح - الباث

.InitialFileName = "C:\Users\Public"

https://developersoapbox.com/add-a-file-selection-dialog-to-your-vba-code/

تقبل تحياتى

[أحمد العيسى]

تمام

أشكرك أخى الفاضل على تفضلك بالإضافة

[أبوبسمله]

الشكر لله

بالتوفيق ان شاء الله