Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim SomeFileSpec, fso
Set fso = CreateObject("Scripting.FileSystemObject")
SomeFileSpec = "\\Somewhere\c$\Inetpub\DischargeSummary\QueryPage.asp"
MsgBox fso.GetParentFolderName(SomeFileSpec)
MsgBox fso.GetBaseName(SomeFileSpec)
MsgBox fso.GetExtensionName(SomeFileSpec)
MsgBox fso.GetFileName(SomeFileSpec)