'*******************************************************************************
' Project : Project Management Database (Access 2003)
'
' Title : ProjMgmt_FEUpdate.vbs
' DateTime : 10/11/2007 11:37:23
' Author : Bill Mosca
' Purpose : Installs all files needed for database application based on text
' file named ProjectMgmt_feVyyyymmdd.txt
' Index :(Updated on 5/21/2007)
' MakeFEShortcut - Creates/overwrites shortcut to launch
' GetDB - Copy latest files from server to local folder
' KeyExists - Checks that msAccess key exists in registry
'*******************************************************************************
Option Explicit
Const cTXTFILE = "ProjectMgmt_feV20080815.txt"
' Server Path
Const cSVRPATH = "\\MyServer\ProjectMgmt"
' Local path for MDE
Const cLOCPATH = "C:\ProjectMgmt"
Const cFE = "ProjectMgmt_FE.MDE"
Const cZip = "ProjectMgmt_FE.zip"
Const cICON = "ProjectMgmt.ico"
' Name of this script
Const cScriptName = "ProjMgmt_FEUpdate.vbs"
Const cSCName = "StartProjectMgmt"
' Name of animated gif used in SplashBox
Const cAniGif = "connect.gif"
'Name used for Desktop Shortcut and title of SplashBox
Const cAppName = "Project Management"
Dim WSHShell
Dim fs
Dim oIE
Function SplashBox(sTitle)
'Purpose : Creates Splash screen while front end downloads.
'DateTime : 1/11/2007 11:18
'Author : Tom Lavedas
Dim s, sBody, item
Set oIE = CreateObject("InternetExplorer.Application")
With oIE
'Commented out for IE7
'.FullScreen = True
.Toolbar = False
.RegisterAsDropTarget = False
.StatusBar = False
.Menubar = False
.Addressbar = False
.Navigate ("about:blank")
Do Until .ReadyState = 4: WScript.Sleep 100: Loop
.Width = 300: .Height = 300
With .Document
With .ParentWindow.Screen
oIE.Left = (.availWidth - oIE.Width) \ 2
oIE.Top = (.availheight - oIE.Height) \ 2
End With
sBody = "Please wait while latest version of " & cAppName & " loads..."
s = "" & sTitle _
& "