'Получение текста из буфера обмена
 dim strClipboard, objIE

 strClipboard = ""
  
 Set objIE = CreateObject("InternetExplorer.Application")
 objIE.Navigate("about:blank")
 strClipboard = objIE.document.parentWindow.clipboardData.getData("Text")
 objIE.Quit
 Set objIE = nothing

' Копирование текста в буфер обмена
 dim strCopy, objIE

 strCopy = "This text has been copied to the clipboard."

 Set objIE = CreateObject("InternetExplorer.Application")
 objIE.Navigate("about:blank")
 objIE.document.parentWindow.clipboardData.setData "text", strCopy
 objIE.Quit
 Set objIE = nothing


' Имитация нажатия клавиш
  dim WshShell
  set WshShell = CreateObject("WScript.Shell")
  WshShell.SendKeys "{esc}"
  set WshShell = nothing


'Оставить только файлы ".jpg", которые начинаются на "0". Остальное удалить. Удаляет из всех вложенных подпапок.
Option Explicit

Dim fso, RefFolder
Set fso = CreateObject("Scripting.FileSystemObject")
Set RefFolder = fso.GetFolder("c:\2\")
DelMusor(RefFolder)
Set fso = nothing

' Оставить только файлы ".jpg", которые начинаются на "0"
Sub DelMusor(MyPath)
  dim f, SubFolder

  For Each f in MyPath.Files
    if not (Left(f.Name,1) = "0" and Right(f.Name,4) = ".jpg") then f.delete true
  Next

  For Each SubFolder in MyPath.SubFolders
    DelMusor(SubFolder)
  Next  
End Sub


'Удаление каталога со всеми потрохами
Option Explicit
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder "d:\111111111111111", true


'Удаление определенного каталога (например "bin") рекурсивно во всех папках
Option Explicit

Dim fso, WshShell, RefFolder

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set RefFolder = fso.GetFolder(WshShell.CurrentDirectory) ' текущий каталог

DelMusor(RefFolder)

Set fso = nothing
Set WshShell = nothing
Set RefFolder = nothing

Sub DelMusor(MyPath)
	dim SubFolder

	on error resume next
	
	For Each SubFolder in MyPath.SubFolders
'		if Right(SubFolder,3) = "bin" then msgbox(SubFolder)

		if Right(SubFolder,3) = "bin" then
			fso.DeleteFolder SubFolder
		end if
		delMusor(SubFolder)
	Next  
End Sub