Hier ein Bsp von mir:
<%
function f_listFiles()
sDirectory = Request.Querystring("Value")
dim aFiles(),aSubfolders()
if len(sDirectory) = 0 then
sDirectory = "d:\"
end if
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set selectFolder = objFSO.GetFolder(sDirectory)
sDirectory = Replace(sDirectory, "\", "/")
i = 0
iSubfolders = selectFolder.subfolders.count
redim aSubfolders(iSubfolders)
for each objSubfolders in selectFolder.subfolders
aSubfolders(i) = objSubfolders
i = i + 1
Response.Write "X <A HREF='test1.asp?Value=" & sDirectory &
objSubfolders.name & "\'>" & objSubfolders.name & "</a><BR>"
next
iFiles = selectFolder.Files.count
i = 0
redim aFiles(iFiles)
for each objFile in selectFolder.Files
aFiles(i) = objFile.name
i = i + 1
strFile = Right(objFile.name, 3)
SELECT CASE strFile
CASE "jpg" %><A HREF="JavaScript:openWindow('bildanzeigen.asp?Pfad=<%=
sDirectory %>&Bild=<%= objFile.name %>')"><IMG SRC="<%= sDirectory %>/<%=
objFile.name %>" WIDTH="10%" BORDER="0"></A><%
CASE "gif" Response.Write "<IMG SRC='" & sDirectory & objFile.name &
"'><BR>"
CASE "bmp" Response.Write "<IMG SRC='" & sDirectory & objFile.name &
"'><BR>"
CASE "mp3" Response.Write "MP3 File<BR>"
CASE ELSE Response.Write objFile.name & "<BR>"
END SELECT
next
end function
%>
Unter sDirectory steht der Pfad!
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
