Notifikationer

Markér alle som læst Log ud

superraider Nybegynder

02. juli 2004 - 15:04 Der er 17 kommentarer og
2 løsninger

liste over mapper i en mappe

Nogen der har noget kode, som søger og skriver navnene på de mapper i, en array eller sådan noget, som ligger på serveren( i en bestemt mappe ).

Synes godt om

tubber Juniormester

02. juli 2004 - 15:19 #1

Noget ala det her du leder efter ?

http://www.brainjar.com/asp/dirlist/

Oppe til højre kan du trykke demo og se hvad scriptet gør, eller se source så kan du se source for demoen...

og på selve siden er grundscriptet......

Synes godt om

superraider Nybegynder

02. juli 2004 - 21:39 #2

det kan nok bruges, jeg skal bare lige have kigget koderne igennem, jeg skal nnemlig kun bruge navnene på folderne.
men ser lige om koderne er overskuelige, så skal du få dine point

Synes godt om

superraider Nybegynder

02. juli 2004 - 22:07 #3

jeg har lidt problemmer, med at få det til at virke, er der en der kan isolere det jeg skal bruge. Jeg har bare bruger for at lave en liste over de mapper, som ligger i mappen "billeder". behøver ikke filnavne eller noget, bare navnene på mapperne

Synes godt om

tubber Juniormester

02. juli 2004 - 22:46 #4

<%@ LANGUAGE="VBScript" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<% '***************************************************************************
'* ASP Directory Listing *
'* *
'* Do not remove this notice. *
'* *
'* Copyright 1999, 2000 by Mike Hall. *
'* Please see http://www.brainjar.com for documentation and terms of use. *
'***************************************************************************
%>
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>ASP Directory Listing Demo</title>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<link rel="stylesheet" type="text/css" href="/common/default.css" />
</head>
<body>

<div id="demoBox">

<h3>ASP Directory Listing Demo</h3>

<p>Three separate directories from the web server root are displayed below
("asp", "dhtml" and "js"), showing all subdirectories and files. Additionally,
each file is displayed as a link.</p>

</div>


<ul>
<% ListFolderContents(Server.MapPath("/Billeder")) %>
</ul>

</body>
</html>

<% sub ListFolderContents(path)

dim fs, folder, file, item, url

set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)

'Display the target folder and info.

Response.Write("<li><b>" & folder.Name & "</b> - " _
& folder.Files.Count & " files, ")
if folder.SubFolders.Count > 0 then
Response.Write(folder.SubFolders.Count & " directories, ")
end if
Response.Write(Round(folder.Size / 1024) & " KB total." _
& vbCrLf)

Response.Write("<ul>" & vbCrLf)

'Display a list of sub folders.

for each item in folder.SubFolders
ListFolderContents(item.Path)
next

end function %>

Prøv noget lignede det der

Synes godt om

tubber Juniormester

02. juli 2004 - 22:47 #5

Har fjernet det jeg syntes lignende fil tingene

Synes godt om

superraider Nybegynder

02. juli 2004 - 23:20 #6

http://www.s-web.dk/familiesiden/folder.asp
jeg havde fjernet ca det samme, jeg har lagt det i filen folder.asp og lagt det ud, se link. der komemr ikke så meget som en fejlkode, så det er svært at finde fejlen

Synes godt om

tubber Juniormester

02. juli 2004 - 23:30 #7

Microsoft VBScript compilation error '800a03f8'

Expected 'Sub'

/familiesiden/folder.asp, line 46

end function
----^

Synes godt om

tubber Juniormester

02. juli 2004 - 23:30 #8

Der er fejlkoden :)

Synes godt om

superraider Nybegynder

02. juli 2004 - 23:35 #9

det var end sub istedet for end funktion. nu virker det

Synes godt om

superraider Nybegynder

02. juli 2004 - 23:35 #10

nå det kom du også frem til

Synes godt om

superraider Nybegynder

02. juli 2004 - 23:44 #11

sådan ser koden ud nu

Synes godt om

superraider Nybegynder

02. juli 2004 - 23:45 #12

<% sub ListFolderContents(path)
On Error Resume Next
dim fs, folder, file, item, url

set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)

'Display the target folder and info.

Response.Write(folder.Name & "<br>")

for each item in folder.SubFolders
ListFolderContents(item.Path)
next

end sub
%>

men hvis det on error fjernes, så virker det ikke

Synes godt om

tubber Juniormester

02. juli 2004 - 23:45 #13

Hvis du slår "Show friendly HTTP error messages" fra under: Internet Options -> Advanced fra så får du flere fejlkoder med....

Synes godt om

tubber Juniormester

02. juli 2004 - 23:47 #14

Kommer lige med en svar så :) og rart at hører du fik det til at virke :)

Synes godt om

superraider Nybegynder

03. juli 2004 - 00:03 #15

jeg fik det til at virke, da jeg slettede on error, så kom jeg vist til at tage lidt mere, end jeg skulle, så det vurjede

Synes godt om

tubber Juniormester

03. juli 2004 - 02:55 #16

Hov her er det :)

Synes godt om

superraider Nybegynder

03. juli 2004 - 11:41 #17

du kan se at jeg oprettede en ny post for at få nogle flere til at se på det, for det gør jo ikke lige det som jeg vil have det til, når det kommer til stykket.

Jeg vil bare have en liste over de mapper som ligger i en bestemt mappe, hvilket det her ikke gør, i hvert fald ikke 100% som ejg vil have det. og jeg kan ikke få det til det!

Synes godt om

superraider Nybegynder

03. juli 2004 - 12:04 #18

Her er svaret, nu fik jeg det lavet så det virker. Meget simpel og til at forstå.

<%
strPath = "Billeder"

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
%>
<TABLE WIDTH="100%" BORDER="1" BGCOLOR="#FFFFFF" BORDERCOLOR="#000000">
<TR>
<TD WIDTH="30%"><FONT><B>Mappe navn:</B></FONT></TD>
</TR>
<%
For Each objItem In objFolder.SubFolders
If InStr(1, objItem, "_vti", 1) = 0 Then
%>
<TR>
<TD WIDTH="30%"> <%= objItem.Name %></TD>

</TR>
<%
End If
Next
For Each objItem In objFolder.Files

Synes godt om

tubber Juniormester

03. juli 2004 - 12:59 #19

Jeps ser fint ud :)
og overskueligt :)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS