Framework .NET - el subíndice está fuera del intervalo error 800A0009

'****************************************************************

'* 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 INSTRUCCION Y LA 'SIGUIENTE

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.2\EDI\VOXEL\IN\"+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.2\EDI\VOXEL\IN\"&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 "\\daesvpfs01\EDI\voxel\IN\"&f1.Name, "\\daesvpfs01\EDI\voxel\HISTORICO\"&nounom

End if

Next