1

Тема: Помогите написать скрипт.

Здравствуйте господа!
Есть такой скрипт для бат файла:

RD C:%HOMEPATH%\ /S /Q

Помогите написать соответствующий VBScript.
Заранее благодарен.

2

Re: Помогите написать скрипт.

Решил проблему сам. Вот скрипт:


Main
Sub Main
                Dim oFSO
                Dim sDirectoryPath
                Dim oFolder
                Dim oDelFolder
                Dim oFileCollection
                Dim oFile
                Dim oFolderCollection
                
                Set wshShell = WScript.CreateObject("WScript.Shell")
                Set wshSysEnv = wshShell.Environment("PROCESS")
                sMyHomePath = wshSysEnv("HOMEPATH")
                
                Set oFSO = CreateObject("Scripting.FileSystemObject")
                sDirectoryPath = "C:" + sMyHomePath + "\Desktop\1"
                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