На самом деле не всё так страшно, просто не надо было тупо вызов глушить, а сделать так
Код:
...
if (sr.Attr and faDirectory) <> 0 then
begin
fl.Add(fromDir + sr.Name);
MoveDir(fromDir + sr.Name, toDir)
end else
if sr.Name <> ExtractFileName(ParamStr(0)) then fl.Add(fromDir + sr.Name);
...
З.Ы. Опа какой пердюмонокль, отставить замену, только что заметил, извнт
Цитата:
|
Сообщение от Electronic_Arts
...После выполнения вижу в мемо
c:\SourceFolder\Новая папка
но на флешке
с:\SourceFolder
Новая папка - не появляется...
|
Этож API
с его прикольной WIN-логикой: если папка пустая, то и нечего перемещать. Если вам всё равно пустышку требуется сдвинуть, тогда бороть "дружеский" интерфейс придется его же методами т.е. делать все как ткнуть ПКМаусом "копировать", потом "вставить" и "удалить", другими словами - сначало FO_COPY а затем FO_DELETE, хотя честно говоря смысла в этом усложнении не вижу. Можно ещё правда в такую папку предварительно какойнить мусор засунуть, типа как "папка.txt", тогда точно переместится, тоже вариант