VBS: Unable to execute - arguments list is too long

[Rekd]

I've got a VBScript file that I'm trying to get to populate an Excel spreadsheet with the file names dropped onto it. It works with a few files, but when I try to dump like 21 or more files on it I get an error saying it can't process that many arguments.

Dim arg, cnt
Set objExcel = CreateObject("Excel.Application")
If WScript.Arguments.Count = 0 Then
   WScript.Echo  "Drop files on this script to load into Excel spreadsheet."
Else
objExcel.Visible = True
objExcel.Workbooks.Add
   For each arg in WScript.Arguments 
cnt = cnt + 1
objExcel.Cells(cnt, 1).Value = arg
   Next
End If
WScript.Quit(0)

Is there a way around this?

 

[Joe4]

Duplicate:
http://www.mrexcel.com/forum/showthread.php?t=472334

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted:
http://www.mrexcel.com/forum/showthread.php?t=127080