Function pathRemove(strFileName)
strFileName=Replace(strFileName,"/","\")
Dim ipos
ipos=InStrRev(strFileName,"\")
pathRemove=Left(strFileName,ipos)
End Function
WScript.Echo pathRemove(WScript.ScriptFullName)
strFileName=Replace(strFileName,"/","\")
Dim ipos
ipos=InStrRev(strFileName,"\")
pathRemove=Left(strFileName,ipos)
End Function
WScript.Echo pathRemove(WScript.ScriptFullName)