SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: 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?
-
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.
:lightsabre:
suerte
-
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.
-
Gracias amigos. Pero soy novato en vbasic. Me pueden ayudar con lineas de codigo para las dos soluciones que me plantean?
-
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
-
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.
-
muchas gracias juank
Saludos de mexico para españa.
-
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.
-
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
-
Saludos de mexico para españa