Buenas amigos de amsspecialist.info, hoy mirando en el foro de ru-board he visto un script que me a parecido interesante la verdad es que no lo he probado pero a simple vista parece qye funciona correctamente espero que os guste y os sea de gran utilidad.
function Folder.Move(sInFolderPath, sDestFolderPath)
sInFolderPath = String.TrimRight(sInFolderPath, "\\");
sDestFolderPath = String.TrimRight(sDestFolderPath, "\\").."\\"..String.Mid(sInFolderPath, String.ReverseFind(sInFolderPath, "\\", false) + 1, -1);
if not Folder.DoesExist(sDestFolderPath) then
Folder.Create(sDestFolderPath);
end
File.Move(sInFolderPath.."\\*.*", sDestFolderPath, true, true, false, true, nil);
-- Test for error
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else
Folder.Delete(sInFolderPath);
end
end
--************************
local sDir = Dialog.FolderBrowse("Please select a folder:", "AutoPlay\\Docs");
if sDir ~= "CANCEL" then
Folder.Move('C:\\Downloads', sDir);
end