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

304 - Averiguar la versión de un archivo utilizando Fso

Ejemplo que utiliza el método GetFileVersion de FilesytemObject para averiguar la versión de un archivo

Colocar en el formulario un commandbutton, que abre un inputBox donde se debe especificar el path del fichero

Nota: para realizar esto mismo mediante el Api de windows ver la función GetFileVersionInfo

Código en el form

Option Explicit Function Obtener_Version(Path_File As String) As Variant On Local Error GoTo ErrSub Dim Fso As Object ' Crea un Nuevo objeto FSO Set Fso = CreateObject("Scripting.FileSystemObject") 'Ejecuta el método GetFileVersion Obtener_Version = Fso.GetFileVersion(Path_File) Set Fso = Nothing Exit Function 'Error ErrSub: MsgBox Err.Description, vbCritical End Function Private Sub Command1_Click() Dim Path As String Path = InputBox(" Ruta del archivo para obtener la versión", _ " Averiguar Versión ") If Path = vbNullString Then Exit Sub ' Muestra la versión del fichero MsgBox Obtener_Version(Path), vbInformation, " Versión del archivo " End Sub

Recursos vb.net - enlaces relacionados

Ejemplos para trabajar con archivos en visual basic.NET

Recursos vb 6.0 - enlaces relacionados

Buscar en Recursos vb