Серый форум — VBS: переменные, очистка каталога

Re: VBS: переменные, очистка каталога

2017-11-17T06:15:43Z

Спасибо.
итоговый результат выглядит так:

On Error Resume Next
Set objShell = CreateObject( "WScript.Shell" )
userway = objShell.ExpandEnvironmentStrings("%APPDATA%")
userway = userway + "\Microsoft\Signatures"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(userway)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
Set files_col = objFolder.files
For each file_obj in files_col
file_obj.delete(true)
Next

Re: VBS: переменные, очистка каталога

2017-11-16T10:51:09Z

Set objShell = CreateObject( "WScript.Shell" )
appDataLocation=objShell.ExpandEnvironmentStrings("%APPDATA%")
WScript.Echo appDataLocation

VBS: переменные, очистка каталога

2017-11-16T08:23:47Z

прошу помощи в поиске правильного ответа.
нужно скриптом полностью очищать каталог
%AppData%\Microsoft\Signatures

On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("%AppData%" & “\Roaming\Microsoft\Signatures”)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
Set files_col = objFolder.files
For each file_obj in files_col
file_obj.delete(true)
Next

указать полный путь до папки не вариант, т.к. на разных ОС он разный