Hallo zusammen.
Ich habe bei einem Programm eine Datei die ich mit copy kopiere und vorher mit if fileexists prüfe.
Wenn ich den Pfad der Datei als 'C:\ user.......' angebe dann klappt alles wie es soll( bitte verzeiht mir das ih hier nicht das genaue kopiere bin mobil online)
Benutze ich nun meine variable: username die genau den gleichen Inhalt hat , den ich auch benutze wenn ich die Abfrage direkt im Programm eingebe ('C:\' + username+ '....' statt 'C:\Christoph......' ) funktionieren die Befehle nichtmehr. Iffileexist gibt auf einmal false aus obwohl username zumindest unter meinem Benutzer genau dem String 'Christoph' enthält.
Kann mir jemand helfen?
Lg
Christoph

Den Pfad am Besten als special folder ermitteln

Zitat von mkinzler:

Den Pfad am Besten als special folder ermitteln

Verzeihung, wie mache ich das? Bekomme den Benutzername als String aus einer Funktion getusername.

Ich brauche NUR den Benutzername als String der Rest ist immer gleich, und es ist ein Ordner den ich denke ich nicht als Special Folder bekomme.

Schuss ins Blaue: Die Variable username enthält noch das Stringendezeichen (#0) am Ende.

Nichts desto trotz solltest du den Pfad mit genannter Funktion ermitteln. Bei mir gibt es den Ordner C:\Users nämlich nicht (Windows XP).

such einfach mal nach SHGetSpecialFolderLocation

Zum beispiel so (Kopie, nicht mein Code)

zusammenfalten · markieren

Delphi-Quellcode:

uses
 ShlObj, ActiveX, ShellApi;
{ ... }
function GetSpecialFolder(const AFolder: Integer): String;
var
  ItemIDList: PItemIDList;
  hPath: PChar;
  ShellH: IMalloc;
begin
  if SUCCEEDED(SHGetSpecialFolderLocation(Application.Handle, AFolder, ItemIDList)) then
  begin
    try
      hPath:= StrAlloc(max_path);
      try
        if SHGetPathFromIDList (ItemIDList, hPath) then
          Result:=hPath;
      finally
        StrDispose(hPath);
      end;
    finally
     if SHGetMalloc(ShellH) = NOERROR then
       ShellH.Free(ItemIDList);
    end;
  end
  else
    RaiseLastOSError;
end;