VB.Net by API/System/Environment

Environment.CommandLine

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

  Shared Sub Main()
       Console.WriteLine("CommandLine:        " & System.Environment.rumandLine )
  End Sub 

End Class

 </source>

Environment.CurrentDirectory

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("CurrentDirectory:   " & System.Environment.CurrentDirectory )
  End Sub 

End Class

 </source>

Environment.Exit

<source lang="vbnet"> Public Class MainClass

  Shared Sub Main()
     System.Environment.Exit(System.Environment.ExitCode)
  End Sub " ValidationError

End Class

 </source>

Environment.ExitCode

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("ExitCode:           " & System.Environment.ExitCode )
  End Sub 

End Class

 </source>

Environment.GetCommandLineArgs

<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>

Environment.GetLogicalDrives

<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>

Environment.HasShutdownStarted

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("HasShutdownStarted: " & System.Environment.HasShutdownStarted )
  End Sub 

End Class

 </source>

Environment.MachineName

<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>

Environment.NewLine

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("NewLine:            " & System.Environment.NewLine)
  End Sub 

End Class

 </source>

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>

Environment.ProcessorCount

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("ProcessorCount:     " & System.Environment.ProcessorCount)
  End Sub 

End Class

 </source>

Environment.SpecialFolder.CommonProgramFiles

<source lang="vbnet"> Imports System.Windows.Forms public class FolderBrowserDialogProperty

  public Shared Sub Main
       Dim FolderBrowserDialog1 As FolderBrowserDialog = New System.Windows.Forms.FolderBrowserDialog
       With FolderBrowserDialog1
           .RootFolder = Environment.SpecialFolder.rumonProgramFiles
           .SelectedPath = "C:\Temp"
           .ShowNewFolderButton = False
           .Description = "Use the tree below to select a folder:"
       End With
       If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
           Console.WriteLine(FolderBrowserDialog1.SelectedPath)
       End If
  End Sub

End class

 </source>

Environment.SpecialFolder.Favorites

<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Data Imports System.IO Imports System.Collections Imports System.Windows.Forms Imports System.Drawing.Printing Public Class MainClass

   Shared Sub Main()
     Console.WriteLine(Environment.GetFolderPath(Environment.SpecialFolder.Favorites))
   End Sub

End Class

 </source>

Environment.StackTrace

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("StackTrace:         " & System.Environment.StackTrace )
  End Sub 

End Class

 </source>

Environment.SystemDirectory

<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>

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>

Environment.UserDomainName

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("UserDomainName:     " & System.Environment.UserDomainName)
  End Sub 

End Class

 </source>

Environment.UserInteractive

<source lang="vbnet">

Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("UserInteractive:    " & System.Environment.UserInteractive)
  End Sub 

End Class

 </source>

Environment.UserName

<source lang="vbnet">

Public Class LoopPerformance

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

End Class

 </source>

Environment.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>

Environment.WorkingSet

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("WorkingSet:         " & System.Environment.WorkingSet)
  End Sub 

End Class

 </source>