Curso programación macros VBA en CATIA v5
Abrir explorador de carpetas
La API de CATIA no tienen ningún control que permita abrir una explorador de carpetas de Windows.
Dejamos aquí un código de una función que permite hacer esto.
Copia y pega este código en un Modulo de VBA.
Function BrowseForFolder(MensajeMostrado As String) As String 'Function purpose: To Browser for a user selected folder. 'If the "OpenAt" path is provided, open the browser at that directory 'NOTE: If invalid, it will open at the Desktop level Dim ShellApp As Object 'Create a file browser window at the default folder Set ShellApp = CreateObject("Shell.Application"). _ BrowseForFol.................. (para saber más inscríbete al curso)
