Hier mal ein
Beispielscript. Ich hab das noch irgendwo als Download gesehen wo die
Icons dabei sind. Kann den Pointer aber nicht mehr
finden.
Ausnahmsweise HTML, damit der Code
ankommt
--
Viele Gr��e
Hubert
Daubmeier
<%@ LANGUAGE = VBScript %>
<%
Option Explicit
Dim fso, oFolder, sDir
sDir =
Trim(Request("dir"))
If Len(sDir) = 0 Then sDir = "."
If
Right(sDir, 1) <> "/" Then sDir = sDir & "/"
Set fso =
CreateObject("Scripting.FileSystemObject")
Set oFolder =
fso.GetFolder(Server.Mappath(sDir))
Sub
ListFiles(myDir)
Dim oSubFolders, oFiles,
item
' -- Tabellenkopf
Response.Write "<table border=""0"">" & vbcrlf & _
" <tr>" & vbcrlf & _
" <th>Dateiname</th>" & vbcrlf &
_
"
<th>Gr��e</th>" & vbcrlf & _
" <th>Typ</th>" & vbcrlf & _
" <th>Erstellt</th>" & vbcrlf &
_
"
</tr>"
' -- �bergeordnetes
Verzeichnis
Response.Write "<tr>" & vbcrlf &
_
" <td align=falsch>"
& ToIcon("Folderopen") & "<a href=""" &
Request.ServerVariables("SCRIPT_NAME") & "?Dir=" &
UnMappath(oFolder.Parentfolder) & """>. .</a></td>" &
vbcrlf & _
" <td
align=""right""> </td>" & vbcrlf & _
" <td>" & UnMappath(oFolder.Parentfolder) & "</td>"
& vbcrlf & _
"
<td> </td>" & vbcrlf & _
"</tr>"
' -- Verzeichnisse
Set
oSubFolders = oFolder.SubFolders
For each item in
oSubFolders
Response.Write ("<tr>" &
vbcrlf & _
" <td>" &
ToIcon("Folder") & "<a href=""" &
Request.ServerVariables("SCRIPT_NAME") & "?Dir=" & sDir & item.name
& """>" & item.name & "</a></td>" & vbcrlf &
_
"
<td> </td>" & vbcrlf & _
" <td>" & item.type & "</td>" & vbcrlf &
_
" <td>" &
item.DateCreated & "</td>" & vbcrlf & _
"</tr>")
Next
' --
Dateien
Set oFiles = oFolder.Files
For each item in oFiles
Response.Write
("<tr>" & vbcrlf & _
" <td>" &
ToIcon(item.name) & "<a href=""" & sDir & item.name &
""">" & item.name & "</a></td>" & vbcrlf &
_
" <td align=""right"">"
& FormatNumber(item.size, 0, -1, -1, -1) & "</td>" & vbcrlf
& _
" <td>" & item.type
& "</td>" & vbcrlf & _
" <td>" & item.DateCreated & "</td>" & vbcrlf
& _
"</tr>")
Next
' -- Tabellenende
Response.Write "</table>"
End Sub
Function
ToIcon(sTypename)
Dim sTemp
Select
Case lcase(Right(sTypename, 4))
Case
"lder"
sTemp = "folder"
Case "open"
sTemp =
"folderopen"
Case ".zip"
sTemp = "zip"
Case ".txt",
".css"
sTemp = "text"
Case ".asp"
sTemp =
"ASP"
Case ".bat",
".cmd"
sTemp = "cmd"
Case ".xls"
sTemp =
"excel"
Case ".exe", ".com",
".scr"
sTemp = "exe"
Case ".chm", ".hlp"
sTemp =
"help"
Case ".htm", "html", ".stm",
"shtm"
sTemp = "HTML"
Case ".pdf"
sTemp =
"pdf"
Case ".bmp", ".pcx", ".jpg", ".gif", ".png",
"jpeg"
sTemp = "picture"
Case ".ppt", ".pot"
sTemp =
"ppt"
Case ".pub"
sTemp
= "publisher"
Case
".vbs"
sTemp = "script"
Case ".doc", ".rtf", ".dot"
sTemp =
"word"
Case ".mdb",
".ldb"
sTemp = "Access"
Case Else
sTemp =
"folder"
End Select
ToIcon =
"<img src=""/include/" & sTemp & ".gif"" alt=""" & sTemp &
""" width=""21"" height=""16"" border=""0"" align=""left"">"
End
Function
Function UnMappath(sString)
Dim a,
b
a = split(sString, ":") ' Laufwerk
wegwerfen
b = replace(mid(a(1), 4), "\",
"/")
If Right(b, 1) <> "/" Then b = b &
"/"
UnMappath = b
End
Function
%>
<html>
<head>
<title>Dateiliste in <% = UnMappath(oFolder.path)
%></title>
<link rel="stylesheet" type="text/css"
href="../include/stylesheet.css">
</head>
<body>
<h2>Dateiliste
in <% = UnMappath(oFolder.path) %></h2>
<hr size="1"
color="#000000">
<% call ListFiles(sDir)
%>
</body>
</html>
-----Original
Message-----
From: Mayer Stefan [mailto:[EMAIL PROTECTED]]
Sent: Sunday,
September 09, 2001 12:31 PM
To: ASP Diskussionsliste fuer
Anfaenger
Subject: [aspdebeginners] Directiry durchsuchen in
VB/ASP
Ich steh momentan ganz auf der Leitung - aber:
Wie kann
in ein Directory nach enthaltenenn Dateien in VB bzw. ASP
durchsuchen?
Stefan.
Title: Nachricht
