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

[toms]

Warum verwendest du nicht

function ForceDirectories(FolderPath: string): boolean;

[Sprint]

Zitat von runger:

nachdem wir lange gesucht haben, aber nur recht umständliche Methoden gefunden haben, mit der man einen kompletten Pfad erstellen kann [...]

Dafür gibt es eine recht einfache Lösung. Und zwar die Win32 API Funktion MakeSureDirectoryPathExists.

Delphi-Quellcode:

uses
  ImageHlp;

Delphi-Quellcode:

function CreateFullPath(const Path: String): Boolean;
begin
  Result := MakeSureDirectoryPathExists(PChar(IncludeTrailingBackslash(Path)));
end;