Hi guys, how would i go about dynamically listing the contents of a folder and create links to the listings as well. For instance, i'd like to be able to list all the files with the .doc extension, and also when the list is displayed, i'd like to be able to click on any of the listings and have that file open. thanks in advance.
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Enhanced list folder contents
- Thread starter gmagerr
- Start date
OK, you'll need a file system onbject. What you will want to do is use this object to get the contents of a folder, then retrieves all the files from that folder into a collection.
Create a string variable that holds all the extensions you want to show as links with spaces between them.
Now loop through the file collection, check if right(filename,4) is in the extension string (using InStr), if it is write it out as a link, if it isn't write it out as plain text (or ignore it if you only want the linkable files).
Now to make this a little fancier you could output these each intheir own row and display the file.LastModified and file.Size to get a more "file listing" feel.
I wrote something similar at somepoint to list all of the web documents in a fodler, grouped by extension, with a preview button and an iframe for the pages. If you want more details let me know and I'll try to fig that file off my lap top and post it (after I get some coffee).
-Tarwn --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
For my next trick I will pull a hat out of a rabbit (if you think thats bad you should see how the pigeon feels...)
Create a string variable that holds all the extensions you want to show as links with spaces between them.
Now loop through the file collection, check if right(filename,4) is in the extension string (using InStr), if it is write it out as a link, if it isn't write it out as plain text (or ignore it if you only want the linkable files).
Now to make this a little fancier you could output these each intheir own row and display the file.LastModified and file.Size to get a more "file listing" feel.
I wrote something similar at somepoint to list all of the web documents in a fodler, grouped by extension, with a preview button and an iframe for the pages. If you want more details let me know and I'll try to fig that file off my lap top and post it (after I get some coffee).
-Tarwn --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
For my next trick I will pull a hat out of a rabbit (if you think thats bad you should see how the pigeon feels...)
- Thread starter
- #3
One major differance here is that instead of using links I used preview buttons because I wanted to create the preview window. I was planning on adding a folder list and making it navigateable as well, just never got to it.
I would warn you not to use this exactly as typed because some of it may be to specific for your uses, but it should server as a good example and may help you write yours more easily.
-Tarwn --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
For my next trick I will pull a hat out of a rabbit (if you think thats bad you should see how the pigeon feels...)
Code:
<%
Option Explicit
Dim fso, folders, files
Dim pathname
If Request.QueryString("filepath") <> "" Then
pathname = Request.QueryString("filepath")
Else
pathname = "/"
End If
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folders = fso.getFolder(Server.Mappath(pathname))
Set files = folders.files
Dim previewable
previewable = "asp htm html xml xsl jpg gif txt csv"
Dim file, types, fn
For each file in files
fn = right(file.name,len(file.name) - InStr(file.name,"."))
If InStr(types,fn) < 1 Then
types = types & fn & "#"
End If
Next
Dim filetypes
fileTypes = split(types,"#")
Dim content
content = split(types,"#")
Dim i
For i = 0 to UBound(content) - 1
content(i) = "<tr class='rowHeader'><td colspan='4' align='center'>"&ucase(fileTypes(i))&" Files</td></tr>"
Next
dim ind,sz
For each file in files
ind = getIndex(file.name)
If file.size > 1024 Then
sz = Round(file.size/1024,2) & " KB"
Else
sz = file.size & " bytes"
End If
content(ind) = content(ind) & "<tr><td>"
If InStr(previewable,fileTypes(ind)) Then
content(ind) = content(ind) & "<input type=""button"" onClick=""document.getElementById('fraPreview').src='"&pathname&file.name&"'"" value=""Preview"" class=""btnPreview"">"
End If
content(ind) = content(ind) & "</td><td>" & file.name & "</td><td align='right'>" & sz & "</td><td align='right'>" & file.dateLastModified & "</td></tr>"
Next
Function getIndex(filename)
Dim en, i
en = right(file.name,len(file.name) - InStr(file.name,"."))
For i = 0 to UBound(fileTypes) - 1
If lcase(en) = lcase(fileTypes(i)) Then getIndex = i
Next
End Function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Previewing Files</title>
<style>
table{
background-color:#999999;
}
table tr{
background-color:#eeeeee;
}
.rowHeader{
background-color:#cccccc;
}
iframe{
border:2px #999999 solid;
}
</style>
<style media="print">
iframe{
display:none;
}
.btnPreview{
display:none;
}
</style>
</head>
<body>
<table width="90%">
<tr>
<td colspan="6" align="center">
Directories
</td>
</tr>
<%
' Dim f, c
' c = 0
' For Each f In folders.getFolders
' If c mod 6 = 0 Then Response.Write "<tr>"
' Response.Write "<a href=""xmlDirListing.asp?pathname="&pathname&"/"&f.name&""">"&f.name&"</a>"
' If c mod 6 = 5 Then Response.Write "</tr>"
' c = c+1
' Next
%>
</table>
<table width="90%">
<tr>
<td>
Preview
</td>
<td>
Filename
</td>
<td>
Size
</td>
<td>
Last Modified
</td>
<td valign="top" rowspan="<%=UBound(fileTypes)+files.count+1%>">
Preview Window<br>
<iframe id="fraPreview" height="100%" width="100%"></iframe>
</td>
</tr>
<%
Dim section
For each section in content
Response.Write section
Next
%>
</table>
</body>
</html>I would warn you not to use this exactly as typed because some of it may be to specific for your uses, but it should server as a good example and may help you write yours more easily.
-Tarwn --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
For my next trick I will pull a hat out of a rabbit (if you think thats bad you should see how the pigeon feels...)
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question
- Locked
- Question