VBA में FileDialog के लिए एक फ़ोल्डर को डिफ़ॉल्ट रूप से

Question

Private Sub Command93_Click() 

    Dim f As Object 
    Dim strFile As String 
    Dim strFolder As String 
    Dim varItem As Variant 
    Dim P As String 
    Dim DeleteEverything As String 

     DoCmd.SetWarnings False 
     DeleteEverything = "DELETE * FROM [TABLE]" 
     DoCmd.RunSQL DeleteEverything 

    Set f = Application.FileDialog(3) 
    f.AllowMultiSelect = False 
    If f.Show Then 
     For Each varItem In f.SelectedItems 
      strFile = Dir(varItem) 
      strFolder = Left(varItem, Len(varItem) - Len(strFile)) 
      P = strFolder & strFile 
     Next 
    End If 
    Set f = Nothing 

     DoCmd.TransferText acImportFixed, "[IMPORT SPECIFICATION]", "[TABLE]", P, False 

End Sub 

मेरे सवाल यह है कि एक विशिष्ट फ़ोल्डर में FileDialog डिफ़ॉल्ट बनाने के लिए जब यह शुरू में खुलता है? इस मामले

Answer 1

में किसी भी मदद के लिए

धन्यवाद InitialFileName को (अनुगामी \ सहित) फ़ोल्डर पथ जोड़ें। उदाहरण के लिए, उपयोगकर्ता के घर निर्देशिका में संवाद खोलने के लिए कार्य करें:

f.InitialFileName = Environ("USERPROFILE") & "\" 

आप भूल जाते हैं \, तो संवाद बॉक्स अभी भी सही फ़ोल्डर, लेकिन फ़ोल्डर नाम में खुलेगा भी रूप में दिखाई देगा अनुगामी हैं डिफ़ॉल्ट चयनित फ़ाइल नाम। फिर संवाद एक ही नाम के साथ उप-फ़ोल्डर की तलाश करेगा, जो आमतौर पर मौजूद नहीं है।

Answer 2

या, संवाद खोलने से पहले, बस के साथ deault फ़ाइल निर्देशिका बदलें:

Application.Options.DefaultFilePath(wdDocumentsPath) = "your\path\here"