---

Nogen der kan fortælle mig hvorfor denne kode ikke virker, den er kørt på en
HTML side, samme kode virker fint på en ASP side.
det er hovedsagligt CreateObjekt("Scripting.FileSystemObjekt") den brokker
sig over.
Nogen der kan hjælpe mig.

<SCRIPT LANGUAGE="VBScript">
<!--
strPath = "(mappe sti)"
level = 0


Document.write"<TABLE BORDER='1' RULES='groups' BORDERCOLOR='#000000'
CELLPADDING='5' CELLSPACING='0'>"

Document.Write "<Tr>"

Document.Write "<Td HEIGHT='600' >"
Document.Write "<p ALIGN='center'><B>Indholdsfortegnelse</b><br>"
Document.Write "Autogenereret indholsfortegnelse over mapper</p>"

sub getPath(strPath,level)
Set fsObj = CreateObject("Scripting.FileSystemObject")
Set MainFolder = fsObj.GetFolder(strPath)
Set Files = MainFolder.Files
Set Folders = MainFolder.subfolders

For Each Folder in Folders
for a = 1 to level
Document.Write "&nbsp;&nbsp;"
next
If level = "0" Then
Document.write "<br>"
Document.write "<font COLOR='Teal' SIZE='2'><IMG
SRC=""folder.gif"">&nbsp;<b>" & UCASE(folder.name) & "</font></b><br>"
ElseIf level = "1" Then
Document.write "<font COLOR='Black' SIZE='2'><IMG
SRC=""folder.gif"">&nbsp;<b>" & UCASE(folder.name) & "</font></b><br>"
Else
Document.write "<font COLOR='Black' SIZE='2'><IMG
SRC=""folder.gif"">&nbsp;" & LCASE(folder.name) & "</font></b><br>"
End If
call getPath(strPath & "\" & lcase(folder.name),level+1)

next

set fsObj = Nothing
set MainFolder = Nothing
end sub

call getPath(strPath,level)

Document.Write "</TD>"
Document.Write "</Tr>"
Document.write"</table>"
-->
</script>

---

"Jens Willadsen" <jens@willadsen.nu> skrev i en meddelelse
news:aplieo$q5c$1@sunsite.dk...
> Nogen der kan fortælle mig hvorfor denne kode ikke virker, den er kørt på
en
> HTML side, samme kode virker fint på en ASP side.
> det er hovedsagligt CreateObjekt("Scripting.FileSystemObjekt") den brokker
> sig over.
> Nogen der kan hjælpe mig.

Denne linie:
Set fsObj = CreateObject("Scripting.FileSystemObject")

Jeg vil tro at det er denne linie der er dit problem og at det i din
tilsvarende ASP-kode sikkert har heddet:
Server.CreateObject("Scripting.FileSystemObject")

ASP er en teknologi, i hvilken du kan bruge forskellige script-sprog.
Herudover findes der i ASP 7 indbyggede objekter, herunder Server-objektet.
Server-objektet har et antal metoder, en af dem er CreateObject.
Derfor kan, såvidt jeg ved, denne metode ikke kaldes fra VBScript uden ASP.


Chrisser

---

Er der ingen mulighed for at bruge et lign. objekt fra VBScript??
Jeg kan nemlig ikke køre det fra en ASP side
Hilsen Jens

"Chrisser" <cbj@egdatainform.dk> wrote in message
news:aplkb2$5r7$1@sunsite.dk...
> Denne linie:
> Set fsObj = CreateObject("Scripting.FileSystemObject")
>
> Jeg vil tro at det er denne linie der er dit problem og at det i din
> tilsvarende ASP-kode sikkert har heddet:
> Server.CreateObject("Scripting.FileSystemObject")
>
> ASP er en teknologi, i hvilken du kan bruge forskellige script-sprog.
> Herudover findes der i ASP 7 indbyggede objekter, herunder
Server-objektet.
> Server-objektet har et antal metoder, en af dem er CreateObject.
> Derfor kan, såvidt jeg ved, denne metode ikke kaldes fra VBScript uden
ASP.
>
>
> Chrisser
>
>
>
>

---

"Jens Willadsen" <jens@willadsen.nu> skrev i en meddelelse
news:aplkgt$6el$1@sunsite.dk...
> Er der ingen mulighed for at bruge et lign. objekt fra VBScript??
> Jeg kan nemlig ikke køre det fra en ASP side
> Hilsen Jens

Jeg er ked af at måtte sige: Jeg aner det ikke da jeg kun bruger VBScript i
forbindelse med ASP !

Det eneste jeg lige har til dig er et link til devguru's ASP-sider, her er
de 7 indbyggede ASP-objekter samt deres metoder beskrevet. Hvis disse
objekter er noget du bruger meget i din kode, tror jeg det bedste ville være
at gemme din kode langt væk, drikke dig fuld/løbe en tur (eller hvad der nu
skal til, for at få din hjerne ud af ASP-sporet), og så starte på en frisk.
Til dette skal du overveje om du i det hele taget skal bruge VBScript. Nu
ved jeg ikke hvad du vil, men VBScript er ikke særlig godt understøttet rent
browsermæssigt, der er JavaScript bedre...

Men måske er der nogen i clientside-gruppen der har erfaringer med at
oversætte ASP-kode til VBScript ?

Nu sætter jeg FUT til dk.edb.internet.webdesign.clientside, hvor dit
spørgsmål under alle omstændigheder hører hjemme. Her kan du så læse
fremtidens svar på tråden.
Nå, her kommer linket til dig:

http://www.devguru.com/Technologies/asp/quickref/asp_intro.html



Chrisser

---

Hej Jens


Jens Willadsen wrote:
> Er der ingen mulighed for at bruge et lign. objekt fra VBScript??

Nej, du har ikke umiddelbart adgang til fil-systemet fra VBScript (eller
JavaScript) i din browser. Heldigvis da, for det ville være en al for
stor sikkerhedsrisiko.

Hvis du forudsætter at brugerne stoler så meget på dig, at de er villige
til at installere et ActiveX component for at bruge siden, så kan det
dog godt lade sig gøre.


--
Mvh. Stig
stig[at]rockland[dot]dk
http://www.rockland.dk/
* Bedre (D)HTML ?! --> http://www.rockland.dk/stig/upghtml.html *