Guide Contents
|
DigitalDan Home Page
|
Private Shared Function Get_Command_Line_Arguments() As List(Of String)
Dim ret As New List(Of String) : ret.Clear()
For Each de As DictionaryEntry In Environment.GetEnvironmentVariables()
ret.Add(de.Key.ToString & " = " & de.Value.ToString)
Next
Return ret
End Function
Private Shared Function Get_Get_Application_Folder() As String
Return Application.StartupPath
End Function
Private Shared Function Get_Get_Application_FullFileName() As String
Return Application.Application.ExecutablePath
End Function