---

Hej NG

Har et site liggende hvor der bla. er en folder med diverse info filer etc.

Denne folder lader jeg forskellige andre uploade opdaterede og nye filer
til.

Jeg har på et tidspunkt set en nævne et script der kan liste filer der
ligger i en folder (var vist nok fotos med auto thumpnail) men kan ikke
finde dette igen.

Findes der et eller andet sted et script der fx. kan placeres på en
"oversigts side" der lister en oversigt over hvilke filer der ligger i en
bestemt folder og samtidigt link til sig selv (filen)
Lidt ligesom når man på egen maskine i explorer linker til en folder i
stifinder.
Formålet er at brugeren løbende kan uploade nye filer uden at man behøver at
skulle oprette et link til hver ny fil ?

Håber fik mig forklaret rigtigt

pft. /Kim

---

Kim N wrote in dk.edb.internet.webdesign.serverside.asp:
> Jeg har på et tidspunkt set en nævne et script der kan liste filer der
> ligger i en folder (var vist nok fotos med auto thumpnail) men kan ikke
> finde dette igen.

Du kan finde oplysninger her...
http://www.html.dk/dokumentation/vbscript/HTML/vscolfiles.htm

Så kan du liste alle de filer som er i en bestemt folder, og så er det jo bare
og udskrive et link til filen.

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Hej Martin
Tak for svar.
Jeg er ikke programmør og bruger typisk låne klippe klistre af de frie
scripts rundt omkring.
Arbejder i Frontpage og havde nok håbet på et eller andet javascript eller
asp som jeg kunne smide direkte ind, rette lidt og vupti.

Jeg er ikke lige helt med på om og hvordan jeg kan/skal anvende det du
henviste til.

mvh/kim


"Martin" <har@ingen.dd> wrote in message
news:478c95f9$0$90269$14726298@news.sunsite.dk...
> Kim N wrote in dk.edb.internet.webdesign.serverside.asp:
>> Jeg har på et tidspunkt set en nævne et script der kan liste filer der
>> ligger i en folder (var vist nok fotos med auto thumpnail) men kan ikke
>> finde dette igen.
>
> Du kan finde oplysninger her...
> http://www.html.dk/dokumentation/vbscript/HTML/vscolfiles.htm
>
> Så kan du liste alle de filer som er i en bestemt folder, og så er det jo
> bare
> og udskrive et link til filen.
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials

---

Kim N wrote in dk.edb.internet.webdesign.serverside.asp:
> Jeg er ikke lige helt med på om og hvordan jeg kan/skal anvende det du
> henviste til.

Smid denne funktion ind i dit asp dokument, evt et funktions dokument som du
includer

Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "<BR>"
Next
ShowFolderList = s
End Function


Ved så at skrive
response.write ShowFolderList(SKRIV-HVILKEN-FOLDER-DET-DREJER-SIG-OM)

Så vil du få udskrevet en liste over alle de filer som er i mappen.

