www.pudn.com > AutoUpdate.rar > SYSTEMINFO.cls

VERSION 1.0 CLASS 
BEGIN 
  MultiUse = -1  'True 
  Persistable = 0  'NotPersistable 
  DataBindingBehavior = 0  'vbNone 
  DataSourceBehavior  = 0  'vbNone 
  MTSTransactionMode  = 0  'NotAnMTSObject 
END 
Attribute VB_Name = "SYSTEMINFO" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = True 
Attribute VB_PredeclaredId = False 
Attribute VB_Exposed = False 
Option Explicit 
 
' runtime app path 
Dim sAppPathValue As String 
 
Public Property Get sAppPath() As String 
    sAppPath = sAppPathValue 
End Property 
 
Public Property Let sAppPath(ByVal sValue As String) 
    sAppPathValue = sValue 
End Property