يك مشكل.كمك فوري لطفا

[rezsat]

 Dim FileN,j
 j = 1
 for each file in Request.Form("test")
	[COLOR="Red"]FileN(j) =  j[/COLOR]
	j = j + 1   
next

Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'FileN'

سلام.كد و ارور رو ميبينيد.ارور مربوط به خط قرمز رنگه لطفا كمك كنيد.
من ميخواهم به تعداد دفعات حلقه for each مقدار j در متغير FileN با انديس عدد j كنوني ذخيره بشود.
مثال:
FileN(1) = 1
FileN(2) = 2
و ....

 

[mehradmoein]

شما نمي تونيد از آرايه ها بدون تعريف اون ها استفاده كنيد.در ضمن بايد بيشترين تعداد اعضاي اون رو هم تعريف كنيد.از اين كد استفاده كنيدمن الان نمي تونم كدي كه گذاشتم رو تست كنم ولي اگه باز هم ارور داد حتما بهم بگيد)
Dim FileN()
Dim J
J = 1
For each file in request.form("test")
Redim Preserve FileN(j)
fileN(j) = j
j = j + 1
next

نكته ها:
براي تعريف آرايه از () استفاده كنيد.
Redim براي تعريف دوباره ي آرايه هست كه مقداري كه بعد از آن در () مي نويسيد مقداري جديد براي تعداد كل داده ها هست.ولي هر وقت كه شما از redim استفاده مي كنيد,تمام داده ها پاك مي شوند بنابراين از preserve اسفاده مي كنيم كه باعث مي شود كه داده ها پاك نشوند.