VB.Net Tutorial/Development/Environment

Environment: MachineName, SystemDirectory, GetLogicalDrives, Version

<source lang="vbnet">Namespace MyApp.Info

   Module Main
       Sub Main()
           Dim objHW As New MyApp.Info.Utilities
           objHW.DisplayData()
       End Sub
   End Module
   Public Class Utilities
       "Run the application
       Public Sub DisplayData()
           Console.WriteLine(Environment.MachineName)
           Console.WriteLine(Environment.SystemDirectory)
           Console.WriteLine(Environment.GetLogicalDrives())
           Console.WriteLine(Environment.Version.ToString())
       End Sub
   End Class

End Namespace</source>

vbex
C:\WINDOWS\system32
System.String[]
2.0.50727.42

Environment.OSVersion

<source lang="vbnet">Imports System Public Class Step3

    Shared Sub Main()
         System.Console.WriteLine(System.Environment.OSVersion.ToString())
    End Sub

End Class</source>

Microsoft Windows NT 5.1.2600 Service Pack 2

Environment.TickCount

<source lang="vbnet">Option Strict On Public Module TimerFunction

  Public Sub Main()
     Dim starttime, endtime As Integer
     starttime = Environment.TickCount
     For ctr As Integer = 0 to 10000000
     Next
     endtime = Environment.TickCount
     Console.WriteLine("Elapsed time is {0} milliseconds", endtime - starttime)
  End Sub

End Module</source>

Elapsed time is 16 milliseconds

Environment.UserName

<source lang="vbnet">Public Class LoopPerformance

   Shared Sub Main()
       Console.WriteLine(System.Environment.UserName)
   
   End Sub

End Class</source>

Joe

Get the command line arguments using the Environment class

<source lang="vbnet">Module Module1

   Sub Main(ByVal cmdArgs() As String)
       If Environment.GetCommandLineArgs.Length > 0 Then
           For Each strArg As String In Environment.GetCommandLineArgs
               "Process the arguments here.
               Console.WriteLine(strArg)
           Next strArg
       End If
   End Sub

End Module</source>

main

Sort Command line arguments

<source lang="vbnet">Imports System.Collections Module modMain

   Sub Main()
       Dim oArgs As New ArrayList(Environment.GetCommandLineArgs())
       Dim I As Integer
       
       With oArgs
           .RemoveAt(0)
           .Sort()
           For I = 0 To .Count - 1
               Console.WriteLine(.Item(I))
           Next
       End With
   End Sub
   

End Module</source>