kevingif~~叛逆之風~~

參考於 : Visual Basic 2003~2005 開發秘訣與範例大全 和 MSDN Library (繁體中文) 

使用 My.Application.Info 物件:
Public ReadOnly Property Info() As Microsoft.VisualBasic.ApplicationServices.AssemblyInfo
成員屬於:
      Microsoft.VisualBasic.ApplicationServices.ApplicationBase
摘要:
      取得物件，提供用於取得應用程式組件之相關資訊 (例如版本號碼、描述等) 的屬性。 
傳回值:
      這個屬性會傳回目前應用程式的 My.Application.Info 物件。
常用屬性:

My.Application.Info.Title	應用程式的標題
My.Application.Info.Description	應用程式的描述
My.Application.Info.ProductName	應用程式的產品名稱
My.Application.Info.CompanyName	應用程式的公司名稱
My.Application.Info.Copyright	應用程式的著作權注意事項
My.Application.Info.Trademark	應用程式的商標注意事項
My.Application.Info.Version.ToString	應用程式的版本號碼 [ Major . Minor . Build . Revision ]
My.Application.Info.AssemblyName	應用程式的組件檔名稱，不包括副檔名
My.Application.Info.DirectoryPath	儲存應用程式的目錄
My.Application.Info.WorkingSet	對應到處理序 (Process) 內容的實體記憶體量

使用 My.Application.Log :
Public ReadOnly Property Log() As Microsoft.VisualBasic.Logging.Log
成員屬於:
      Microsoft.VisualBasic.ApplicationServices.ApplicationBase
摘要:
      取得物件，提供用於將事件和例外狀況 (Exception) 資訊寫入應用程式記錄檔接聽程式的屬性和方法。 
傳回值:
      這個屬性會傳回目前應用程式的 My.Application.Log 物件。

My.Application.Log 物件會提供直接的進入點 (Entry Point)，從此進入點可以存取 .NET Framework 的記錄服務。WriteEntry 和 WriteException 會將訊息寫入應用程式的記錄檔接聽程式。接聽程式可以用應用程式的組態檔進行設定。
My.Application.Log 物件只適用於用戶端應用程式。至於 Web 應用程式，請使用 My.Log。
使用 My.Application.Log.WriteException 方法，記錄您明確攔截的例外狀況，以及未處理的例外狀況。
My.Application.Log.WriteException ("要記錄的例外狀況","訊息的類型預設為" TraceEventType.Error,  "附加至訊息的字串")

這個範例會顯示記錄已處理之例外狀況。
Visual Basic
Public Sub ExceptionLogTest()
    Try
       Dim x As Object
       MsgBox(x.ToString)
       '以上2行產生的錯誤已在指派值之前使用。可能會在執行階段產生 null 例外狀況。

    Catch ex As Exception
        My.Application.Log.WriteException(ex, _
            TraceEventType.Error, _
            "附加至訊息的字串")
    End Try
End Sub
而在一般預設狀況下:其應用程式所記錄的記錄檔路徑
該路徑的格式如下：BasePath\CompanyName\ProductName\ProductVersion
預設的 BasePath 值如下。
C:\Documents and Settings\username\Application Data
PS:Application Dat 此資料夾是隱藏的資料夾。
CompanyName、ProductName 和 ProductVersion 的值會來自應用程式的組件資訊。記錄檔名稱為 AssemblyName.log，而 AssemblyName 是組件的檔案名稱 (不含副檔名)。

使用 My.Application.CommandLineArgs 屬性:
Public ReadOnly Property CommandLineArgs() As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
成員屬於:
      Microsoft.VisualBasic.ApplicationServices.ConsoleApplicationBase
摘要:
     取得集合，包含做為目前應用程式之字串 (String) 的命令列引數。
傳回值:
      String 的 System.Collections.ObjectModel.ReadOnlyCollection`1，包含做為目前應用程式之字串的命令列引數。
直接使用範例顯示:
利用 FOR EACH 迴圈 取得所有的命令列參數
        Dim str1 As String = ""
        For Each str As String In My.Application.CommandLineArgs
            str1 &= str1 & " "
        Next
        MsgBox(str1)

 

已上是本人於2009 整理於 VB研究小站 之 NCIS資訊中心討論區

轉貼過來。