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

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

null@example.com (s.makhotkin) — Fri, 17 Nov 2017 06:15:43 +0000

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

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: переменные, очистка каталога

null@example.com (929151) — Thu, 16 Nov 2017 10:51:09 +0000

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

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

null@example.com (s.makhotkin) — Thu, 16 Nov 2017 08:23:47 +0000

прошу помощи в поиске правильного ответа.
нужно скриптом полностью очищать каталог
%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

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