lword
asked on
BrowseForFolder() raising Permission denied error in XP Internet Explorer
function fnGetMyPathJ(formObj)
{
var oShell = new ActiveXObject("Shell.Appli cation");
var oFolder = new Object;
oFolder = oShell.BrowseForFolder(0, "Choose a folder", 0);
if(oFolder!= null)
{
var oFolderItem = new Object;
oFolderItem = oFolder.Items().Item();
pathValue =oFolderItem.Path;
folder_remotePath =pathValue;
var fso = new ActiveXObject("Scripting.F ileSystemO bject");
var WshNetwork = new ActiveXObject("WScript.Net work");
var oDrives =new Object;
oDrives = WshNetwork.EnumNetworkDriv es();
alert(3);
for(i=0;i<oDrives.length-1 ;i=i+2)
{
if (oDrives.Item(i) == fso.GetDriveName(fso.GetAb solutePath Name(pathV alue)))
{
alert(oDrives.Item(i+1));
remotePath= oDrives.Item(i+1);
drivePath= oDrives.Item(i);
folderPath=oFolderItem.Pat h;
folder_remotePath=folderPa th.replace (drivePath ,remotePat h);
}
}
document.getElementById(fo rmObj).val ue=folder_ remotePath ;
}
}
My OS is XP. The above code is working in visual interdev but not in IE . It is raising PERMISSION DENIED error. In 2000 it is working fine.
{
var oShell = new ActiveXObject("Shell.Appli
var oFolder = new Object;
oFolder = oShell.BrowseForFolder(0, "Choose a folder", 0);
if(oFolder!= null)
{
var oFolderItem = new Object;
oFolderItem = oFolder.Items().Item();
pathValue =oFolderItem.Path;
folder_remotePath =pathValue;
var fso = new ActiveXObject("Scripting.F
var WshNetwork = new ActiveXObject("WScript.Net
var oDrives =new Object;
oDrives = WshNetwork.EnumNetworkDriv
alert(3);
for(i=0;i<oDrives.length-1
{
if (oDrives.Item(i) == fso.GetDriveName(fso.GetAb
{
alert(oDrives.Item(i+1));
remotePath= oDrives.Item(i+1);
drivePath= oDrives.Item(i);
folderPath=oFolderItem.Pat
folder_remotePath=folderPa
}
}
document.getElementById(fo
}
}
My OS is XP. The above code is working in visual interdev but not in IE . It is raising PERMISSION DENIED error. In 2000 it is working fine.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
To over come this please do the following
Go to Internet options->security Tab->Custom level->Initialise and script activeX control not marked as safe: Enable
Lword