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);
    error = Application.GetLastError();
    if (error ~= 0) then
        Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
    else
        Folder.Delete(sInFolderPath);
    end
end