Verzeichnisoperationen

[Poring]

Hallo,

ich möchte gerne eine Datei downloaden.
Also habe ich es mal damit probiert:
UrlDownloadToFile(nil, 'http://server.de/test.txt','test.txt', 0, nil); Ich möchte gerne die Datei test.txt in einen Ordner der noch nicht existiert reinladen, undzwar in einen unterordner wo das Programm ist. Mit '\test\test.txt' zum speichern geht leider nicht.
Was könnte ich tun?

Mfg

[Muetze1]

ForceDirectories(), ExtractFilePath() und Application.EXEName

[Poring]

Ein kleines Beispiel könntest du mir nich auf die schnelle nennen oder?

[Matze]

Schaue doch mal in der Hilfe nach, was die einzelnen Funktionen machen (F1 drücken). Dann kommst du ganz schnell auf das gewünschte Ergebnis, glaub mir.

Was du noch wissen solltest: URLDownloadToFile kann keine Verzeichnisse erstellen. Genau das ist deine Aufgabe, dies vor dem Aufruf der Funktion zu tun.

[Poring]

Das Problem ist dies geht nicht:
UrlDownloadToFile(nil, 'http://server.de/test.txt', ExtractFilePath(ParamStr(0)) + 'test.txt', 0, nil); Also das ich den Ordner erstellen kann geht nun mit
ForceDirectories(ExtractFilePath(ParamStr(0)) +'test'); Edit:
Ahh cool ok wenn ich den Ordner habe geht es mit 'test\test.txt'
Geht das löschen genauso?

[Matze]

Zitat von Poring:

Geht das löschen genauso?

Dateien kannst du mit DeleteFile löschen und anschließend das leere Verzeichnis mittels RemoveDir entfernen.

[Poring]

Ui cool herzlichen dank!
Kann man auch irgendwie vom jetztigen Pfad eins hoch gehen?
Sprich man ist in dem ordner test will aber in dem ordner da drüber was machen?
Also wie kann ich den übergeordneten Ordner als Verzeichnis wählen?
DeleteFile(ExtractFilePath(ParamStr(-1)) + 'test.txt'); Geht leider nicht

[Matze]

Ändere den Thementitel bitte mal in "Verzeichnisoperationen" oder ähnliches, denn das deckt alle deine Fragen ab.

Ich habe mal schnell eine kleine Funktion geschrieben. Es geht sicher schöner, aber zur Not reicht's.

Delphi-Quellcode:

function GetPreviousDir(CurrentPath: string): string;
begin
  Result := ExtractFilePath(Copy(CurrentPath, 1,
    Length(CurrentPath) - Length(ExtractFilename(CurrentPath)) - 1));
end;

[Poring]

Delphi-Quellcode:

function GetPreviousDir(CurrentPath: string): string;
begin
  Result := ExtractFilePath(Copy(CurrentPath, 1,
    Length(CurrentPath) - Length(ExtractFilename(CurrentPath)) - 1));
end;


DeleteFile(EGetPreviousDir + 'test.txt');

Wäre dies dann so?

[Matze]

Der Aufruf erfolgt viel einfacher:

Delphi-Quellcode:

GetPreviousDir('C:\Programme\Hallo\Du\');
// liefert dir: C:\Programme\Hallo\

Du übergibst direkt den Pfad und erhälst den übergeordneten zurück. Voraussetzung ist, dass du den abschließenden Backslash angibst bzw einen Dateinamen.

Edit: Ups, verlesen. Ja das müsste so passen.
Edit 2: Ähm ne, den aktuellen Pfad musst du schon übergeben. *g*