Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата 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
Это сообщение посчитали полезным следующие участники:

Отправлено: 01:48, 25-11-2018 | #3