' FunGetCurDir.vbs
' AUTHOR: Jeffery Hicks 
' COMPANY: JDH Information Technology Solutions
' DATE  : 8/2/2004
' COMMENT: This function will return the current directory path
' for the script.  

On Error Resume Next

'this is sample code on how to use the function

WScript.Echo "The current directory for " & wscript.scriptname &_
" is " & GetCurDir(WScript.ScriptFullName,WScript.ScriptName)

wscript.quit

'///////////////////////////////////////////////////////
Function GetCurDir(strScriptFullName,strScriptName)
On Error Resume Next

iName=InStr(strScriptFullName,strScriptName)
GetCurDir=Left(wscript.ScriptFullName,iName-1)

end Function

'EOF