Sección de códigos , trucos y ejemplos para visual basic

235 - Listar las referencias ocx - dll de un proyecto

Ejemplo que lee un fichero de proyecto de visual basic ( .Vbp ) para extraer y listar en un control ListView las referencias incluídas en el mismo

Mediante un ejemplo que extraía algunos objetos pertenecientes a un proyecto de vb, como el nombre del proyecto, los íconos del formulario, y otras cosas, le agregué para extraer los activex que contiene el mismo

Dentro de un archivo de proyecto vbp, las referencias y ocx, están con el atributo " Object " y " Reference ", y lo que hace el ejemplo es leer línea a línea el fichero con Line Input y extraerlos.

vista del ejemplo para listar los archivos de referencia de un proyecto vb - ocx, dll y librerías

Para el ejemplo colocar mas o menos como está en el gráfico los siguientes controles en el formulario:

Un control Drive
DirlistBox
FileListBox
un control ListView

Código fuente en el formulario

Option Explicit ' Recibe el path del archivo vbp para abrir Private Sub Ver_Referencias(path As String) On Error GoTo errSub Dim Item As ListItem Dim Linea As String ListView1.ListItems.Clear 'Abre el archivo de proyecto para leer línea a línea Open path For Input As #1 While Not EOF(1) ' Lee la línea actual del archivo .vbp Line Input #1, Linea Linea = Trim$(Linea) If Mid(Linea, 1, 9) = "Reference" Then Linea = Right(Linea, Len(Linea) - InStrRev(Linea, "\")) Set Item = ListView1.ListItems.Add(, , Left(Linea, InStr(Linea, "#") - 1)) Item.SubItems(1) = Right(Linea, Len(Linea) - InStrRev(Linea, "#")) End If ' Para obtener los OCX If Mid(Linea, 1, 6) = "Object" Then Linea = Trim(Right(Linea, Len(Linea) - InStrRev(Linea, ";"))) ' Agrega el nombre del archivo ocx ListView1.ListItems.Add , , Replace(Linea, ";", "") End If Wend Close Exit Sub 'Error errSub: MsgBox "Error: " & Err.Number & vbNewLine & _ "Descripción: " & Err.Description, vbCritical End Sub Private Sub Dir1_Change() File1 = Dir1.path End Sub Private Sub Drive1_Change() Dir1 = Drive1 End Sub Private Sub File1_Click() If File1.ListIndex = -1 Then Exit Sub Call Ver_Referencias(File1.path & "\" & File1.FileName) End Sub Private Sub Form_Load() 'Extensión a filtrar File1.Pattern = "*.vbp" With ListView1 .ColumnHeaders.Add , , " Nombre de la referencia ", 3500 .ColumnHeaders.Add , , " Descripción del Activex ", 3500 .GridLines = True .View = lvwReport End With Me.Caption = " Extraer referencias de proyecto " End Sub

Recursos vb6 - Enlaces relacionados

Dll Activex - extraer referencias y dependencias de un archivo

Buscar en Recursos vb