भाषा "मेरे दस्तावेज़" फ़ोल्डर VBA एक्सेल में प्राप्त करने के लिए स्वतंत्र तरीके 2003

Question

मैं "मेरे दस्तावेज़" फ़ोल्डर VBA एक्सेल में पाने के लिए एक भाषा स्वतंत्र तरीके की जरूरत है 2003

मैं क्या है:

Public Function MyDocsPath() As String 
    MyDocsPath = Environ$("USERPROFILE") & "\My Documents\" 
End Function 

क्योंकि कार्यक्रम कम से कम 2 लैंग एमएस विंडोज़ में उपयोग किया जाएगा, और प्रत्येक भाषा के लिए "मेरे दस्तावेज़" नाम बदलते हैं।

क्या कोई तरीका है, या क्या मुझे सिस्टम लैंग को समझने और विशिष्ट बनने की कोशिश करनी चाहिए?

Answer 1

यह सूट हो सकता है:

Set WshShell = CreateObject("WScript.Shell") 
strDocuments = WshShell.SpecialFolders("MyDocuments") 

से: http://msdn.microsoft.com/en-us/library/0ea7b5xe.aspx

हालांकि विशेष फ़ोल्डर नाम MyDocuments है, यह विंडोज के कई संस्करण के लिए दस्तावेजों फ़ोल्डर को दर्शाता है।