Option Explicit

Dim shell
Dim fso
Dim installFolder

Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
installFolder = "C:\LCGDiscLink"

On Error Resume Next
shell.RegDelete "HKCR\LCGDiscLink.File\shell\edit\command\"
shell.RegDelete "HKCR\LCGDiscLink.File\shell\edit\"
shell.RegDelete "HKCR\LCGDiscLink.File\shell\open\command\"
shell.RegDelete "HKCR\LCGDiscLink.File\shell\open\"
shell.RegDelete "HKCR\LCGDiscLink.File\shell\"
shell.RegDelete "HKCR\LCGDiscLink.File\DefaultIcon\"
shell.RegDelete "HKCR\LCGDiscLink.File\"
shell.RegDelete "HKCR\.lcgdisc\"
On Error GoTo 0

On Error Resume Next
If fso.FileExists(installFolder & "\LCGDiscLink.vbs") Then
    fso.DeleteFile installFolder & "\LCGDiscLink.vbs", True
End If

If fso.FileExists(installFolder & "\LCGDiscLink.ico") Then
    fso.DeleteFile installFolder & "\LCGDiscLink.ico", True
End If

If fso.FileExists(installFolder & "\daemon-path.txt") Then
    fso.DeleteFile installFolder & "\daemon-path.txt", True
End If

If fso.FolderExists(installFolder) Then
    fso.DeleteFolder installFolder, True
End If
On Error GoTo 0

MsgBox "LCG DiscLink was removed. Restart Windows if the file icon remains visible.", 64, "LCG DiscLink"