Kopieren

[netscanner]

Hi ich würde gerne ein Programm schreiben, welches ALLE Dateien von einem Laufwerk (nennen wir es K:) in einen bestimmten Ordner (z.b. Eigene Bilder) kopiert. Wie kann ich das machen?
Das Programm sollte wenn es möglich ist so zu bedienen sein, dass man dazu nur einen Button betätigen muss und dann automatisch alle Dateien von Laufwer K: in die Eigenen Bilder kopiert werden.
Das ganze brauche ich um Bilder von meinem Cardreader direkt in die Eigenen Bilder zu kopieren...

Kann mir da jemand helfen?



Gruß
netscanner

[Matze]

Moin,

ob es einfacher geht, weiß ich nicht, aber so zum beispiel geht's:

- Mittels FindAllFiles alle Dateinamen des Laufwerks ermitteln
- Mittels GetSpecialFolder den Pfad zum Ordner "Eigene Bilder" ermitteln (natürlich kannst du auch manuell einen Pfad angeben)
- Mittels CopyFile die Dateien kopieren

Ob man mittels (ja, ich liebe das Wort :mrgreen: ) SHFileOperation Direkt den Laufwerksbuchstaben als Quellverzeichnis angeben kann, kann ich dir nicht sagen, aber vielleicht geht das sogar. Oder du speicherst die Bilder zukünftig in einem Unterordner des Laufwerks, dann kannst du das ganze Verzeichnis kopieren.

[Luckie]

Soll man dir das Programmieren? Suchst du ein Programm? Willst du es selber programmieren? Oder soll es mit Windows Boardmitteln gelöst werden?

Am einfachsten eine Batch-Datei schreiben, die das macht. Das dürfte am einfachsten und schnellsten gehen:

Code:

copy "k:\*.*" "d:\eigene Bilder"

[Kidix]

Delphi-Quellcode:

uses
  ShellApi;

function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;

[netscanner]

Jo hab's grad auch selbst kapiert - danke :)