Hi Jos,

Get it with

Dim oWSH
Const SPECIAL_FOLDER_MY_DOCS As Long = 16
Set oWSH = CreateObject("WScript.Shell")

MsgBox oWSH.SpecialFolders(SPECIAL_FOLDER_MY_DOCS)

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jos Vens" wrote in message
...
Hi,

If I use curdir, it normally points to the folder MyDocuments (I don't
know
how it is in english but in Dutch, it is Mijn Documenten), but sometimes,
it
doesn't.

I'd like to store a preferences-file of the user in that folder, but how
can
I be sure (or how can I let point) curdir always to MyDocuments, so that
the
user always get his preferences in a network, no matter on which computer
he
is on.

Thanks
Jos Vens