|
|
| |
|
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
|
'**************************************
' Name: List all files in a directory
' Description:Uses the new file FileSyst
' emObject in the scripting library to lis
' t all the files in the c:\inetpub\script
' s\ directory with a link to them. You ca
' n modify this code to list all the files
' in any directory.
' By: Ian Ippolito (RAC)
'
'This code is copyrighted and has ' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=44&lngWId=4 'for details. '**************************************
<%@ Language=VBScript %>
<HTML>
<BODY>
<%
Dim objFileScripting, objFolder
Dim filename, filecollection, strDirectoryPath, strUrlPath
strDirectoryPath="c:\inetpub\scripts\"
strUrlPath="\scripts\"
'get file scripting object
Set objFileScripting = CreateObject("Scripting.FileSystemObject")
'Return folder object
Set objFolder = objFileScripting.GetFolder("c:\inetpub\scripts\")
'return file collection In folder
Set filecollection = objFolder.Files
'create the links
For Each filename In filecollection
Filename=right(Filename,len(Filename)-InStrRev(Filename, "\"))
Response.Write "<A HREF=""" & strUrlPath & filename & """>" & filename & "</A><BR>"
Next
%>
</BODY>
</HTML>
| |
|
|
Other 34 submission(s) by this author
|
|
| |
 Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
 6/6/2000 11:39:38 AM: Bill Morris
Exactly what I needed this morning. The code is efficient, and provided a great starting point.
(If this comment was disrespectful, please report it.)
|
7/2/2000 9:40:11 PM: Guillermo Pensotti
I`m trying to list the files in a directory but I' don`t have the local path, I only have the UNC path (\\server\shared_folder) I´ve tryied with the FileSystemObject but didn´t work. Do you know how to do that??ThanksGuillermo Pensottigsp@cmsrl.com.ar
(If this comment was disrespectful, please report it.)
|
7/3/2000 11:10:27 AM: Ian Ippolito
Guillermo,
Can you map a drive to it? If so, then you could use the drive letter, (i.e. z:/...) and the file system object will work fine.
Ian
(If this comment was disrespectful, please report it.)
|
10/13/2000 5:15:28 AM: StuFF
I have the same
(If this comment was disrespectful, please report it.)
|
10/13/2000 5:19:57 AM: StuFF
I have the same "UNC" problem, and I would like to find a solution that doesn't oblige me to map a drive.. Imagine if I have to map 20 drives likes that ;) Or is it possible to map a drive temporary, only for the time of the use of the FSO ?
(If this comment was disrespectful, please report it.)
|
8/31/2001 5:42:57 PM: Deryck H
This code needs more commenting. Once accomplished I will rate pretty good (5 star)
(If this comment was disrespectful, please report it.)
|
4/2/2002 1:15:20 PM: knowntobe
great code!
Dont suppose you could add paging?? i.e. only show 10 files then have a "view next 10" etc etc. I dont have a clue where to start so shoot me ;o)
(If this comment was disrespectful, please report it.)
|
4/3/2002 9:39:30 AM: mark
Is it possible to sort the displayed items
(If this comment was disrespectful, please report it.)
|
4/3/2002 10:01:39 AM: Ian Ippolito (psc)
Yes you can sort them on your own, but as far as I know not through the file system object.
Ian
(If this comment was disrespectful, please report it.)
|
6/13/2002 2:25:35 PM: Tony Spencer
Read the following article and it will explain the issues of using Filesystemobject with UNC paths and how to correct the problem.
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q197964
In a nutshell, the filesystemobject through ASP is connecting to other servers as IUSR_webservername. That User must have access to the UNC path in order for the filesystemobject to read the files. I hope that helps.
(If this comment was disrespectful, please report it.)
|
10/28/2002 9:33:49 AM:
Not so excellent as you say... Take a look at any VBS virus code, and you'll find exactly the same scheme, and also a starting point on how to sort your files...
(If this comment was disrespectful, please report it.)
|
2/8/2003 7:57:08 PM: pcdebb
Ian this was a lifesaver. The snippet of code I needed to make my asp page just right!! As always you come thru ;-)
(If this comment was disrespectful, please report it.)
|
2/8/2003 11:53:55 PM: Ian Ippolito (RAC)
Awesome...glad to hear it! ;)
(If this comment was disrespectful, please report it.)
|
4/28/2003 6:08:56 PM:
Just what I was looking for.
As they say, "Worked right out of the box..."
(If this comment was disrespectful, please report it.)
|
4/28/2003 6:22:16 PM: Ian Ippolito (RAC)
glad to hear it. :)
(If this comment was disrespectful, please report it.)
|
6/21/2003 5:28:55 PM:
Just what I needed! I had a similar little script but I needed one that would allow me to write in the physical path. This is nice, thanks.
(If this comment was disrespectful, please report it.)
|
6/21/2003 9:34:30 PM: Ian Ippolito (RAC)
Glad to hear it's useful for you and thanks! :)
(If this comment was disrespectful, please report it.)
|
4/20/2004 4:12:16 PM:
Ian,
Very useful code thank you, really, works like a charm (Tested on Linux Slackware 9 with Sun Java System ASP aka. Chili!Soft aka. Sun ONE ASP).
I have just a small question about it :)
I need to get a couple of dirs all the subdirs inside them, and all the files in each subdir.
I'm testing it right now, but I'm possitive I won't find a quick solution.
Thanks for your time and help =)
(If this comment was disrespectful, please report it.)
|
4/20/2004 4:27:21 PM: Ian Ippolito (RAC)
What you're looking for is a recursive function which is beyond the scope of this posting. I did post a recursive folder crawler on the VB section of the site, but I don't think I've taken the time to make it 100% ASP compatible. However I believe many others have posted things like that here...so just do a 'search' for it. Good luck.
Ian
(If this comment was disrespectful, please report it.)
|
1/13/2006 9:34:05 AM: viralbhatt
Thank you for your code, I really find it usefull. I have one question. Is it possible to display file size or datecreated ?
(If this comment was disrespectful, please report it.)
|
3/21/2007 8:19:55 AM: htl
another greate simple solution
for vb script: open a folder & list its files
can be found here
http://mo8blog.wordpress.com/2007/03/04/vb-script-open-a-folder-list-its-files/
(If this comment was disrespectful, please report it.)
|
4/18/2007 7:18:12 PM: cobbr
Excellent!!! 5 Globes!! Your Code is a must for VBSCRIPTING!
(If this comment was disrespectful, please report it.)
|
|
|
Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author from the email account you registered on the site, so you can correspond directly.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
To post feedback, first please login.
|
By 11 Users