[Access / VBA] Ophalen van pad naar 'mijn documenten'*

[Verwijderd]

Om het default path te bepalen waar ik excelsheets wil bewaren heb ik onderstaande pathname opgesteld met behulp van een paar tweakers.
Wanneer mijn programma nu op een pc wordt geïnstaleerd met een andere taal dan moet er op de plaats van 'mijn documenten' eigenlijk 'mes documents' of 'my documents' of ... staan. Kunnen jullie me ook helpen aan die laatste Environ pathname?

strDocsPath = Environ("homedrive") & Environ("homepath") & "\Mijn documenten" & "\Excelsheets\"

Van harte!
Claudine

[Fish]

..

[ Voor 92% gewijzigd door Fish op 10-10-2007 21:13 ]

[Lustucru]

Deze oplossing is wat robuuster:
MSDN: retrieving special folders Of je kijkt bij het filesystemobject voor vbscript.

offtopic:
dit had je kunnen vinden met [google=retrieve+my+documents+path]. Lees je ook even onze onvolprezen Registratievoorwaarden / korte FAQ en het sticky over hetgebruik van tags in office?

-->Titelfix

[Verwijderd]

Ik voegde dit toe en kreeg als antwoord in de messagebox Mijn documenten. Het probleem is normaal gezien nu opgelost. Bedankt tweakers!

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(&H5&)
Msgbox objFolder