To use the FileSystemObject, you need to reference the Microsoft Scripting Runtime:
Public Function GetExecutableFileVersion(ByVal _ Filename As String) As String Dim FileObj As Scripting.FileSystemObject ' Create Object Set FileObj = New Scripting.FileSystemObject If FileObj.FileExists(Filename) Then GetExecutableFileVersion = _ FileObj.GetFileVersion(Filename) End If ' Free Object Set FileObj = NothingEnd Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
