InstallShiled 2012完全卸载-删除文件夹和子文件夹和文件

用的InstallShiled 2012 LE版，很多功能都不全。

为了卸载时能够删掉运行时产生的一些文件。

所需步骤：1. Environment Varaiables加入mypath

2. custom actions加入以下vbs.

Function removeNew()

Set WshShell = CreateObject("WScript.Shell")
Dim fso, Folder2Delete, folder, intAnswer
Folder2Delete =  WshShell.ExpandEnvironmentStrings("%mypath%")
Folder2Delete = Left(Folder2Delete, Len(Folder2Delete) - 1)
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Folder2Delete)

MsgBox "The folder " & folder & " exists so now to delete all folders inside.", vbInformation

intAnswer = Msgbox("Do you want to delete these files", vbYesNo, "Delete Files")
If intAnswer = vbNo Then
     Exit Function
End If

' delete all files in root folder
for each f in folder.Files
   On Error Resume Next
   name = f.name
   f.Delete True
   If Err Then
     MsgBox "Error deleting:" & Name & " - " & Err.Description, vbInformation
   Else
     MsgBox "Deleted:" & Name, vbInformation
   End If
   On Error GoTo 0
Next

' delete all subfolders and files
For Each f In folder.SubFolders
   On Error Resume Next
   name = f.name
   f.Delete True
   If Err Then
     MsgBox "Error deleting:" & Name & " - " & Err.Description, vbInformation
   Else
     MsgBox "Deleted:" & Name, vbInformation
   End If
   On Error GoTo 0
Next

'delete the folder itself
If fso.FolderExists(Folder2Delete) Then
  fso.DeleteFolder(Folder2Delete)
End If

Set WshShell = Nothing
Set Folder2Delete = Nothing
Set fso = Nothing
Set folder = Nothing

End Function