Conseguir propiedades de ficheros en Visual Basic.

[CRIS]

Pues eso mismo señores, hay alguna forma de ver las propiedades como version, fecha de creacion etc... de un fichero creado en VB, lo tendria que ver en mi aplicacion creada en Delphi.

Salu2.CRIS.

[delphi.com.ar]

Las propiedades de fecha de creacíon, tamaño... no iporta el tipo de archivo ni quién los creó, esas propiedades preteencen al FileSystem, y puedes obtenerla con las funciones FileAge, FileGetDate ( + FileDateToDateTime).... o bien puedes obtenerlas mediante la función FindFirst.

Las propiedades de versión, creo que te respondieron en otro hilo, igual te dejo un hilo viejo: http://www.clubdelphi.com/foros/showthread.php?t=874

Saludos!

[CRIS]

Gracias men ya lo arregle con el hilo que me pusiste:

Código Delphi [-]
function GetFileVersion( AFileName : String ) : string;
var
  Size,
  Size2 : DWord;
  Pt,
  Pt2   : Pointer;
begin
  Size := GetFileVersionInfoSize(PChar(AFileName), Size2);
  if Size > 0 then
  begin
    GetMem(Pt, Size);
    try
      GetFileVersionInfo (PChar(AFileName), 0, Size, Pt);
      VerQueryValue (Pt, '', Pt2, Size2);
      with TVSFixedFileInfo (Pt2^) do
        Result:= Format('Versión %d.%d.%d.%d', [ HiWord(dwFileVersionMS),
                                                       LoWord(dwFileVersionMS),
                                                       HiWord(dwFileVersionLS),
                                                       LoWord(dwFileVersionLS)] );
    finally
      FreeMem (Pt);
    end;
  end;
end;

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 label1.Caption := GetFileVersion( 'C:\cris\gp4champ.exe' );

end;

end.