G'day,
I have written some code that displays all the files in a directory so that I can then upload or delete files through a web interface. Everything works fine although it seems that I am restricted to having the ASP file in the same folder with the files that I want to manage.

I don't want this because it then lists the actual ASP script file as being a file in the directory which of course I don't want users to be able to see and delete.

I have tried playing around with the Path mappings and I get all sorts of strange error messages. Is anyone able to see what I may be doing wrong from my code below.

Basically, I want to be able to run the script from say c:\script that lists the files in say c:\images and I don't want to have to put the script file in c:\images with the image files.

================================================== =============
The code:


strPathInfo = Request.ServerVariables("SCRIPT_NAME")
strPhysicalPath = Server.MapPath(strPathInfo)

Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
set objFSO = CreateObject("Scripting.FileSystemObject")

set objFile = objFSO.GetFile(strPhysicalPath)
set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files

If you use server.mappath, then you will get the path where the script file is present.

strPhysicalPath = "c:\images"

Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
set objFSO = CreateObject("Scripting.FileSystemObject")

set objFile = objFSO.GetFile(strPhysicalPath)
set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files

strPhysicalPath can come from database or ssome config file.


Om Prakash

Hello, thank you for your response.

I tried your suggestion and changed the strPhysicalPath to the directory I want the script to list files for and it didn't work.

I got a "File Not Found" error when trying to use the following:

strPhysicalPath = "e:\inetpub\images\"

I then put the script inside that directory and used the following:

strPhysicalPath = "e:\inetpub\images\dirlist.asp"

which worked, but that's exactly what I want to avoid having to do. I don't want the script to be in the same directory as the files I am trying to list but it seems that the script won't run from a different directory to the one I am trying to tell it to read in the strPhysicalPath (confused)

Please check the following code:

This code can be run from any folder in any physical directory. If you are using ASP then in inetpub\wwwroot or any virtual directory.

you can enter the folder/path name for which you want to get file names.

<%
strPhysicalPath = "d:\testfolder"

'This will list all files from d:\testfolder folder.

Response.write ShowFileList("d:\python21")

Function ShowFileList(folderspec)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.Files
   For Each f1 in fc
      s = s & f1.name
      s = s & "<BR>"
   Next
   ShowFileList = s
End Function
%>

Om Prakash

Thank you Om Prakash

That worked perfectly!! Thanks for your help.