Loop, %0%
{
param := %A_Index%
If InStr(FileExist(param), "D")       ;если это папка
	{
	Loop, %param%, 1
	dir_name := A_LoopFileName
	FileMoveDir, %param%, D:\MyFolder\%dir_name%, 2   ;0 - оставить существующие папки; 2 - перезаписывать
	If ErrorLevel
		Er := 1, folder_error .= "`n"param
	}
Else                                  ;иначе это файл
	{
	FileMove, %param%, D:\MyFolder, 1                 ;0 - оставить существующие файлы; 1 - перезаписывать
	If ErrorLevel
		Er := 1, file_error .= "`n"param
	}
GUI, Add, Text, , Следующие объекты не удалось переместить`n`nПапки:%folder_error%`n`nФайлы:%file_error%
}
If Er  ; если возникли проблемы
GUI, Show