Finding your actual path / drive letter from VBScript or JavaScript.

I've noticed on newsgroups that web developers sometimes need to place the creations on CD. I had an occasion to recently, as well as access a database ON that CD.

Easy right? NOPE!!!

Because scripts run in a "sandbox" environment, you can't get the browser to use the file system, and relative links don't work when accessing DB's. The answer (for me at least) was to pull the drive letter & path from the URL of the page (if you run a web page from disk, the drive letter is usually included).

Below are the scripts I developed, in VBScript & Javascript versions. If you can make use of them, feel free, but let me know if you have any problems or comments.

VBScript

function GetDriveLetter(byval dURL) dim x x = instr(1,lcase(dURL),"file:///") if x > 0 then dURL = replace(lcase(dURL),"file:///","") 'remove file part of line GetDriveLetter = left(dURL,2) end if end function function GetPath(byval pURL) dim x x = instr(1,lcase(pURL),"file:///") if x > 0 then pURL = replace(lcase(pURL),"file:///","") 'remove file part of line x = instrrev(pURL,"/") GetPath = left(pURL,x) end if end function

JavaScript

function GetDriveLetter(dURL) { var x,re,HoldURL; re = /file:.../i; if (dURL.search(re) > -1) { HoldURL = dURL.replace(re,''); return(HoldURL.substring(0,2)); } } function GetPath(pURL) { var x,re,HoldURL; re = /file:.../i; if (pURL.search(re) > -1) { HoldURL = pURL.replace(re,''); x = HoldURL.lastIndexOf('/'); return (HoldURL.substring(0,x + 1)); } }