Mensajes

[Set filFichero = filColecFich(5)]

Holas a tod@s !

El drama es el siguiente:
tengo 4 objetos fsoDisco=FileSystemObject, fldrCarpeta=folder, filColecFich=Files y filFichero=file

quiero hacer lo siguiente:
Set fsoDisco = CreateObject("Scripting.FileSystemObject")
Set fldrCarpeta = fsoDisco.GetFolder("c:\temp")
Set filColecFich = fldrCarpeta.Files
Set filFichero = filColecFich(5)

Quiero tomar el 5to archivo de la coleccion filColecFich (Files), pero me marca el error "5" en Tº de Ejecucion "Llamada a procedimiento o argumento no válido"

Tambien lo intenté asi : Set filFichero = filColecFich.Item(5)
pero tampoco funcionó.

Hice la referencia a Microsoft Scripting RunTime y esta OK
Si Existe el 5to archivo en la coleccion, de hecho son 350.
todas las variables anteriores son del tipo que les corresponde y todas son variables públicas globales.

El MSDN tiene un ejemplo con un For Each...Next, pero para mi caso no me sirve aplicarlo.

La idea es recorrer la coleccion Files (filColecFich) con un puntero y para cada cambio del puntero cargar el objeto File (filFichero) correspondiente a la posicion del puntero.

Alguna Alma Caritativa que me pueda ayudar 
Gracias de Antemano....

[Error de compilación]

Holas a Tod@s, gracias por su tiempo para leer estas líneas.

Les cuento que encontré un pequeño y relativamente fácil y entretenido código en VB6 para generar archivos ZIP.
( http://www.elguille.info/colabora/vb/zip32dll.htm )

El problema que tengo es que ese ejemplo esta para comprimir sólo 100 archivos por ZIP.

Probé hasta con 3999 y esta ok, pero lo necesito con capacidad para 10.000 archivos por ZIP. 

al tratar de ejecutar el codigo para 10.000 me da el siguiente error:
Error de compilación -- Demasiadas variables locales no estáticas

Si alguien me pudiese explicar cómo corregir este drama, me lo cuenta por favor. Ahora si alguien tiene otra forma de comprimir gran cantidad de ficheros, bien venido será su código.

Gracias...

Holas

Ambos tienen la razón, sea lo que sea que llegue por un puerto TCP/IP - UDP - Serial - Paralelo; Siempre seran caracteres...

Ya lo solucioné.

lo que YO hacía erroneamente era enviar caracteres hexadecimales pensando que así mismo llegarían.

Winsock1.senddata &HA5 & &HD4 & &H00

pero en realidad mandaba una cadena 1652120   

lo que tenía que mandar era chr$(165) & chr$(212) & chr$(0)

Gracias a todos los interesados.

[Slasher Keeper]

Gracias Slasher Keeper

pero la verdad es que no vienen separados por espacio (32)

y además como es un puerto UDP, el método peekData da el mismo resultado que el GetData; por que según lo que he leido, el PeekData sólo sirve para conexciones de tipo TCP/IP

agradezco el esfuerzo. pero debo seguir buscando 

[UDP]

Holas a tod@s

Les cuento mi drama por si alguien tiene un consejo

Con el Control Winsock de VB 6.0 defino, abro y monitoreo un puerto UDP bajo un w98 SE ( eso esta OK)  .

Me debe llegar una cadena Hexadecimal a ese puerto. Pero al recuperarla con el Metodo GetData del Winsock, me la convierte automáticamente a decimal, es decir.

me llega por Winsock la cadena Hexadecimal &HA5 &H06 &HD4

Pero cuando consulto la variable donde queda el valor, me muestra 1656212

Obviamente  no me sirve, por que quiero tratar uno a uno cada caracter hexadecimal pero me deja la cadena en decimal, además que los concatena y no se donde empieza, ni donde termina cada valor.

He intentado con todos los tipos numeros del VB, pero no hay caso.
Alguien me puede explicar como (si es que se puede hacer) leer caracter por caracter desde el buffers del puerto.

Si Alguien me puede ayudar, se lo agradecería

  Gracias, le hecharé un vistazo 


cero_kill_byte [/size] es un poco menos nuevo en ésto[/size]

Hola niñ@s...

Soy absolutamente nuevo, y quiero saber que son los codigos BBC.

si alguiena almacaritativa me puede ayudar, estaría agradecido 

cero_kill_byte es nuevo en ésto