[jordan_74]

Получилось что то в духе

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

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(strSourceFolder)
Set colFiles = objFolder.Files

For Each objFolder in colFiles
objFolder.Delete
Next

[Iska]

Нужен скрипт на vbs, который бы удалял все файлы из определенной папки. »

Код:

Option Explicit

Dim strSourceFolder
Dim objFSO


strSourceFolder = "C:\Мои проекты\0221\Source"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strSourceFolder) Then
	objFSO.DeleteFile objFSO.BuildPath(strSourceFolder, "*.*"), True
Else
	WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0