Usar dirección de red en Macro
Hola estoy haciendo una macro que lista los archivos de una carpeta local, y cuando doy la dirección de una carpeta en red ( \\server\A- Carpeta\Imagenes\Fotos Marzo ), lista los archivos del disco duro local
Sub Busca()
Dim srtTArchvo As String
Dim srtDirectorio As String
Range("A1").Select
srtRuta = "\\server\A- Carpeta\Imagenes\Fotos Marzo"
srtDirectorio = _
InputBox("Carpeta de Imagenes", "Carpeta", srtRuta)
ChDir srtDirectorio
srtTArchivo = Dir("*.jpg")
Do While srtTArchivo <> ""
ActiveCell.Value = srtTArchivo
ActiveCell.Offset(1, 0).Select
srtTArchivo = Dir
Loop
Range("A1").Select
Sub Busca()
Dim srtTArchvo As String
Dim srtDirectorio As String
Range("A1").Select
srtRuta = "\\server\A- Carpeta\Imagenes\Fotos Marzo"
srtDirectorio = _
InputBox("Carpeta de Imagenes", "Carpeta", srtRuta)
ChDir srtDirectorio
srtTArchivo = Dir("*.jpg")
Do While srtTArchivo <> ""
ActiveCell.Value = srtTArchivo
ActiveCell.Offset(1, 0).Select
srtTArchivo = Dir
Loop
Range("A1").Select
{"Lat":19.4056195226325,"Lng":-99.2406445741653}
Respuesta de jerryeagle
1