[Summary]: delete some Preferences in the process of Tracks Live uninstall on windows

This commit is contained in:
YPozdnyakov 2015-01-16 20:14:07 +02:00
parent 2b9434b6af
commit b4fe7e9026
2 changed files with 27 additions and 4 deletions

View file

@ -0,0 +1,20 @@
' deletes Tracks Live Preferences
' except recent and config
Sub DeleteFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
fso.DeleteFile(filespec)
End If
End Sub
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")
strUserName = objNetwork.UserName
path_to_preferences="c:\Users\"+strUserName+"\AppData\Local\Tracks Live\.config\"
Call DeleteFile (path_to_preferences+"instant.xml")
Call DeleteFile (path_to_preferences+"sfdb")
Call DeleteFile (path_to_preferences+"ui_config")