Function GetAppName(ShowEXE As Boolean)
On Error GoTo error
GetAppName = App.EXEName
If ShowEXE = True Then
GetAppName = GetAppName & “.exe”
End If
Exit Function
error:  MsgBox Err.Description, vbExclamation, “Error”
End Function


Vota este artículo:
1 Estrella2 Estrellas3 Estrellas4 Estrellas5 Estrellas (No Ratings Yet)
Loading ... Loading ...

Posts anterior y posterior:


Posts Relacionados: