Limit to 6 columns across 1

[DebbieDavis]

Hi there, didn't know quite how to search for this. I'm pulling in file names from fso and would like them to display 6 across, unlimited down. I know how to do that with a recordset but I'm not smart enough to how do I do it using objFile in a for next loop?

 

[DreXor]

DesiredColumns = 6
ColCounter = 0

for each file in FSO.Files
colcounter = colcounter +1
If ColCounter = 1 then
Response.Write "<tr>"
End If
Response.Write "<td>" & File.Name & "</td>"
If ColCounter = DesiredColumns then
ColCounter = 0
Response.Write "</tr>"
End If
Next

'this next section is just to neatly wrap off the table if you dont happen to have the exact even number of files for the grid

If ColCounter <> 0 Then
For i=ColCounter to DesiredColumns-1
Response.Write "<td>&nbsp;</td>"
Next
Response.Write "</tr>"
End If


DreX
aKa - Robert
if all else fails, light it on fire and do the happy dance!

 

[DebbieDavis]

Outstanding Robert. You always come through. Thanks so much for your helped. It worked like a champ!