' Скрипт перемещает файлы с Рабочего стола, превышающие указанный размер, в указанную папку.
MaxSize = 102400 ' в байтах
DestPath = "c:\desktop\" ' куда перемещать
'==================================================================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("Wscript.Shell")
Set DesktopFolder = fso.GetFolder(WshShell.SpecialFolders("Desktop"))
If Not FSO.FolderExists(DestPath) Then
    FSO.CreateFolder DestPath
End If
DestPath = DestPath & Replace(Now, ":", ".")
FSO.CreateFolder DestPath
Flag = False
For Each Folder In DesktopFolder.SubFolders
    FSO.MoveFolder Folder, DestPath
    Flag = True
Next
For Each File In DesktopFolder.Files
    If File.Size > MaxSize Then
        FSO.MoveFile File, DestPath & "\"
        Flag = True
    End If
Next
If Flag Then
    MsgBox "Все папки, а также файлы, превышающие размер " & MaxSize & _
        " байт, были перемещены с Рабочего стола в папку """ & DestPath & """."
End If