---

Har fundet nedennævnte et eller andet sted på nettet. Skal bruge en eller
anden form for kode som kan lave et link ud af alle filer i netop den mappe
hvor siden med denne kode ligger. Er det denne og hvad skal der stå ved
???-tegnene ?

På forhånd tak
Peter Rasmussen

<%
Dim objFileScripting, objFolder
Dim filename, filecollection, strDirectoryPath, strUrlPath
strDirectoryPath=" ????"
strUrlPath="????"

'get file scripting object
Set objFileScripting = CreateObject("Scripting.FileSystemObject")
'Return folder object
Set objFolder = objFileScripting.GetFolder("c:\inetpub\scripts\")
'return file collection In folder
Set filecollection = objFolder.Files
'create the links
For Each filename In filecollection
Filename=right(Filename,len(Filename)-InStrRev(Filename, "\"))
Response.Write "<A HREF=""" & strUrlPath & filename & """>" & filename
& "</A><BR>"
Next
%>

---

Peter Rasmussen skrev:

> Har fundet nedennævnte et eller andet sted på nettet. Skal
> bruge en eller anden form for kode som kan lave et link ud af
> alle filer i netop den mappe hvor siden med denne kode ligger.
> Er det denne

Jeg har tilrettet den så du kan bruge den direkte. To ting er
ændret - strDirectoryPath bestemmes nu automatisk ud fra
strUrlPath, og objFolder findes nu ud fra strDirectoryPath (før
blev den variabel slet ikke brugt):

<%
Dim objFileScripting, objFolder
Dim filename, filecollection, strDirectoryPath, strUrlPath
   ' Sti til biblioteket set fra webbrowseren
strUrlPath="./"

   ' Ovennævnte sti som den ser ud på serveren.
strDirectoryPath=Server.MapPath(strUrlPath)

'get file scripting object
Set objFileScripting =
CreateObject("Scripting.FileSystemObject")
'Return folder object
Set objFolder = objFileScripting.GetFolder(strDirectoryPath)
'return file collection In folder
Set filecollection = objFolder.Files
'create the links
For Each filename In filecollection
Filename=right(Filename,len(Filename)-InStrRev(Filename,
"\"))
Response.Write "<A HREF=""" & strUrlPath & filename & """>" &
filename & "</A><BR>"
Next
%>

Du kan evt. udskifte værdien i strUrlPath for at se indholdet af
andre biblioteker.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Hej Jens

Tusind tak for dit arbejde, men jeg får en fejlmeddelelse som denne


Microsoft VBScript compilation error '800a03ea'

Syntax error

/kontor/help/allefiler.asp, line 16

Set objFileScripting =
----------------------^

Hvad er gået galt ?
Mvh.
Peter Rasmussen


"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:Xns92D37590973FFjcdmfdk@gyrosmod.dtext.news.tele.dk...
> Peter Rasmussen skrev:
>
> > Har fundet nedennævnte et eller andet sted på nettet. Skal
> > bruge en eller anden form for kode som kan lave et link ud af
> > alle filer i netop den mappe hvor siden med denne kode ligger.
> > Er det denne
>
> Jeg har tilrettet den så du kan bruge den direkte. To ting er
> ændret - strDirectoryPath bestemmes nu automatisk ud fra
> strUrlPath, og objFolder findes nu ud fra strDirectoryPath (før
> blev den variabel slet ikke brugt):
>
> <%
> Dim objFileScripting, objFolder
> Dim filename, filecollection, strDirectoryPath, strUrlPath
> ' Sti til biblioteket set fra webbrowseren
> strUrlPath="./"
>
> ' Ovennævnte sti som den ser ud på serveren.
> strDirectoryPath=Server.MapPath(strUrlPath)
>
> 'get file scripting object
> Set objFileScripting =
> CreateObject("Scripting.FileSystemObject")
> 'Return folder object
> Set objFolder = objFileScripting.GetFolder(strDirectoryPath)
> 'return file collection In folder
> Set filecollection = objFolder.Files
> 'create the links
> For Each filename In filecollection
> Filename=right(Filename,len(Filename)-InStrRev(Filename,
> "\"))
> Response.Write "<A HREF=""" & strUrlPath & filename & """>" &
> filename & "</A><BR>"
> Next
> %>
>
> Du kan evt. udskifte værdien i strUrlPath for at se indholdet af
> andre biblioteker.
> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på http://usenet.dk/netikette/citatteknik.html

---

Peter Rasmussen skrev:

> /kontor/help/allefiler.asp, line 16
>
> Set objFileScripting =
> ----------------------^

Linjen er blevet "knækket" for at kunne være i usenetindlægget. Du
skal selv fjerne de ekstra linjeskift der måtte være. Det er
forholdsvis let at finde de fejlombrudte linjer i dette tilfælde -
kig efter linjer det ikke er indrykket (der er tre i alt).

NB: Det er lettere at følge tråden hvis du citerer som det er
beskrevet i min signatur -se nedenfor.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Kan man få vist alle filer i mappen, dog uden selve filen hvor linkene
bliver vist ?
PR

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:Xns92D383F61C726jcdmfdk@gyrosmod.dtext.news.tele.dk...
> Peter Rasmussen skrev:
>
> > /kontor/help/allefiler.asp, line 16
> >
> > Set objFileScripting =
> > ----------------------^
>
> Linjen er blevet "knækket" for at kunne være i usenetindlægget. Du
> skal selv fjerne de ekstra linjeskift der måtte være. Det er
> forholdsvis let at finde de fejlombrudte linjer i dette tilfælde -
> kig efter linjer det ikke er indrykket (der er tre i alt).
>
> NB: Det er lettere at følge tråden hvis du citerer som det er
> beskrevet i min signatur -se nedenfor.
> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Peter Rasmussen" <praz@stofanet.dk> wrote in message
news:3de513a9$0$5749$ba624c82@nntp04.dk.telia.net...

> Kan man få vist alle filer i mappen, dog uden selve filen hvor linkene
> bliver vist ?

Det letteste vil være at flytte filen til en anden mappe, og så ændre
værdien i strUrlPath.

som Jens skrev tidligere ( i
news:Xns92D37590973FFjcdmfdk@gyrosmod.dtext.news.tele.dk...)


<citat />Du kan evt. udskifte værdien i strUrlPath for at se indholdet af
andre biblioteker.

Du fik vidst ikke læst http://usenet.dk/netikette/citatteknik.html ??

--

Mvh / Regards

-=< Christian >=-
ICQ: 25308942
http://www.cmnielsen.dk
Hvis man kloner en sørøver, får man så en piratkopi?