[решено] Удаление файлов из папки - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] Удаление файлов из папки (http://forum.oszone.net/showthread.php?t=337813)

Удаление файлов из папки

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

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

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

Set objFSO = CreateObject("Scripting.FileSystemObject")

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

For Each objFolder in colFiles
objFolder.Delete
Next

Цитата:

Цитата 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