' Installer for Project Line Counter
Set Shell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Title = "PLC Installer"
If (MsgBox("This will install Project Line Counter. Do you wish to continue?", 4, Title) <> 6) Then Exit Sub
MsgBox "Please close all running instances of VC++ and VS.NET!", 48, Title
' Get target directory
ProgramFiles = "C:\Program Files"
Targ = ProgramFiles + "\WndTabs.com\LineCount"
Targ = InputBox("Enter target directory", Title, Targ)
If (Len(Targ) = 0) Then Exit Sub
' Create the target directory
pathParts = Split(Targ, "\")
S = ""
For Each Part in PathParts
S = S + Part
On Error Resume Next
On Error Goto 0
S = S + "\"
' Files to copy
files(0) = "PLC.txt"
files(1) = "License.txt"
' Copy the files
For Each File In Files
FSO.CopyFile File, Targ & "\" & File, True
' Extract the files from the cabinet
Shell.Run "expand LineCount.cab -F:*.* """ & Targ & """",, True
' Register the addin
Shell.Run "RegSvr32 /s """ & Targ & "\LineCount.dll"""
' Workspace Whiz! Interface
If (MsgBox( _
"Would you like to install the Workspace Whiz! Interface at this time?" & vbCRLF & _
"The interface is required for VC5/6, but not for Visual Studio .NET." & vbCRLF & _
vbCRLF & _
"Answer ""No"" if you already have Workspace Whiz! installed", 4, Title) = 6) Then
Shell.Run WWhizIntInstaller,, True
MsgBox "Installation Complete." & vbCRLF & vbCRLF & _
"You will see a PLC toolbar next time you run VC/VS.NET", , _
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.
A list of licenses authors might use can be found here
Man throws away trove of Bitcoin worth $7.5 million