Variabler?

DagIManad = DatePart("d", now())
StatsDag = 1

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

DO WHILE NOT Cint(StatsDag) > Cint(DagIManad)
	IF FSO.FileExists("c:\inetpub\ftproot\figurer\raknare\2002-04-"& Right("00"& StatsDag, 2) &".txt") THEN
		Set File = FSO.OpenTextFile("c:\inetpub\ftproot\figurer\raknare\2002-04-"& Right("00"& StatsDag, 2) &".txt")
		dag1 = File.ReadLine
		File.Close
	ELSE
		dag1 = 0
	END IF
	StatsDag = StatsDag + 1
LOOP

Set File = Nothing
Set FSO = Nothing

Fast grejen är att jag vill för varje loop så ska det bli en ny variabel som tilldelas värdet i .txt-filen. dag1, dag2, dag3 osv.

Hur löser man det?

Hur hade du tänkt att hantera dom variablerna?

Lägg in värdena i en array.

Hur då? :)

Edit:
Ibland så tänker man inte längre än näsan räcker... kom på att jag kan ju lösa det igenom att skriva ut värde direkt i loopen :)

DagIManad = DatePart("d", now())

dim dagar()
redim dagar(DagIManad-1)

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
for StatsDag = 1 to DagIManad
	IF FSO.FileExists("c:\inetpub\ftproot\figurer\raknare\2002-04-"& Right("00"& StatsDag, 2) &".txt") THEN
		Set File = FSO.OpenTextFile("c:\inetpub\ftproot\figurer\raknare\2002-04-"& Right("00"& StatsDag, 2) &".txt")
		dagar(StatsDag-1) = File.ReadLine
		File.Close
	ELSE
		dagar(StatsDag-1) = ""
                END IF
next