Der findes en meget lettere måde. Men den kræver tilgengæld at man knytter
en dll til en projekt.
Her er der tale om Microsoft Scripting Runtime. Den giver adgang til mange
forskellige funktioner mht. filer og mapper. I dette tilfælde, skal du først
initialisere objektvariablen FileSystemObject som giver dig adgang til det
hele (hvis du bruger den flere gange, så gør dette globalt). Derfra kan du
hente f.eks. filversionen:
Dim fso as New FileSystemObject
'Returnerer versionen af Explorer.exe
Sub MySub()
Dim str as String
str = fso.GetFileVersion("C:\Windows\Explorer.exe")
End Sub
Sub Mappe()
Dim f as Folder
Set f = fso.GetFolder("C:\Windows")
msgbox f.Files.Count 'Returnerer antallet af filer i mappen.
End Sub
- Stefan McKinnon Edwards
"Jens Vestergaard" <j@railsoft.dk> wrote in message
news:3cd51483$0$97278$edfadb0f@dspool01.news.tele.dk...
Hej Folks,
At dette:
App.Major & "." & App.Minor & "." & App.Revision
giver en versions-streng for *ens egen app* er jeg ikke i tvivl om, men
hvordan udtrækker man en tilsvarende streng for en anden exe-fil.
...altså tilsvarende når man højreklikker i Stifinder og vælger
Egenskaber --> Version.
--
mvh
Jens Vestergaard
www.railsoft.dk