Get Current Directory w/o ASP 1

[donmc4]

Is it possible to get the current drive and directory information similar to CurrentProject.Path in VBA.

 

[PHV]

Try this:

Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo WshShell.CurrentDirectory

Hope This Help
PH.

 

[donmc4]

Thanks for your reply.

I tried it and I get error message "Object required 'WScript'". Any ideas?

 

[PHV]

Try this:

Set WshShell = CreateObject("WScript.Shell")
WScript.Echo WshShell.CurrentDirectory

Hope This Help
PH.

 

[dilettante]

What's your script host? Is this IE client-side script?

If so, try window.location.pathname but you'll probably need to URL-decode it. URL decoding is easier using a JScript helper function you can call from VBScript that invokes the decodeURIComponent() method.

<script language=&quot;JScript&quot;>
function URLDecode(s)
{
  return(decodeURIComponent(s))
}
</script>
<script>
Function GetPath()
  'Get file path to current
  'file-based web page.
  Dim s, fol

  s = URLDecode(window.location.pathname)

  'We want to back up to our folder.
  fol = InStrRev(s, &quot;\&quot;)

  'Under some conditions we have a leading &quot;/&quot;
  If Left(s, 1) = &quot;/&quot; Then
    GetPath = Mid(s, 2, fol - 1)
  Else
    GetPath = Left(s, fol)
  End If
End Function
</script>

This is most commonly used in HTAs, but can be used for file-based webs too.

 

[dilettante]

Oops!

The second <script> tag should specify language=&quot;VBScript&quot; - sorry.

 

[donmc4]

Thanks 'dilettante' it seemed to work with no URL decoder required.

Don

 

[dilettante]

You'll be fine until you encounter a directory name with a space in it ;-)

 

[donmc4]

I just used the Replace command to replace &quot;%20&quot; with &quot; &quot;. It seemed to work fine. What do you think?

Thanks
Don