Links til div. filer i mappe

Jeg tror dette script kan hjælpe dig.


<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Fil system made by eXe.</title>
</head>

<body text="black" link="black" vlink="silver">eXe's server - Fil system<br>
<table width="100%">
<tr><td width="50%">Mapper</td><td width="50%">Filer</td></tr><tr><td><hr size="2" color="black" style="border-style: dotted" width="100%"></td><td><hr size="2" color="black" width="100%" style="border-style: dotted"></td></tr><tr><td valign="top" align="left">
<%
'*********************************
' Vi udskriver først undermapperne
'*********************************
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(Server.Mappath("\Navn på mappe\"))
for each x in fo.SubFolders
'Udskriv navnet på mappen
Response.write "<a href=""" & x.Name & """>" & X.Name & "</a><br />"
next
set fo=nothing
set fs=nothing
%>
</td>
<td valign="top" align="left">
<%
'*********************************
' Så finder vi filerne i mappen
'*********************************

dim fs1,fo1,x1
set fs1=Server.CreateObject("Scripting.FileSystemObject")
set fo1=fs1.GetFolder(Server.Mappath("\Navn på mappe\"))
for each x1 in fo1.files
'Udskriv navnene på mappen i mappen
Response.write "<a href=""" & x1.Name & """>" & X1.Name & "</a><br />"
next
set fo1=nothing
set fs1=nothing
%>
</td>
</tr>
</table>
</body>

</html>

Hejsa!

Her skal du have fat i noget FSO!
Eksempel:

<%
directory = "DinMappe"
dim file, array
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath("" & directory & ""))
For each file in allfiles.files
name = file.name
%>
<a href="<%="" & directory & "/" & name & ""%>">
<%="" & name & ""%>
</a>
<%
Next
set allfiles=nothing
set directory=nothing
%>

Her skal du huske at definere hvilket directory vi taler om i den øverste linje i scriptet...

\Dan

P.S. Scriptet er IKKE afprøvet!

Jeg kom desværre ind i den forkerte kategori!
Det skulle have været i PHP!
Så smid lige et svar all'vel!

jaweni

Hej stigdk,

har testet din kode; men filerne
listes ikke op.

Hej dannielsen,
hvordan skal jeg bruge dit kodeeksempel?
Og hvad betyder FSO?

jo de gør... så er det fordi der ikke er nogen filer.... kan du evt sende et link til din side hvor det er på? hvis der er en fejl...

svar?

Hej stigdk,

når der i din kode står:
Navn på mappe, menes der så:
../mappe/undermappe  ???

jaweni

Der menes at den viser mapperne i den mappe du befinder dig i.. den visen ikke mapperne der evt er i de andre mapper.

Så nu har jeg lavet sådan at den også viser undermapper af mapper i den mappe du befinder dig i... Er det noget du kunne bruge??
se evt : http://www.e-x-e.dk/fil_sys.asp