Autor Tema: Re: Comparar los archivos de dos carpetas (Leído 3253 veces)

agfed · « **en:** Lunes 17 de Marzo de 2003, 18:38 »

Que tal. tengo dos carpetas con archivos con el mismo nombre pero en una carpeta son archivos txt y en otra jpg.

Cómo comparo las carpetas para que cuando una carpeta por ejemplo exista el archivo fulano.txt y en la carpeta de imágenes no exista su foto, el programa ejecute cierta rutina?

JuanK · « **Respuesta #1 en:** Lunes 17 de Marzo de 2003, 18:45 »

Utiliza la sentencia Dir(), no es muy amigable de usar pero la he utilizado y funciona, otra manera es que utilices el microsoft commondiag y lo manipuiles omo un explorador para saber si existe el archivo o no, este puede ser más facil de usar en algunos aspectos pero en otros te complicaras lavida.

suerte

JuanK · « **Respuesta #2 en:** Lunes 17 de Marzo de 2003, 18:46 »

tambien puedes utilizar componentes de vb como el inspeccionador de unidades, el de carpetas y el de archivos, de hecho es posible que esta sea la manera más facil de hacerlo.

agfed · « **Respuesta #3 en:** Lunes 17 de Marzo de 2003, 18:58 »

Gracias amigos. Pero soy novato en vbasic. Me pueden ayudar con lineas de codigo para las dos soluciones que me plantean?

JuanK · « **Respuesta #4 en:** Lunes 17 de Marzo de 2003, 19:36 »

con gusto pero lamentablemente estoy en horas de trabajo y no tengo ya instalado el vb por un lado y por otro estoy algo ocupado, talvez en el transcurso de la semana instale otra vez el vb aca, y te pueda ayudar con el codigo
suerte

J.M.Movilla · « **Respuesta #5 en:** Lunes 17 de Marzo de 2003, 20:36 »

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