Problem med If sætning.

Husk at sætte dit antal=0 inden for each-løkken

prøv lige at gøre sådan her

cint (fra)

/* seider */

Fra = 0
Til = 10
antal = 0
For Each File in Files   
    antal = antal+1   
    IF  (cint(antal) > cint(Fra)) AND cint(Antal) < cint(Til)) THEN
        response.write lcase(file.name) & \"<br>\"   
    end if
next

eller sådan her :)

Ja lad os endelig sovse det hele ind i funtionskald :-), Start med at gøre som erikjacobsen skriver, det burde rette fejlen

I virker sikre på at den overhovedet kommer ind i for-each-løkken..............

Det er jo ikke sikkert

Jeg har prøvet alle de ting. Her har i hele koden så kan i jo selv prøve jeg fatter simpelhen ikke dette her. For det burde virke.

<%   
    filepath = \"D:\\Inetpub\\wwwroot\\Temp\\Imgtest\\\"
   
    Set FileSystem = CreateObject(\"Scripting.FileSystemObject\")
    Set MainFolder = FileSystem.GetFolder( filepath )
    Set Files = MainFolder.Files
    \'Set Folders = MainFolder.subfolders

    response.write \"Directory i : \" & filepath & \"<br><br>\"
       
    Antal = 0

    Til=15
    Fra=0

    For Each File in Files
   
    antal = antal+1
   
    IF  cint(antal) > cint(Fra) AND cint(Antal) < cint(Til) THEN
   
              response.write lcase(file.name) & \"<br>\"       
            til = antal

    end if
         
    next
   
Response.Write \"<br>Antal = \" & antal & \"<br>\"

%>

Den virker nu da fint hos mig - forudsat naturligvis du lige fjerner linien

  til=antal

som får den til kun at skrive én ud.

...og naturligvis uden cint(...)