---

Jeg har prøvet nedenstående script med det timer bare ud, uden noget output.
Jeg har prøvet diverse andre scripts med samme resultat. Er det en eller
anden sikkerhedsinstilling der skal slåes fra. Jeg kører IIS5, og jeg har
slået script blocking fra i NAV.


<%
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")

Dim subFolders
Set subFolders = rootFolder.SubFolders

For Each folder in subFolders
Response.Write "FolderName: " & folder.Name & "<br>"
Response.Write "Attributes: " & folder.Attributes & "<br>"
Response.Write "Type: " & folder.Type & "<br>"
Response.Write "Size: " & folder.Size & "<br>"
Response.Write "ShortName: " & folder.ShortName & "<br>"
Next
For Each file in files
Response.Write "FileName: " & file.Name & "<br>"
Response.Write "Attributes: " & file.Attributes & "<br>"
Response.Write "Type: " & file.Type & "<br>"
Response.Write "Size: " & file.Size & "<br>"
Response.Write "ShortName: " & file.ShortName & "<br>"
Next
Set files = Nothing
Set subFolders = Nothing
Set rootFolder = Nothing
Set fso = Nothing
%>

---

On Fri, 10 May 2002 16:26:05 +0200, "assassin"
<martin_dk97@hotmail.com> wrote:

>Jeg har prøvet nedenstående script med det timer bare ud, uden noget output.
>Jeg har prøvet diverse andre scripts med samme resultat. Er det en eller
>anden sikkerhedsinstilling der skal slåes fra. Jeg kører IIS5, og jeg har
>slået script blocking fra i NAV.
>
>
><%
>Dim fso
> Set fso = Server.CreateObject("Scripting.FileSystemObject")

' Her har du defineret objektet - fint nok

>Dim subFolders
> Set subFolders = rootFolder.SubFolders

' Her går det galt - hvad er rootfolder?
' Prøv at indsætte fx:
Dim f, rootFolder
Set f = fso.GetDrive("c:")
rootFolder = f.RootFolder
' - før ovenstående linie
' (ikke testet)

>For Each folder in subFolders
> Response.Write "FolderName: " & folder.Name & "<br>"

' et lille fif: Indsæt & vbcrlf efter hver linie, du skriver
' ud, så bliver din HTML-kode lettere at læse.

<SNIP resten>


Good luck,
Jørn

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