Так однако, про папки не было ни слова, только файлы
Убрав рекурсивный вызов этой функции вы убили заодно и проход по вложенным папкам. Чтоб понять что присходит советую сделать следующее - на время заключите блок от строки с ZeroMemory.. до Result:= (0.. в фигурные скобки, отключив его выполнение смело кидайте на форму мемо, в конце кода так же на время добавьте строчку
Код:
...
Memo1.Lines.Assign(fl);
...
и посмотрите что будет отображаться в текстовом поле.
Наводка:
Флаг FOF_FILESONLY для операций только с файлами, прямой перевод (правда действует это условие лишь если в поле pFrom прописано в пути *.*)
pTo похоже на pFrom, содержит путь к целевой директории
в которую производится перемещение файлов, может содержать несколько путей, при этом нужно установить флаг FOF_MULTIDESTFILES.
Если задать ещё флаг FOF_WANTMAPPINGHANDLE то после выполнения файловых операций в структуре hNameMappings можно просмотреть что было сделано с файлами на самом деле
Текущую директорию можно установить с помощью функции SetCurrentDirectory и получить функцией GetCurrentDirectory
Для перемещения из "корневой" (для данной папки) директории вложенных папок следует в начале ставить в пути к ним двойной обратный слеш (\\)