Læs filnavne ind i Array

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Untitled</title>
</head>

<body>
<%
Set fsoObj = Server.CreateObject(\"Scripting.FilesystemObject\")
Set foldObj = fsoObj.getFolder( dinfolder )
Set filesObj = foldObj.Files
Dim filesArr, counter
filesArr = Array( filesObj.Count )
counter = 0

for each file in filesObj
  filesArr( counter ) = file.name
    counter = counter + 1
next
%>
</body>
</html>

300 points er litt i overkant...

/nute

smid Left(Request.ServerVariables(\"PATH_TRANSLATED\"), InStrRev(Request.ServerVariables(\"PATH_TRANSLATED\"), \"\\\")) ind i getfolder, så er du altid kørende :)

altså hvis du da køre scriptet fra den folder du vil kigge i :)

Tilsyneladende giver nute\'s script en fejl;

Der opstod en Microsoft VBScript-kørselsfejl (0x800A0009)
Indekset er uden for området: \'1\'

hov....sorry:

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Untitled</title>
</head>

<body>
<%
Set fsoObj = Server.CreateObject(\"Scripting.FilesystemObject\")
Set foldObj = fsoObj.getFolder( \"c:\\temp\\test\" )
Set filesObj = foldObj.Files
Dim filesArr, counter
ReDim filesArr( filesObj.Count )
counter = 0

for each file in filesObj
  filesArr( counter ) = file.name
    counter = counter + 1
next

for i = 0 TO UBOUND( filesArr )
  response.write filesArr(i) & \"<br>\"
next
%>
</body>
</html>

skal det være :-)

Kors hvor det spiller nute, tak for hjælpen..!
/Buzz

anytime :)