1

Тема: VBScript: очистка Рабочего стола пользователя (оптимизируем профиль)

Скрипт перемещает все папки, а также файлы с Рабочего стола, превышающие указанный размер, в указанную папку.

' Скрипт перемещает файлы с Рабочего стола, превышающие указанный размер, в указанную папку.
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
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.