View Single Post
  #5 (permalink)  
Old 03-06-2008, 08:04 AM
Christian72DD Christian72DD is offline
Newbie
 
Join Date: Feb 2008
Posts: 6
Default

I just tried to read the file info of the program that is running to have an auto version number by this.
But i always get an unsupported error-message.

Is there no chance to read the file info of the program that uses this .dll?

It would be great if this would be possible.


Sub Globals
Dim info(5)
End Sub

Sub App_Start
Form1.Show
FilesEx1.New1
info() = FilesEx1.FileInfo("DateTest.exe")
Label1.Text = "Version " & SubString(info(2),6,4)-2007 &"."& Int(SubString(info(2),3,2))&"."& Int(SubString(info(2),0,2))
End Sub


The program is called DateTest.exe, so it has to read its own info.

Last edited by Christian72DD : 03-06-2008 at 08:15 AM.
Reply With Quote