Цитата jordan_74:
Нужен скрипт на 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