Programación General > Visual Basic 6.0 e inferiores

 Re: Comparar los archivos de dos carpetas

<< < (2/2)

J.M.Movilla:
No quisiera que interpretes, Juank, que te chafo la lección: simplemente que te veo muy atareado y yo tengo ahora un rato que aprovecho para relajarme contactando con el foro.

Vamos a ver, Agfed:

Si tú tienes las fotos en el directorio C:Fotos y quieres saber si en ese directorio existe el fichero "Fulano.jpg", pondrías el siguiente código:

cPathFoto = "C:Fotos"
cFotoCliente = cPathFoto & "Fulano.jpg"

if Dir( cFotoCliente) = "" then
   msgbox("NO EXISTE FOTO del cliente Fulano...")
else
   ' -------- incluyes el código para tratar la foto
endif

De acuerdo?  Pues, saludos y que te salga bonito.

agfed:
muchas gracias juank
Saludos de mexico para españa.

agfed:
Como hago para revisar si existen las fotos de todas las personas que estan en la carpeta nombre
Son archivos txt
Usar archivos txt ya lo se hacer. Pero seleccionar de golpe todos y cada uno para revisar si esta su foto, no lo se hacer.

J.M.Movilla:
Pues algo así:

Define una variable (cPathDoc) con la ruta del directorio en el que tienes tus documentos .txt
y otra (cPathFoto) con la ruta de donde están las fotos .jpg

Abre un objeto FileListBox al que llamas SelFile (por ejemplo)

Y usa el siguiente código:

cPathDoc = "C:Mi_directorio_de_txt"
cPathFoto = "C:Mi_directorio_de_jpg"

SelFile.Path = cPathDoc
SelFile.Refresh

For n = 0 To SelFile.ListCount - 1
cFichero = SelFile.List(n)
cFichero = cPathFoto & Left( cFichero, Len(cFichero) - 4) & ".jpg"
if Dir( cFichero) = "" then
msgbox("No existe esta Foto...")
end if
Next

agfed:
Saludos de mexico para españa

Navegación

[0] Índice de Mensajes

[*] Página Anterior