MS Access msoFileDialogFilePicker, hard codeFolder Location -

इस सवाल का पहले से ही एक उत्तर है: < / P>

• 2 जवाब

मेरे पास निम्न कोड है उपयोगकर्ता को फ़ाइल चुनने की अनुमति देता है वह भाग काम करता है; लेकिन मैं उस फ़ोल्डर का प्रारंभिक स्थान चाहूंगा जिसे उपयोगकर्ता कूटबद्ध होने के लिए ब्राउज़ कर रहा होगा।

  निजी उप इनपुटफ़ाइल_किल () Dim fDialog Office.FileDialog मंद फ़ाइलनाम के रूप में वैरिएल्ट मंद varFile जैसा वर्जन डिम ओप ऑब्जेक्ट सेट के रूप में oApp = CreateObject ("Excel.Application") 'सूची सूची सामग्री को साफ़ करें 'Me.TextBoxName =' '' फ़ाइल संवाद सेट करें 'सेट करें fDialog = Application.FileDialog (msoFileDialogFilePicker) fDialog के साथ। अनुमति दें MultiSelect = False' डायलॉग बॉक्स का शीर्षक सेट करें '। टाइटल = "कृपया फाइल चुनें"' वर्तमान फिल्टर को साफ़ करें, और अपना स्वयं का जोड़ें। ' फ़िल्टर्स। क्लीअर .Filters.Parent = "R: \" फ़ाइल का स्थान आमतौर पर रहता है \ ".फ़िल्टर। जोड़ें" एक्सेल सीएसवी "," * .csv ".फ़िल्टर। जोड़ें" फ्लैट फाइल txt "," * .txt " फ़िल्टर। जोड़ें "सभी फाइलें", "*। *" 'संवाद बॉक्स दिखाएं। यदि। शो विधि रिटर्न सच है, '' उपयोगकर्ता ने कम से कम एक फ़ाइल को चुना यदि। शो विधि रिटर्न '' False, उपयोगकर्ता ने रद्द किए क्लिक किया 'यदि। शो = सच तो' प्रत्येक फाइल के माध्यम से लूप चुने और हमारे सूची बॉक्स में इसे जोड़ने के लिए। 'प्रत्येक varFile में। चयनित फ़ाइलें फ़ाइल नाम = राइट (varFile, 51) फ़ाइल की प्रतिलिपि varFile, "\\ network \ location \" & amp; फ़ाइल नाम I.TextBoxName = फ़ाइल का नाम अगला अगला संदेशबाक्स "आपने फ़ाइल संवाद बॉक्स में रद्द किया क्लिक किया है।" एंड एंड एंड एंड एंड एंड एंड  
 
 क्षमा करें, मैं स्टैक ओवरफ्लो पर समाधान खोजने के लिए समाप्त हो गया  <पूर्व>  आरंभिक दृश्य = एमएसओफ़ाइलडायलोगदृश्यसूची