Viele Dateien auf USB-Stick schnell verschieben

[cookie22]

Also ich habs so gemacht:

Delphi-Quellcode:

procedure MoveFiles(DirFrom, DirTo: string);
var
  shellinfo: TSHFileOpStruct;
begin
  with shellinfo do
  begin
    Wnd    := 0;
    wFunc  := FO_MOVE;
    pFrom  := PChar(DirFrom);
    pTo    := PChar(DirTo);
    fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR or FOF_MULTIDESTFILES or FOF_SILENT;
  end;
  SHFileOperation(shellinfo);
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
SetCurrentDir('x:\');
MoveFiles('test'+#0, 'x:\test2\blah'+#0)
end;

mit FO_RENAME gehts auch nicht.

mit findfirst, findnext + movefile dauerts noch länger.

wenn ich die daten per drag&drop im explorer verschiebe wird garnix auf den stick geschrieben, wird da auf die datei tabelle zugegriffen und nur der name geändert?

Zitat:

Ach, das ist doch dieser Sicherheitsschnee...

sicher ist das sicher nicht, was die da machen. ich will nur wissen wie die die daten so schnell verschieben.

das programm gibs hier:
http://www.newsoftwares.net/usb-secure/

edit:
ok die lösung des problems ist mal wieder sehr einfach.

movefilew funktioniert auch mit ordnern. so machts das programm und auch der explorer.