Skriv forskelligt til forskellige text-filen

Jeg vil gerne have min side til kun at skrive noget om de filer der kommer efter et vist antal filer, mit script ser indtil videre sådan ud:

x = 0

Set Folder = FSO.GetFolder("c:\filer\")
For Each File In Folder.Files
Set File2 = FSO.OpenTextFile(File, 1)

If x < 5 Then
  x = x + 1
  Next
Else
  Response.Write file2.Readline
Endif

Next