createfullpath

[runger]

Hallo,

nachdem wir lange gesucht haben, aber nur recht umständliche Methoden gefunden haben, mit der man einen kompletten Pfad erstellen kann, möchte ich hier eine kleine Function vorstellen.
Die Function akzeptiert auch schon teilweise vorhandene Pfade.

Delphi-Quellcode:

function createfullpath(a:ansistring):boolean;
var s:ansistring;s0:boolean;
begin
   s:=a;
   If DirectoryExists(s) then
      begin
         result:=true;exit;
      end;
   s0:=createdir(s);
   If s0=false then
      begin
         If s[length(s)]='\' then delete(s,length(s)-1,255);
         while s[length(s)]<>'\' do delete(s,length(s)-1,255);
         delete(s,length(s),255);
         if createfullpath(s)=true then
            begin
              result:=createdir(a);exit;
            end;
      end;
   result:=s0;
end;

Rainer