Excel - recorrer nombres de archivos

 
Vista:
sin imagen de perfil
Val: 8
Ha aumentado su posición en 7 puestos en Excel (en relación al último mes)
Gráfica de Excel

recorrer nombres de archivos

Publicado por informatic (10 intervenciones) el 17/10/2019 23:32:04
Hola... tengo una duda
Como puedo recorrer todos los nombres de archivos de una carpeta que estan en
C:\Users\Log\Desktop\Carpeta para luego compararlos si existe o no
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Héctor Madriz
Val: 809
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

recorrer nombres de archivos

Publicado por Héctor Madriz (137 intervenciones) el 18/10/2019 01:29:35
Buen día, prueba esto

1
2
3
4
5
6
Sub BuscarArchivo()
    Archivo = Dir(InputBox("Buscar en la Carpeta  : ", "unidad:\[carpeta][\subcarpeta]", "D:\"))
    ArchivoB = InputBox("Nombre del archivo : ", "nombrearchivo.ext")
    Do Until Archivo = "" Or UCase(Archivo) = UCase(ArchivoB): Archivo = Dir(): Loop
    If Archivo <> "" Then MsgBox "SI existe" Else MsgBox "NO existe"
End Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar