Load Data.vbs: Difference between revisions
Jump to navigation
Jump to search
Ttenbergen (talk | contribs) Created page with "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 po..." |
Ttenbergen (talk | contribs) m clean up |
||
| Line 9: | Line 9: | ||
' | ' | ||
' comment: done silently - no shell to deal with as this is done using the access application object | ' comment: done silently - no shell to deal with as this is done using the access application object | ||
call main | call main | ||
sub main | sub main | ||
phi_location = "\\Hsc1msfp0001\med_ccmed\CCMDB\PHI" | phi_location = "\\Hsc1msfp0001\med_ccmed\CCMDB\PHI" | ||
| Line 30: | Line 29: | ||
set fso = nothing | set fso = nothing | ||
end sub | end sub | ||
[[Category:Batch Files]] | [[Category:Batch Files]] | ||
Revision as of 18:27, 2014 July 31
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