1 (изменено: s.makhotkin, 2017-11-16 12:27:56)

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

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

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

2

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

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

3 (изменено: s.makhotkin, 2017-11-17 10:56:18)

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

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

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