[VBA Excel] Comprobar si la Carpeta Está Vacía

Resuelto
Saessen Mensajes publicados 2 Estado Miembro -  
Saessen Mensajes publicados 2 Estado Miembro -
Hola,

Tengo un problema con Microsoft Excel 2002 (sistema operativo Windows 2000).

A continuación, el contexto:

He creado para mi trabajo una macro VBA en Excel cuyo objetivo es (en resumen) recuperar y clasificar datos provenientes de otros archivos mediante diversas pruebas.

La macro funciona correctamente, excepto cuando uno de los directorios que contiene los archivos a probar está vacío. La macro falla entonces.

La solución: crear un comando de prueba para verificar si el directorio en cuestión está vacío o no. Lo que no sé hacer... :-S

¿Tendría la amabilidad extrema de ayudarme, por favor...? Gracias de antemano.
Configuración: Windows 2000 Internet Explorer 6.0

2 respuestas

lami20j Mensajes publicados 21506 Fecha de registro   Estado Moderador, Colaborador de seguridad Última intervención   3 571
 
Hola,

rep = "c:\directorio\" Set fs = Application.FileSearch With fs .LookIn = rep .Filename = "*.*" If .Execute > 0 Then MsgBox "Hay " & .FoundFiles.Count & "archivos" Else MsgBox "El directorio está vacío" End If End With


--
lami20j
3
Saessen Mensajes publicados 2 Estado Miembro 1
 
¡Parece que funciona, ¡muchas gracias!
1