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