[решено] Удаление файлов из папки

[jordan_74]

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

[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