“XL VBA Verifique la carpeta” Código de respuesta

XL VBA Verifique la carpeta

Public Function IsDir(s)
    IsDir = CreateObject("Scripting.FileSystemObject").FolderExists(s)
End Function