Dim Shell
Set Shell = CreateObject("WScript.Shell")
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Title = "PLC Installer"
call Install
Sub Install
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
Dim pathParts
pathParts = Split(Targ, "\")
S = ""
For Each Part in PathParts
S = S + Part
On Error Resume Next
FSO.CreateFolder(S)
On Error Goto 0
S = S + "\"
Next
' Files to copy
Dim files(1)
files(0) = "PLC.txt"
files(1) = "License.txt"
' Copy the files
For Each File In Files
FSO.CopyFile File, Targ & "\" & File, True
Next
' 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
End If
' Finished...
MsgBox "Installation Complete." & vbCRLF & vbCRLF & _
"You will see a PLC toolbar next time you run VC/VS.NET", , _
Title
End Sub