Wäre den dann diese Funktion besser?
Delphi-Quellcode:
function DirExists(s: string): Boolean;
var i: Integer;
begin
i := GetFileAttributes(PChar(s));
Result := (i <> -1) and (FILE_ATTRIBUTE_DIRECTORY and i <> 0)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if DirExists(ExtractFilepath(Application.Exename)+'Test')
then
Memo1.Lines.SaveToFile(ExtractFilepath(Application.Exename)+'Test\Test'+' '+Datum.Caption +' Uhr.txt');
if not DirExists(ExtractFilepath(Application.Exename)+'Test')
then
MKDir(ExtractFilepath(Application.Exename)+'Test');
Memo1.Lines.SaveToFile(ExtractFilepath(Application.Exename)+'Test\Test'+' '+Datum.Caption +' Uhr.txt');
end;
Es muss halt eine 100% Sache sein das es auch klappt. Memo1 soll auf jeden Fall gespeichert werden können, und zwar in einem Unterverzeichnis der Anwendung namens "Test".