एमएस ऑफिस सेवएएस प्रकार vd

Question

में फ़िल्टर के साथ फ़ाइलडिअलॉग टाइप करें, मैं फ़िल्टर के साथ 'सेव करें' फ़ाइल डायलॉग बनाना चाहता हूं, लेकिन यह फ़ाइलडिअलॉग क्लास (माइक्रोसॉफ्ट ऑफिस 12.0 ऑब्जेक्ट लाइब्रेरी) का उपयोग करके संभव नहीं लगता है। दस्तावेज़ीकरण वास्तव में इस here का उल्लेख करता है, अंतिम पैराग्राफ देखें, लेकिन इसका कोई कारण नहीं है? क्या वीबी में इसे हासिल करने का कोई और तरीका है?

मुझे यह अजीब लगता है कि FileDialog क्लास इसकी अनुमति नहीं देता है क्योंकि वर्ड, एक्सेल और एक्सेस सभी में यह सटीक SaveAs सुविधा अंतर्निहित है।

मुझे एहसास है कि FileDialog फ़ाइलपिकर (msoFileDialogFilePicker) के रूप में बनाया जा सकता है जो फ़िल्टर की अनुमति देता है, लेकिन फिर यह फ़ाइल को चुनने की अनुमति नहीं देता है जो अभी तक मौजूद नहीं है, जो पूरे बिंदु को हरा देता है।

Answer 1

@AlexK यह करने के लिए एक ही रास्ता उल्लेख किया है एक विंडोज़ API कॉल का उपयोग कर रहा है। here

Answer 2

ऐसा लगता है कि किसी विशेष कारण के लिए उस विशेष वर्ग का प्रतिबंध है, तो कैसे;

Dim vResult As Variant 
vResult = Application.GetSaveAsFilename("default.blah", "blah files,*.blah,Text file,*.txt,All files,*.*", 0, "Title") 
If VarType(vResult) = vbBoolean Then 
    MsgBox "cancelled" 
Else 
    MsgBox vResult 
End If