FlipLib/About.cls at master · haagensen/FlipLib · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "About"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Function Executavel() As String

    Dim sNome As String
    Dim utl As FnUteis

    Set utl = New FnUteis
    sNome = utl.BackSlash(App.Path) & App.EXEName
    Set utl = Nothing

    If Dir$(sNome & ".EXE") <> "" Then
        sNome = sNome & ".EXE"
    ElseIf Dir$(sNome & ".DLL") <> "" Then
        sNome = sNome & ".DLL"
    ElseIf Dir$(sNome & ".OCX") <> "" Then
        sNome = sNome & ".OCX"
    End If
    Executavel = sNome

End Function

Public Function Versao() As String
    Versao = App.Major & "." & App.Minor & "." & App.Revision
End Function