понедельник, 20 января 2014 г.

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

Скрипт был взят тут
vbscript:
Main
 
Sub Main
                Dim oFSO
                Dim sDirectoryPath
                Dim oFolder
                Dim oDelFolder
                Dim oFileCollection
                Dim oFile
                Dim oFolderCollection
 
                Set oFSO = CreateObject("Scripting.FileSystemObject")
                sDirectoryPath = "C:\ЗДЕСЬ\ТВОЙ\ПУТЬ\К_ПАПКЕ"
                set oFolder = oFSO.GetFolder(sDirectoryPath)
                set oFolderCollection = oFolder.SubFolders
                set oFileCollection = oFolder.Files
 
                For each oFile in oFileCollection
                               oFile.Delete(True)
                Next
 
                For each oDelFolder in oFolderCollection
                                oDelFolder.Delete(True)
                Next
 
                Set oFSO = Nothing
                Set oFolder = Nothing
                Set oFileCollection = Nothing
                Set oFile = Nothing         
 
End Sub