Работаю на Delphi 6
Выгружаю данные в Excel и хочу сохранить файл в Мои документы.
Пробовал так:

  XLFileDir := '%userprofile%'+'\my documents\';
  XLFileName := XLFileDir + 'Выгрузка данных';
  try
    if not DirectoryExists(XLFileDir)
    then ForceDirectories(XLFileDir);

    if DirectoryExists(XLFileDir) then
    begin
      if FileExists(XLFileName)
      then DeleteFile(XLFileName);

      if FileExists(XLFileName) then
      begin
        uMessages.Error('Невозможно записать файл '+#13#10+XLFileName+
                         #13#10+'Не удалось удалить старую версию файла.');
      end
      else
      begin
        eteBrowse.ExcelApp.ActiveWorkbook.SaveAs(XLFileName);
        uMessages.Information('Успешно сохранен файл '+#13#10+XLFileName);
      end;
    end
    else
    begin
      uMessages.Error('Не сохранен файл '+#13#10+XLFileName+
                            #13#10+'Не удалось создать путь.');
    end;
  except
    on E: Exception do uMessages.Error(XLFileName+#13#10+E.Message);
  //  uMessages.Error('Не удалось сохранить файл '+#13#10+XLFileName);
  end

Не получается:
ругается, что не может создать папку '%userprofile%\my documents\', ПОМОГИТЕ!
Вторую проблему вижу в том, что на русских Windows XP папка называется Мои документы, на английских = My Documents

Здравствуйте, YurySS, Вы писали:

Читай функцию SHGetFolderPath.
Чтобы не было проблем с языками — используй дальше юникодные версии системных функций, хотя с текущей локалью Delphi вроде бы стабильно работает и без этого

Спасибо, то что надо!