Ciao a tutti,
e spero di essere chiaro nell'esporre il mio problema.

Produco 200 file che attualmente compatto, attraverso questo codice

codice:
Function extractZipFile(theZipExePath, theSourcePath, theDestinationPath)
Set Shell = CreateObject("WScript.Shell")
theCMD = theZipExePath & " -oqj9 " &  theSourcePath & " -m " & theDestinationPath

Set oExec = Shell.Exec(theCMD)
Do While oExec.Status = 0
Loop
Set oExec = nothing
Set Shell = nothing
End Function

zipExePath = "zip.exe"
sourcePath = "C:\portali\ambienti_di_test\fileavvifaxx\fileavvi.zip"
destinationPath = "C:\portali\ambienti_di_test\fileavvifaxx\*.*"

Call extractZipFile(zipExePath, sourcePath, destinationPath)
Il tutto funziona perfettamente.
Per una serie di motivi, invece di creare 1 solo zip contenente 200 file, devo creare 4 file zip differenti , ognuno con 50 file al suo interno. (l'ultimo zip, ne potrà contenere anche di più o di meno, se il numero totale dei file non è esattamente 200...ma questo è un dettaglio).

Le mie domande sono
1. Esiste una opzione dello zip che mi permette di fare questo? (sto cercando ma non trovo nulla)
2. In alternativa sto ipotizzando di fare un ciclo while di lettura della dir e lanciare il comando
codice:
zip arch1.zip file1 file2...file50
zip arch2.zip file51....file 100

et...
così
codice:
set folder=fso.getFolder(sourcePathAsso)
	for each file in folder.files
		conta_file=conta_file+1
		sourcePathAssofile=sourcePathAsso&""&file.name

		response.write "CONTAFILE --> "&conta_file
		response.write "FILE --> "&sourcePathAssofile&"
"

	next
	set folder=nothing
Ma non riesco a capire come "salvare i nomi dei file" per poi scriverli nel comando zip. Vorrei evitare di fare una concatenazione e non so utilizzare i vettori, ovvero var strfile[0] [1] etc..

Mi potete dare una mano?
Grazie mille