Plocka ut ett namn från FSO

Files.Item(10).Name

Kan det fungera?

Invalid procedure call or argument

får jag när jag kör

<% Response.Write filer.item(10).name %>

har inte raden

set Files = Folder.Files

utan

Set filer = folder.Files

men det borde ju inte spela någon roll. slarvade lite när jag läste min egna kod innan jag postade mitt första inlägg här.

något annat förslag? jag testar runt lite men olika kombinationer, men eftersom jag inte riktigt fattar hur FSO fungerar så går det ingen bra :(

Nu har jag ingen möjlighet att testa FileSystemObject, men när jag kollar syntaxen för Item tyckte jag att det skulle vara så enkelt.

Set fsoThis = Server.CreateObject("Scripting.FileSystemObject")
Set fsoFolder = fsoThis.GetFolder(rootname & Dirfolder)
Set fsoFiles = fsoFolder.Files

Respone.Write fsoFiles(10).Name

Det kanske kan fungera bättre?

RED: om nu Engine^'s lösning funkar så kan du skita i det här inlägget ;)

Hmm, om du vet ungefär hur många filer som finns i mappen kan du väll göra så här:

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(rootname & Dirfolder)
set Files = Folder.Files

Dim intItemName(666)  '666 = antalet filer i mappen
Dim i : i = 0
For each Item In Files
     intItemName(i) = Item.Name
     response.write "<img src=imgs/"& fileType(Item.Name)& " width=20 height=17><a href="&strFolder&dirfolder&"\"&Item.Name&">"&Item.Name&"</A><br>"
     i = (i+1)
Next

Response.write intItemName(9)

Går det lösa utan att man vet filantalet?

Fick inte Engine's modell att fungera, vet inte varför, men jag försökte läsa lite på webguru, och det verkar inte som om det går, utan man får göra på något sätt så som du föreslåt miku.

Jag kommer aldrig ha mer än 200 filer, så jag gjorde arrayen så stor... antar att det tar massa extra kraft, men jag har ingen bättre idé, kanske kan man definiera om den så att den klipper efter den sista platsen som fylls... någon som har någon idé till detta?

annars verkar det funka så här långt, tror bara att jag måste slänga in globala variabler nu... och det kanske inte är optimalt... men men.

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(rootname & Dirfolder)
set Files = Folder.Files

reDim intItemName(Files.Count)
Dim i : i = 0
For each Item In Files
     intItemName(i) = Item.Name
     response.write "<img src=imgs/"& fileType(Item.Name)& " width=20 height=17><a href="&strFolder&dirfolder&"\"&Item.Name&">"&Item.Name&"</A><br>"
     i = (i+1)
Next
Response.write intItemName(9)