Как определить папку для Моих Документов

[RGRuslan]

Как определить папку для Моих Документов?

Например для определения папки Windows есть такая фенька:

Environ("windir")

А что нужно писать вместо windir для того, чтобы определить где находится папка Мои документы?

[A.A.Z.]

По-моему, Environ тут не поможет...

Код: Выделить всё

Const CSIDL_PERSONAL = &H5
Const MAX_PATH = 260

Private Type SHITEMID
    cb As Long
    abID As Byte
End Type

Private Type ITEMIDLIST
    mkid As SHITEMID
End Type

Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Private Sub Form_Load()
Dim r As Long
Dim IDL As ITEMIDLIST
r = SHGetSpecialFolderLocation(100, CSIDL_PERSONAL, IDL)
If r = NOERROR Then
Path$ = Space$(512)
r = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path$)
MsgBox Left$(Path, InStr(Path, Chr$(0)) - 1), vbInformation
End If
End Sub

[RGRuslan]

Код работает, вот только нужно еще объявить переменные NOERROR и Path, причем там где написано Path$ следует исправить на Path.

Правда по поводу NOERROR у меня возникают сомнения, я так понимаю, что ее все-таки не нужно было объявлять (похоже она содержит данные об ошибках), но без этого у меня никак не вышло.

[A.A.Z.]

Path$ для большего соответствия типов. Option Explicit нет - значит можно. А вообще,

Код: Выделить всё

Private Const NOERROR As Long = &H0&
Dim Path$