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

 

 

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

<Volver> - Anterior - Siguiente

 

 

 

---

 

 

 

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

• File Info - Código fuente en vb6 para obtener información de un archivo
• Enlaces sobre FSO

 

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2008 - www.recursosvisualbasic.com.ar