[Iska]

Код:

arrFolders = Array("…", "…", "…")

For Each strFolder In arrFolders
    If objFSO.FolderExists(Folder) Then
    …
    …
Next

[nineline]

Спасибо!
Выкладываю рабочий вариант для нужд ищущих
Удаляет файлы в папках folder1,folder2,folder3, которые не редактировались более 7 дней, весят более 1мб и имеют формат jpg или xls.

Код:

Public objFSO
arrFolders  = Array( _
   "c:\folder1", _
   "c:\folder2", _
   "c:\folder3")
DeathLine = 7
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each strFolder In arrFolders
If objFSO.FolderExists(strFolder) Then
        Call ClrFolder(strFolder)
        WScript.Echo "Папка "&strFolder&" очищена."
		Else
        WScript.Echo "Не найден путь " & strFolder
End If
next
WScript.Quit 0
Function ClrFolder(strFolder)
Dim objFolder, objFile, objSubFolder
Set objFolder = objFSO.GetFolder(strFolder)
For Each objFile In objFolder.Files
	Datefile = objfile.DateLastModified
	DiffDate = DateDiff("d",Datefile,Now)
		if LCase(objFSO.GetExtensionName(objFile)) = "jpg" or _
		LCase(objFSO.GetExtensionName(objFile)) = "xls" then
		If DiffDate > DeathLine and _
		objFile.Size > 1048576 then objFile.Delete TRUE

For Each objSubFolder In objFolder.SubFolders
        Call ClrFolder(objSubFolder.Path)
Next
end if
next
end Function

[nineline]

Немного исправил код, перенес все переменные в начало и добавил удаление пустых директорий.

Код:

Public objFSO
arrFolders  = Array( _
   "c:\folder1", _
   "c:\folder2", _
   "c:\folder3")
arrExt  = Array("doc","ods","odt","txt","db","xls","jpg","gif","png",)
DeathLine=60
FileByteSize=1024
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each strFolder In arrFolders
	If objFSO.FolderExists(strFolder) Then
        Call DelFiles(strFolder)
		Call DelEmptyFolders(strFolder)
			WScript.Echo "Папка "&strFolder&" очищена."
		Else
			WScript.Echo "Не найден путь " & strFolder
	End If
	next
WScript.Quit 0

Sub DelEmptyFolders(sFldr)
   Dim mDir, subDir, arDir

   Set mDir = objFSO.GetFolder(sFldr)
   Set subDir = mDir.SubFolders

   For Each arDir In subDir
     DelEmptyFolders arDir.Path
   Next

   If mDir.Size = 0 Then
      mDir.Attributes = 0
      mDir.Delete
   End If
End Sub

Sub DelFiles(sFldr)
	Dim mainDir, objFile, subDir,arDir
	Set mainDir = objFSO.GetFolder(sFldr)
	Set subDir = mainDir.SubFolders
	For Each objFile In mainDir.Files
		For Each arrFileExt in arrExt
		Datefile = objFile.DateLastModified
		DiffDate = DateDiff("d",Datefile,Now)
		if LCase(objFSO.GetExtensionName(objFile)) = arrFileExt then
		If DiffDate >= DeathLine and _
		objFile.Size > FileByteSize then objFile.Delete TRUE
		On Error Resume Next
		end if
	next
	next
	For Each arDir In subDir
		DelFiles arDir.Path
	Next
end Sub

[BigBoo]

Подскажите, как удалить файл, когда известно только начало имени файла.

На рабочем столе есть ярлык CheMaxRus 12.5.lnk , начало имени файла CheMaxRus - неизменно, далее цифры могут быть любыми. Нужен на vbs аналог батника:

Код:

del /q "%UserProfile%\Рабочий стол\CheMaxRus*"

[Iska]

Попробуйте так:

Код:

Option Explicit

Dim objFile


With WScript.CreateObject("VBScript.RegExp")
	.IgnoreCase = True
	.Pattern    = "^CheMaxRus.*\.lnk$"
	
	For Each objFile In WScript.CreateObject("Scripting.FileSystemObject").GetFolder(WScript.CreateObject("WScript.Shell").SpecialFolders.Item("Desktop")).Files
		If .Test(objFile.Name) Then
			objFile.Delete
		End If
	Next
End With

WScript.Quit 0

[ilfaty]

Добрый день, тему создавать не буду, думаю эта почти подходит.
Нужен скрипт который бы удалял в конкретной папке все папки, под папки, файлы кроме тех в название которые в начале стоит знак "!"
Если в начале названия корневой папки нет знака "!" но внутри этой папки есть подпапки или файлы со знаком "!" то корневую папку удалять не надо.