Тема: 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
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.