Guest_imported
New member
- Jan 1, 1970
- 0
I have this script to read the contents of a directory it works fine on the local c:\ drive however if I try to use it to read a directory on the network it says:
Microsoft VBScript runtime error '800a004c'
Path not found
/folder.asp, line 14
Here is the script :
<%
mypath="F:\C_Grant"
Set filesystem = CreateObject("Scripting.FileSystemObject"
Set folder = filesystem.GetFolder(mypath)
Set filecollection = folder.subfolders
%>
<SELECT size=20 id=select1 name=Folders>
<%
For Each subfolders in filecollection
response.write "<Option Value =" & mypath &"\"& subFolders.name&" >" & subfolders.name & "</Option>"
Next
%>
</SELECT>
<%
set filesystem=nothing
set folder=nothing
set filecollection=nothing
%>
Microsoft VBScript runtime error '800a004c'
Path not found
/folder.asp, line 14
Here is the script :
<%
mypath="F:\C_Grant"
Set filesystem = CreateObject("Scripting.FileSystemObject"
Set folder = filesystem.GetFolder(mypath)
Set filecollection = folder.subfolders
%>
<SELECT size=20 id=select1 name=Folders>
<%
For Each subfolders in filecollection
response.write "<Option Value =" & mypath &"\"& subFolders.name&" >" & subfolders.name & "</Option>"
Next
%>
</SELECT>
<%
set filesystem=nothing
set folder=nothing
set filecollection=nothing
%>