Hallo Helmi,
der folgende Code sollte dein Problem lösen:
Delphi-Quellcode:
function StripDrive (const s: string) : string;
var
Drive : string;
begin
Drive := ExtractFileDrive(s);
if (Length(Drive) = 2) then
Result := '\' + ExtractRelativePath(Drive, s)
else
Result := s;
end;
Warum behandelst du Verweise auf Server anders als lokale Verweise? Wenn du dir das Ergebnis des Aufrufs von
ExtractFileDrive anschaust, dann siehst du, dass der Servername Teil der Laufwerksbezeichnung ist.
Gruß Hawkeye