FileSystemObject

Jeg bruger følgende

<%

Dim  fs, f
set fs = CreateObject(\"Scripting.FileSystemObject\")
set f = fs.GetFolder(Server.MapPath(\".\"))

ReDim fileNames(f.files.count)
i = 0
For Each fldr in f.files
fileNames(i) = fldr.name
i = i + 1
Next
%>
<html>

<head>
<title>Listning</title>
</head>

<body link=\"#FF0000\" vlink=\"#0000FF\">

<table border=\"1\" cellspacing=\"1\">
  <tr>
    <td><strong>File listning</strong>.:</td>
  </tr>
<%
For i = f.files.count - 1 to 0 step -1
%>
  <tr>
    <td><a href=\"<%= fileNames(i) %>\">Vis</a></TD><TD><%= fileNames(i) %></td>
  </tr>
<%
Next
%>

1. Kan man lave det således at den ikke viser extention i det displayede navn.

2. Kan man vise et specielt ikon hvis det er eks. .Doc eller .Xls der er extention 


/2001Stausholm