Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
GetPath.vbs:
function ShowAbsolutePath(path)
Dim fso
Set fso = CreateObject("Scripting.Fi
ShowAbsolutePath = fso.GetAbsolutePathName(pa
end function
function getDrive(path)
pos = instr(path,"\")
if pos > 0 then
getDrive = left(path, pos)
else
getDrive = ""
end if
end function
msgbox ShowAbsolutePath(".")
msgbox getDrive(ShowAbsolutePath(
Hope this helps