Modificar datos de un archivo

[seba123neo]

como no anda? fijate en el link que te puse antes, ahi mas abajo muestro un ejemplo de como se usa, pega ese codigo y probalo.

[ŞCØRPIØN-X3]

Gracias por las respuestas, Seba este es el code o no?

Código [Seleccionar] Expandir

Dim oFileInfo As FileVersionInfo

Private Sub Form_Load()
    Set oFileInfo = New FileVersionInfo

    Dim vStr As String

    oFileInfo.GetFileVersionInfo "C:\proyecto1.exe"

    vStr = "Product Name : " & oFileInfo.ProductName
    vStr = vStr & vbCrLf & "Product Version     : " & oFileInfo.ProductVersion
    vStr = vStr & vbCrLf & "Company Name    : " & oFileInfo.CompanyName
    vStr = vStr & vbCrLf & "File Description   : " & oFileInfo.FileDescription
    vStr = vStr & vbCrLf & "File Version    : " & oFileInfo.FileVersion
    vStr = vStr & vbCrLf & "Internal Name    : " & oFileInfo.InternalName
    vStr = vStr & vbCrLf & "Original Filename    : " & oFileInfo.OriginalFilename
    vStr = vStr & vbCrLf & "Legal Copyright    : " & oFileInfo.LegalCopyright
    vStr = vStr & vbCrLf & "BuildID    : " & oFileInfo.BuildID
    vStr = vStr & vbCrLf & "Comments    : " & oFileInfo.Comments

    MsgBox vStr

    Set oFileInfo = Nothing
End Sub

Si es este no me funciona, me dice: No se ah definido el tipo definido por el usuario en la siguiente linea:

Código [Seleccionar] Expandir

Dim [b]oFileInfo As FileVersionInfo[/b]
Debe faltar alguna referencia...

[BlackZeroX]

.

blackzero no me ayuda que vallas por mis post poniendo comentarios que no ayudan en nada... ¬¬

Es enserio, tienes que descargar el archivo que te han dicho... dale a Download code.

Código (Vb) [Seleccionar] Expandir



Private Type flinfo
   CompanyName As String
   FileDescription As String
   ProductName As String
   FileVersion As String
   ProductVersion As String
   InternalName As String
   OriginalFilename As String
   LegalCopyright As String
   Comments As String
   BuildID As String
End Type
Private fileinformation As flinfo
Private Declare Function GetFileVersiondata Lib "version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long

Private Declare Function GetFileVersionInfoSize Lib "version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long


Public Function GetFileVersionInfo(filename As String)
   Dim sInfo As String
   Dim temps
   Dim RetVal As Long
   Dim lSizeof As Long
   Dim N As Integer
   lSizeof = GetFileVersionInfoSize(filename, 0)
   
   fileinformation.BuildID = ""
   fileinformation.Comments = ""
   fileinformation.CompanyName = ""
   fileinformation.FileDescription = ""
....



Dulces Lunas!¡.
.

[ŞCØRPIØN-X3]

ah listo gracias, lo que pasaba era que para poder ver la descarga habia que registrarse.

Ya pude ver el code y funciona perfectamente, pero abra forma de modificar esa información?, es decir, modificar la organización porejemplo