how do i make a vbscript data type subtype LONG to get it to be 2,147,483,647?

[Emoketaumma]

I have a web page that displays 10 images at a time from a directory.In the directory I have now 55,000 images.Once zz below hits 32,767 it stops.How do I make ZZ into a subtype LONG to get it to be 2,147,483,647(the code below is not accurate, just quickly done to show you the loop I am achieving) \[code\]pp = Request("pp") ' pp could be at 40000filecount = 0 dim zzFor Each file in filecoll zz = zz + 1 If ZZ > PP then response.write 'show image here end ifNext\[/code\]