1
2
3
4
5
6
7
8
9
10
11
12
13
On Error Resume Next
Dim objFSO
Set WshShell = CreateObject("Wscript.Shell")
ProgramFiles=WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
strPath=ProgramFiles & "\Vendor\Application"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.DeleteFolder(strPath) Then
objFSO.DeleteFolder strPath, 1
End If
