下标不在错误范围800A0009之外

Question

我将带有XP的计算机更改为W10，与Win WP一起使用的脚本给我带来了W10的"下标不超出范围"的错误。它在"集合f = fso.getFolder（objargs（0））"行中给了我这个错误。

然后我复制脚本：

enter code here

'**************************************************************** 
'* Script Comprueba si hay archivos, ejecuta proceso y renombra *
'**************************************************************** 
 '*** Declaro variables y creo objetos necesarios *** 
Dim Ejecuta, return 
Set objArgs = WScript.Arguments 
Set WshShell = CreateObject("WScript.Shell") 
Set WshNetwork = CreateObject("WScript.Network") 
Set fso = CreateObject("Scripting.FileSystemObject") 
'*** Bucle de Cambio de nombre 
Set f = fso.GetFolder(objArgs(0)) 
Set fc = f.Files 
For Each f1 in fc
'*** Tratar los ficheros del directorio
nounom = "VACIO"
'*** JCT SI QUIERES TRATAR TODOS LOS FICHEROS DEL DIRECTORIO ELIMINA ESTA                       
If Left(UCase(f1.Name),3)= "ORD" Then 
'*** PROCESAR FICHERO LEIDO
'WScript.Echo "procesar archivo leido"
 command = "%COMSPEC% /k " 
 dos_command = "startrfc -3 -d DAP -u edi -p dav543 -c 100 -l ES -h    10.10.20.2 -s 00 -E PATHNAME=\10.10.53.2EDIVOXELIN"+f1.Name+ " -E PORT=DVG -F EDI_DATA_INCOMING -t"
'MsgBox dos_command
 ' Execute command.
 WshShell.Run(command + dos_command)
 'MsgBox "Fichero Procesado " + f1.Name
 '*** nounom es el nombre del nuevo fichero
 nounom = f1.name+".bak"
 '*** ubinounom es la ubicacion y el nombre del nuevo fichero
 ubinounom = "\10.10.53.2EDIVOXELIN"&nounom 
 '*** JCT SI QUIERES TRATAT TODOS LOS FICHEROS DEL DIRECTORIO ELIMINA ESTA INSTRUCCION Y LA 'SIGUIENTE
 End If     
 '*** Comprobar si existe el fichero de destino, si no existe cambiar de nombre el de origen y 'moverlo a carpeta destino 
 If nounom <> "VACIO" and not(fso.FileExists(ubinounom)) Then
 fso.CopyFile "\daesvpfs01EDIvoxelIN"&f1.Name,    "\daesvpfs01EDIvoxelHISTORICO"&nounom
 End if
 Next

Answer 1

如果使用objargs（0）时，"下标不超出范围"错误，这仅仅是因为objargs不包含任何内容。它与操作系统无关。这可能是因为您没有将所需的参数传递给脚本。最好检查缺少参数并报告错误是一个很好的做法。您可以将类似的内容添加到您的代码中：

If objArgs.Count = 0 then
    WScript.echo "Missing argument."
    WScript.Quit
End if

要解决问题，请查看如何调用脚本。应该是：

cscript scriptfilename.vbs foldername

您当前可能缺少foldername参数。