dateioperationen

[simlei]

Hallo!
Ich schreibe ein Programm, für dass ich die Operationen

Verzeichnis (mit Inhalt) kopieren
Verzeichnis erstellen
Dateien (einzeln) kopieren
Verzeichnisse löschen
Dateien löschen

brauche. Ich habe schon ne ganzeWeile gesucht, und bin immer auf diese ShlFile Operationen gesßen Leider begreife ich die nicht und bin sicher es gibt in Delphi auch einfachere Lösungen. Wenn die jemand weiß: Her damit! Vielen Dank schonmal!

[Die Muhkuh]

Zitat von simlei:

1. Verzeichnis (mit Inhalt) kopieren
2. Verzeichnis erstellen
3. Dateien (einzeln) kopieren
4. Verzeichnisse löschen
5. Dateien löschen

1. Alle Dateien suchen und eine Liste davon erstellen. Danach alle Dateien per CopyFile (bzw. im WinSDK gucken) kopieren.
2. CreateDir
3. CopyFile (bzw. Im WinSDK gucken)
4. RemoveDir
5. DeleteFile

[simlei]

danke! zu copyfile: gibt es eine procedur, wo ich nur den zielpfad angebe? der dateiname soll eh gleich bleiben
wenns geht quellcode!!

danke!

[Luckie]

Also das dürfte ja wohl kein Problem sein, sich so was mal eben schnell selber zu schreiben.

[Die Muhkuh]

Hi,

normalerweise würde ich dir jetzt keinen Code schreiben, da es ja sowas von einfach ist, die zu lösen, aber nunja...

Delphi-Quellcode:

procedure FileCopy(const FileName: String; DestDir: String);
begin 
  DestDir := IncludeTrailingPathDelimiter(DestDir); // Kein Ahnung, ob das bei dir funktioniert,
  // rückst ja deine Delphiversion nicht raus...
  CopyFile(FileName, DestDir + ExtractFileName(FileName), true);
end;

[simlei]

Vielen Dank!!
@ Spider: Ich wusste garnet dass es so schöne Funktionen dafür gibt wie ExtractPath
Funktioniert!! (!!)

Für andere: PAnsiChar Umwandlung muss man noch reinbaun für die ersten beiden Argumente der FileCopy-Funktion. (PChar(...))

[Die Muhkuh]

Zitat von simlei:

Vielen Dank!!
@ Spider: Ich wusste garnet dass es so schöne Funktionen dafür gibt wie ExtractPath
Funktioniert!! (!!)

Für andere: PAnsiChar Umwandlung muss man noch reinbaun für die ersten beiden Argumente der FileCopy-Funktion. (PChar(...))

Bitte

Ja, das mit dem PChar hab ich übersehen, kannste aber auch so lösen:

Delphi-Quellcode:

procedure FileCopy(const FileName: String; DestDir: String);
begin
  DestDir := IncludeTrailingPathDelimiter(DestDir); 
  CopyFile(PChar(FileName), PChar(DestDir + ExtractFileName(FileName)), true);
end;