comparacion de archivos

joselete
16 de Mayo del 2004
HOla a [email protected] Mi problema es el siguiente:
tengo una lista en txt que contiene nombre de archivos y bytes que ocupa cada archivo
soy capaz de leer la linea del txt y separar en variables distintas el nombre del archivo
y los bytes que ocupa. Desde aqui todo bien. Lo que no soy pacaz de realizar es comparar
los archivos de la lista con una carpeta que especifico por el numero de bytes y los que
sean iguales guardarla en un array.

Dim cadena
dim miarray(1000)
Dim arichivos
Dim cadena1
dim cad
p = Dir1.Path
ChDir p
archivos = Dir("*.*")
ChDir p
Open p & "\temp.tmp" For Input As #1
Do Until EOF(1)
Line Input #1, cad
cadena = Split(cad, ";")
ChDir p
archivos = Dir("*.*")
While archivos <> ""
pepe = FileLen(archivos)
If StrComp(pepe, cadena(0)) = 0 And archivos <> cadena(1) Then
Miarray(ini) = cadena(1)
ini = ini + 1
End If
archivos = Dir
Wend
Loop
Close #1

Esto es lo maximo que llego. De esta forma lo malo es que se guardan varias veces
el mismo archivo en el array. y es este mi problema.

Muchas gracias