Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: CAR3S? en 13 Febrero 2011, 12:52 pm



Título: Obtener informacion?
Publicado por: CAR3S? en 13 Febrero 2011, 12:52 pm
Buenos dias   ::)

Es posible obtener informacion de un archivo marcado en un listbox?

No importa lo del listbox, importa lo de obtener  informacion (Descripcion,organizacion,nombre interno,etc)

Hay alguna api o algo?

Saludos!


Título: Re: Obtener informacion?
Publicado por: Psyke1 en 13 Febrero 2011, 13:41 pm
http://goo.gl/ZTPXS

DoEvents! :P


Título: Re: Obtener informacion?
Publicado por: CAR3S? en 13 Febrero 2011, 14:04 pm
ok, tengo que usar FileSystemObject  , GetFile

Pero no encuentro lo que serian las "Propiedades" del getfile.

Osea, encontre algunas, pero no la de la organizacion  :xD


Título: Re: Obtener informacion?
Publicado por: 79137913 en 13 Febrero 2011, 18:49 pm
HOLA!!!

@Mr Frog: jajaja una de las mejores paginas que vi!!! XD

GRACIAS POR LEER!!!


Título: Re: Obtener informacion?
Publicado por: seba123neo en 13 Febrero 2011, 19:32 pm
FileVersionInfo (http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=73058&lngWId=1)


Título: Re: Obtener informacion?
Publicado por: CAR3S? en 13 Febrero 2011, 22:57 pm
Seba, como ya sabes...
Me dirias como se usa :huh:


Título: Re: Obtener informacion?
Publicado por: seba123neo en 13 Febrero 2011, 23:34 pm
el ejemplo que te pase usa el evento drag & drop del formulario, por eso el codigo esta metido ahi en ese vento, pero vos lo podes sacar de ahi y meterlo donde quieras...la clase dejala igual, aca te paso un ejemplo de como obtener la organizacion de un archivo de algun path que vos le pongas:

Código
  1. Dim oFileInfo As FileVersionInfo
  2.  
  3. Private Sub Form_Load()
  4.    Set oFileInfo = New FileVersionInfo
  5.  
  6.    Dim vStr As String
  7.  
  8.    oFileInfo.GetFileVersionInfo "C:\proyecto1.exe"
  9.  
  10.    vStr = "Product Name : " & oFileInfo.ProductName
  11.    vStr = vStr & vbCrLf & "Product Version     : " & oFileInfo.ProductVersion
  12.    vStr = vStr & vbCrLf & "Company Name    : " & oFileInfo.CompanyName
  13.    vStr = vStr & vbCrLf & "File Description   : " & oFileInfo.FileDescription
  14.    vStr = vStr & vbCrLf & "File Version    : " & oFileInfo.FileVersion
  15.    vStr = vStr & vbCrLf & "Internal Name    : " & oFileInfo.InternalName
  16.    vStr = vStr & vbCrLf & "Original Filename    : " & oFileInfo.OriginalFilename
  17.    vStr = vStr & vbCrLf & "Legal Copyright    : " & oFileInfo.LegalCopyright
  18.    vStr = vStr & vbCrLf & "BuildID    : " & oFileInfo.BuildID
  19.    vStr = vStr & vbCrLf & "Comments    : " & oFileInfo.Comments
  20.  
  21.    MsgBox vStr
  22.  
  23.    Set oFileInfo = Nothing
  24. End Sub

saludos.



Título: Re: Obtener informacion?
Publicado por: CAR3S? en 13 Febrero 2011, 23:54 pm
Gracias seba,

Si tuviera que sacar la organizacion de cada path de un list o.o ?

osea, el codigo no me sirve, ya lei sobre listbox listview y esas cosas, no lose todo de memoria, pero algo se. Pido alguna orientacion, epro en español...  :P