Узнать путь к "Мои Документы"

[Tok]

Подскажите как получить путь к этой и другим подобным дирректориям?
Наверное вопрос подобный уже задавался, но к сожлению я не отыскал ответа на него.

[Dzhon]

А каким способом тебе нужно его узнать?

[Tok]

Любым. Нужно получить путь типа "C:\Documents adn Settings\User\Мои Документы\".

И вообще хотелось бы узнать, как получать пути к системным папкам...

Может для VB существуют переменные среды? Если да, то как их пользовать?

[tyomitch]

Пример от Оловянникова: http://groups.google.com/groups?selm=7u ... put=gplain

А вот ещё мой пример, не использующий shfolder.dll: http://groups.google.com/groups?selm=10 ... put=gplain

[tyomitch]

Может для VB существуют переменные среды? Если да, то как их пользовать?

Конечно, есть

Environ Function

Returns the String associated with an operating system environment variable.

Syntax

Environ({envstring | number})

The Environ function syntax has these named arguments:

Part Description
envstring Optional. String expression containing the name of an environment variable.
number Optional. Numeric expression corresponding to the numeric order of the environment string in the environment-string table. The number argument can be any numeric expression, but is rounded to a whole number before it is evaluated.

Remarks

If envstring can't be found in the environment-string table, a zero-length string ("") is returned. Otherwise, Environ returns the text assigned to the specified envstring; that is, the text following the equal sign (=) in the environment-string table for that environment variable.

If you specify number, the string occupying that numeric position in the environment-string table is returned. In this case, Environ returns all of the text, including envstring. If there is no environment string in the specified position, Environ returns a zero-length string.

[Konst_One]

Environ("USERPROFILE")

[GM]

Environ("USERPROFILE")

Работает только на NT.

[Шурик]

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths]
"TEST"="C:\\Documents and Settings\\TEST\\Мои документы"

!!!!!это в ХР!!!!!
TEST - имя учетной записи...
Для остальных папок найдешь, там же в реестре

[tyomitch]

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths]
"TEST"="C:\\Documents and Settings\\TEST\\Мои документы"

!!!!!это в ХР!!!!!
TEST - имя учетной записи...
Для остальных папок найдешь, там же в реестре

А имя учётной записи как узнать?
Это я про то, что возни получится неоправданно много.
Не проще ли - как я показывал - через SHGetSpecialFolderLocation?

[Konst_One]

используй APPDATA:
Environ("APPDATA")
удаляй с конца строки : Application Data
а вместо этого вставляй: My Documents

На XP работает, проверено

[Konst_One]

вот прога для проверки, что у тебя в environments:

[alibek]

Konst_One, AppData и MyDocuments могут находится не только в разных путях (кстати, у них и имена папок разные для разных локализаций), но и на разных дисках, поверь мне как админу.
Самый правильный вариант - SHGetSpecialFolderLocation

[Konst_One]

спасибо, учту

[alibek]

Посмотри в HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders
Там могут быть следующие параметры (их назначение очевидно из названия):
"Desktop"
"AppData"
"LocalAppData"
"Favorites"
"Recent"
"Personal"
"Templates"
"SendTo"
"NetHood"
"PrintHood"
"StartMenu"
"Programs"
"Startup"
"Cache"
"Cookies"
"History"

[tyomitch]

вот прога для проверки, что у тебя в environments:

Ну вы, блин, даёте. Windows-R -> cmd -> set уже отменили, что ли?
Скоро для нажатия кнопки Пуск отдельную прогу будете писать...

[Konst_One]

эту тулза вполне нужная - из нее можно копировать быстрее и всегда под рукой

[tyomitch]

Дело вкуса. Из консольного окна тоже копируется мгновенно.

[GSerg]

Ну я же говорю, вредный и нехороший человек
Пришёл, открыл тайну команды SET и низвёл до плинтуса полезность программы - ведь люди ж старались, ну что ж такое...