Hjælp til FileSystemObject
Jeg har et script der viser filer i en mappe, men jeg vil gerne have det ændret lidt, jeg vil gerne have det viser titlen på dokumentet i stedet for fil navnet og så jeg jeg også gerne have vist forfatter navn,. Er der nogen der kan hjælpe med det ?Her er scriptet:
<%
vPath = "/"
pPath = Server.MapPath( vPath )
Set fs = Server.CreateObject( "Scripting.FileSystemObject" )
Set myFolder = fs.GetFolder( pPath )
if Request.QueryString("slet") <> "" then
fs.DeleteFile(Server.Mappath(Request.QueryString("slet")))
end if
%>
<html>
<head>
<title>Fil Navn</title>
</head>
<body>
<table BORDER="1" bgcolor="#E6E6E6" cellspacing="0" cellpadding="10" bordercolor="#FFFFFF"
width="560">
<tr>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" colspan="4" width="538"><strong> <br>
Klik på linket under navn for at åbne filen.</strong></td>
</tr>
<tr>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" width="133"><b>Dato:</b></td>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" width="194"><b>Navn:</b></td>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" width="66"><b>Størrelse:</b></td>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" width="41"><b>Slet filen </b></td>
</tr>
<% For Each thing in myFolder.Files %>
<tr>
<td WIDTH="133"> <%=thing.DateLastModified %></td>
<td WIDTH="194"> <a href="/<%=thing.Name%>" target="_blank"><%=thing.Name%></a></td>
<td WIDTH="66"> <%=thing.Size %> </td>
<td WIDTH="41"> <a href="?slet=<% =vPath & "/"& thing.Name%>">Slet</a></td>
</tr>
<% Next %>
</table>
<p><br>
<%
Dim strPath
Dim objFSO
Dim objFolder
Dim objItem
strPath = "/"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
%></p>
</body>
</html>