Hvis du vil have ændret det til en link liste, skal du kigge inde i For løkken
i funktionen.
s = s & f1.name kan ændres til
s = s & "<a href="""&f1.name&""">"&f1.name&"</a>" og så tror jeg at du får en
link liste (har ikke testet det, men det burde virke)

Håber at du forstår nu

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Hmmm....

Har prøvet at smide det ind præcis som det står forskellige steder i en asp
fil, men må nok erkende ikke at kunne få listet noget.
Eneste ændring var som du nævnte at skrive foldernavnet "hk_resultater" i
parenteserne under response write.
Det ligger nok ved min manglende viden om hvordan funktioner skal anvendes.

"Martin" <har@ingen.dd> wrote in message
news:478d1079$0$90272$14726298@news.sunsite.dk...
> Kim N wrote in dk.edb.internet.webdesign.serverside.asp:
>> Jeg er ikke lige helt med på om og hvordan jeg kan/skal anvende det du
>> henviste til.
>
> Smid denne funktion ind i dit asp dokument, evt et funktions dokument som
> du
> includer
>
> Function ShowFolderList(folderspec)
> Dim fso, f, f1, fc, s
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set f = fso.GetFolder(folderspec)
> Set fc = f.Files
> For Each f1 in fc
> s = s & f1.name
> s = s & "<BR>"
> Next
> ShowFolderList = s
> End Function
>
>
> Ved så at skrive
> response.write ShowFolderList(SKRIV-HVILKEN-FOLDER-DET-DREJER-SIG-OM)
>
> Så vil du få udskrevet en liste over alle de filer som er i mappen.
>
> Hvis du vil have ændret det til en link liste, skal du kigge inde i For
> løkken
> i funktionen.
> s = s & f1.name kan ændres til
> s = s & "<a href="""&f1.name&""">"&f1.name&"</a>" og så tror jeg at du får
> en
> link liste (har ikke testet det, men det burde virke)
>
> Håber at du forstår nu
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials

---

On 15 Jan 2008 19:58:49 GMT, Martin <har@ingen.dd> wrote:

>Ved så at skrive
>response.write ShowFolderList(SKRIV-HVILKEN-FOLDER-DET-DREJER-SIG-OM)

Jeg tror lige man skal have forankret udgangspunktet i serverens
filsystem:

fspec = Server.Mappath("mappe")
Response.write ShowFolderList(fspec)


Mvh. Jørn

--
Jørn Andersen,
Brønshøj

---

Jørn Andersen wrote in dk.edb.internet.webdesign.serverside.asp:

> fspec = Server.Mappath("mappe")
> Response.write ShowFolderList(fspec)


Ja selvfølgeligt

Her er noget jeg brugte en gang - Det lister alle undermapper som er i
den mappe du har valgt først, og herunder viser den alle de billeder som
er i mappen, og skriver billedernes navne. Alle undermapperne er forsynet
med et link, så du kan klikke ind og se filer og under-undermapper i
undermappen... Håber at du forstår og kan bruge det til noget :)

if not isempty(request.QueryString("SF")) then
   strPath = "/mappe/"&request.QueryString("SF")&"/"
else
   strPath = "/mappe/"
end if

strFolderspec = Server.Mappath(strPath)

response.Write ShowFolderList(strFolderspec)
response.Write ShowFilesList(strFolderspec)


Function ShowFilesList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & "<img src="""&strPath&f1.name&""" border=""0""
/>"&f1.name&"<br />"
s = s & "<br />"
Next
ShowFilesList = s
End Function

Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
s = s & "<a href=""test58.asp?SF="&f1.name&""">"&f1.name&"</a><br
/>"
Next
ShowFolderList = s
End Function


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Jep så er den hjemme... (med lidt hjælp til at lægge det ind

Mange tak for hjælpen

"Martin" <har@ingen.dd> wrote in message
news:478df04a$0$90276$14726298@news.sunsite.dk...
> Jørn Andersen wrote in dk.edb.internet.webdesign.serverside.asp:
>
>> fspec = Server.Mappath("mappe")
>> Response.write ShowFolderList(fspec)
>
>
> Ja selvfølgeligt
>
> Her er noget jeg brugte en gang - Det lister alle undermapper som er i
> den mappe du har valgt først, og herunder viser den alle de billeder som
> er i mappen, og skriver billedernes navne. Alle undermapperne er forsynet
> med et link, så du kan klikke ind og se filer og under-undermapper i
> undermappen... Håber at du forstår og kan bruge det til noget :)
>
> if not isempty(request.QueryString("SF")) then
> strPath = "/mappe/"&request.QueryString("SF")&"/"
> else
> strPath = "/mappe/"
> end if
>
> strFolderspec = Server.Mappath(strPath)
>
> response.Write ShowFolderList(strFolderspec)
> response.Write ShowFilesList(strFolderspec)
>
>
> Function ShowFilesList(folderspec)
> Dim fso, f, f1, fc, s
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set f = fso.GetFolder(folderspec)
> Set fc = f.Files
> For Each f1 in fc
> s = s & "<img src="""&strPath&f1.name&""" border=""0""
> />"&f1.name&"<br />"
> s = s & "<br />"
> Next
> ShowFilesList = s
> End Function
>
> Function ShowFolderList(folderspec)
> Dim fso, f, f1, fc, s
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set f = fso.GetFolder(folderspec)
> Set fc = f.SubFolders
> For Each f1 in fc
> s = s & "<a href=""test58.asp?SF="&f1.name&""">"&f1.name&"</a><br
> />"
> Next
> ShowFolderList = s
> End Function
>
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials