用的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