dateien von D: nach C:\backup kopieren

[napstar]

ich würde gerne meine .doc files von einem laufwerk (usb stick - immer G:\)
nach C:\backup\ kopieren.. dies funktioniert auch..
allerdings werden die werden die unterverzeichnisse nicht mitberücksichtigt..

Code:

CopyFileEx('G:\'+'*.doc',Ziel)

ist eigentlich auch kein wunder bei dem code ^^.. ich weiß nur nicht wie ich das mit den unterverzeichnissen umsetzen soll.. hat jemand ne idee?

[DeddyH]

Geh die Verzeichnisse rekursiv durch, erstelle den Zielordner ggf. mit ForceDirectories und kopiere die Datei dann.

[edit] *Öhm*, ein Thread genügt aber eigentlich [/edit]

[napstar]

Zitat von DeddyH:

Geh die Verzeichnisse rekursiv durch, erstelle den Zielordner ggf. mit ForceDirectories und kopiere die Datei dann.

[edit] *Öhm*, ein Thread genügt aber eigentlich [/edit]

ja sorry irrgendwie hats nicht funktioniert ^^..

[napstar]

ich hab mal 2 fragen..
um ehrlich zu sein sind es mehr als nur doc dateien...
ich habe jetzt alle nötigen dateien in ner listbox drinnen..

Code:

      ScanDrive(GetDrive(PDevBroadcastVolume(Msg.lParam))+'\', '*.doc', listbox1.Items);
      ScanDrive(GetDrive(PDevBroadcastVolume(Msg.lParam))+'\', '*.accdb', listbox1.Items);
      ScanDrive(GetDrive(PDevBroadcastVolume(Msg.lParam))+'\', '*.xls', listbox1.Items);

ich habs nicht geschafft die 3 formate auf einmal abzufragen.. und so würde es ja ewig dauern.. wenn ich z.b. ne externe festplatte mit vielen ordnern habe..

und auserdem funktioniert der kopiervorgang nicht..
zum testen wollte ich das ganze mal einzeln machen..

Code:

if (listbox1.itemindex <> -1) and (listbox1.itemindex < listbox1.items.count) then
begin
  listbox1.ItemIndex := listbox1.itemindex+1;
  CopyFileEx(listbox1.items.strings[listbox1.itemindex],'C:\Backup\');

ich bekomme die meldung, dass schon ein ordner mit dem namen existiert und ich einen anderen namen auswählen soll..

[DeddyH]

Vielleicht ist dieser Thread hilfreich. Das Löschen und Erzeugen von Verknüpfungen lässt Du halt einfach weg.

[edit] Der Link dort zur Komponente ist ungültig, hier der richtige: http://www.torry.net/vcl/filedrv/sea...Searchv1.1.zip [/edit]

[napstar]

wie installier ich das..?
hab ne neue package erstellt dort dann die beiden units hinzugefügt.. dann installiert..
aber wenn ich die demos starte bekomme ich fehlermeldungen ??????
hab übrigens delphi 2007

[sx2008]

Zitat von napstar:

ich würde gerne meine .doc files von einem laufwerk (usb stick - immer G:\)
nach C:\backup\ kopieren..

Ich mag Delphi ja schon, aber das ist ein Job für eine Batchdatei:

Code:

@REM Datei UsbStickBackup.cmd
@echo sichere Dokumente vom USB-Stick auf C:\Backup...
xcopy /S /F /V G:\*.doc C:\backup\

Für etwas höhere Ansprüche kann man Microsoft SyncToy veerwenden.

Und dann gibt es immer noch diesen Aktenkoffer mit dem man Dateien zwischen PC und Wechseldatenträger synchronisieren kann.

[napstar]

thx an alle.. aber die methode mit ner batch datei scheint mir am leichtesten zu sein ))...