[Iska]

fokanik, попробуйте на WSH (не проверялось):

Скрытый текст

Код:

Option Explicit

Dim strSourceFolder
Dim strACEStreamFolderInAppData
Dim strTemplate


With WScript.CreateObject("Scripting.FileSystemObject")
	strSourceFolder = "c:\_acestream_cache_"
	
	If .FolderExists(strSourceFolder) Then
		.DeleteFolder strSourceFolder, True
		
		strACEStreamFolderInAppData = .BuildPath(WScript.CreateObject("Shell.Application").NameSpace("shell:AppData").self.Path, ".ACEStream")
		
		For Each strTemplate In Array( _
			"buffer\*.*", _
			"dlcheckpoints\*.*", _
			"dldcheckpoints\*.*", _
			"*.log" _
		)
			.DeleteFile objFSO.BuildPath(strACEStreamFolderInAppData, strTemplate), True
		Next
	Else
		' Nothing to do
	End If
End With

WScript.Quit 0