Hallo!!
Ich habe hier des öfteren gelesen das man mit TSHFileOpStruct u.a. auch Ordner verschieben kann...
Delphi-Quellcode:
ZeroMemory(@lOS, SizeOf(lOS));
lDrivePath := GetDrivePath;
lSubFolder := ExtractRelativePath(lDrivePath, aFromDir);
lFromDir := IncludeTrailingBackslash(aFromDir) + '*.*';
lToDir := IncludeTrailingBackslash(aToDir) + lSubFolder;
with lOS do
begin
wFunc := FO_MOVE;
fFlags := FOF_NOCONFIRMMKDIR;
pFrom := PChar(lFromDir + #0);
pTo := PChar(lToDir)
end;
ShFileOperation(lOS);
Nur wenn ich es ausprobiere, funktioniert es nur wenn ich mit '*.*' jede beliebige Datei in diesem Ordner auswähle. Ansonsten kommt eine Fehlermeldung, daß er die Quelldatei nicht öffnen kann, was auch klar ist, da er ja einen Ordner und keine Datei vor sich hat!! Ist es daher nicht doch eher ein verschieben von Dateien in einem Ordner ist, aber nicht das Verschieben des Ordner selbst oder??
Kann mir da jemand Licht ins Dunkel bringen??
Und wie kann ich tatsächlich den Ordner als ganzes Verschieben??
LG
Thomas