string MyDocumentFolder = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments);

string MyDocumentFolder = Environment.GetFolderPath(System.Environment.SpecialFolder.Personal);

Dim MyDocumentFolder As String = Environment.GetFolderPath(System.Environment.SpecialFolder.Personal);

Dim MyDocumentFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments);

sRepDocuments est une chaine = SysRep(srMesDocuments)
Info("Le répertoire 'Mes Documents' est : "+sRepDocuments)

'   Copiez ce code sur une Form
'
Option Explicit 
'
Private Const CSIDL_PERSONAL As Long = &H5 
'
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() 
    MsgBox GetMyDocumentsFolder 
    Unload Me 
End Sub 
'
'
Private Function GetMyDocumentsFolder() As String 
    Dim lRet As Long, IDL As ITEMIDLIST, sPath As String 
    lRet = SHGetSpecialFolderLocation(100&, CSIDL_PERSONAL, IDL) 
    If lRet = 0 Then 
        sPath = String$(512, Chr$(0)) 
        lRet = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath) 
        GetMyDocumentsFolder = Left$(sPath, InStr(sPath, Chr$(0)) - 1) 
    Else 
        GetMyDocumentsFolder = vbNullString 
    End If 
End Function

{Voici la fonction qui permet de retrouver un repertoire d'après sa valeur CSIDL
 nescessite l'utilisation dans les Uses de l'unité ShlObj}
Function GetFolder(CSIDLValue: integer): String;
Var
  IdList            : PITEMIDLIST;
  Folder            : Array[0..MAX_PATH] Of Char;
Begin
  if Not Failed(SHGetSpecialFolderLocation(0, CSIDLValue, IdList)) then
    Begin
      SHGetPathFromIDList(IdList, Folder);
      Result := Folder;
    End;
End;
{Utilisation pour : Obtenir le chemin d'accès pour le dossier Mes Documents}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := GetFolder(CSIDL_PERSONAL);
end;