Load Data.vbs

The VBScript Load_Data.vbs is part of PHI copy automation.

current content

'Purpose:
'		open the database on the network share
'		run the vba procedure (entry point)
'		close the database
'		(keep all processing in background)
'
' comment:  done silently - no shell to deal with as this is done using the access application object

call main

sub main
	phi_location = "\\Hsc1msfp0001\med_ccmed\CCMDB\PHI" 
	phi = phi_location & "\phi.mdb"
	phi_loader = phi_location & "\PHI Loader.accdb"
	Set fso = CreateObject("Scripting.FileSystemObject")
	if fso.fileexists(phi) then 
		dim access
		set access = CreateObject("Access.Application")
		access.openCurrentDatabase(phi_loader)
		access.run "loadAllCSVFiles"
		access.closeCurrentDatabase
		set access = nothing
	else
		'msgbox "could not find phi.mbd"
	end if
	set fso = nothing
 end sub