[RESOLVED] [02/03] How to use the Environment Class.

[sparrow1]

Hi All,

After several hours of research found the way to use the Environment Class.
Here's my fully code.
If you want to use it then you need 3 buttons and a ListView.

Private Sub GetEnvironment_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetEnvironment.Click
        ' set the cursor to an hourglass
        Me.Cursor = Cursors.WaitCursor
        With EnvironmentListView
            ' clear the ListView of any existing items
            .Items.Clear()
            ' Create a ListView variable
            Dim lvi As ListViewItem
            ' Create a new instance of the ListItem variable
            ' and re-use it for each property you add to the ListView
            lvi = New ListViewItem
            With lvi
                .Text = "Current Directory"
                .SubItems.Add(Environment.CurrentDirectory)
            End With
            .Items.Add(lvi)
            lvi = New ListViewItem
            With lvi
                .Text = "Machine Name"
                .SubItems.Add(Environment.MachineName)
            End With
            .Items.Add(lvi)
            lvi = New ListViewItem
            With lvi
                .Text = "OS Version"
                ' NOTE: Call the ToString method to convert the number
                ' to a string variable for display
                .SubItems.Add(Environment.OSVersion.ToString)
            End With
            .Items.Add(lvi)
            lvi = New ListViewItem
            With lvi
                .Text = "System Directory"
                .SubItems.Add(Environment.SystemDirectory)
            End With
            .Items.Add(lvi)
            lvi = New ListViewItem
            With lvi
                .Text = "Ticks since last shutdown"
                .SubItems.Add(Environment.TickCount)
            End With
            .Items.Add(lvi)
            lvi = New ListViewItem
            With lvi
                .Text = "User Domain Name"
                .SubItems.Add(Environment.UserDomainName)
            End With
            .Items.Add(lvi)
            lvi = New ListViewItem
            With lvi
                .Text = "User Name"
                'Note: Call the ToString method to convert the number
                ' to a string variable for display
                .SubItems.Add(Environment.UserName)
            End With
            .Items.Add(lvi)
            lvi = New ListViewItem
            With lvi
                .Text = "User DomainName"
                .SubItems.Add(Environment.Version.ToString)
            End With
            .Items.Add(lvi)
        End With
        Me.Cursor = Cursors.Default
    End Sub
 
    Private Sub GetDrives_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetDrives.Click
        ' Set the Cursor to an Hourglass
        Me.Cursor = Cursors.WaitCursor
        ' Clear the ListView
        EnvironmentListView.Items.Clear()
        'Declare a string array called logicalDrivers and call the
        ' GetLogicalDrivers method of the Environment class
        Dim LogicalDrives As String() = Environment.GetLogicalDrives()
        'Create a string variable so we can loop
        'trough the array using For Each
        Dim Drive As String
        'Create a ListView Item variable
        Dim lvi As ListViewItem
        'Look for each drive variable in the logicalDrives string array
        For Each Drive In logicalDrives
            With EnvironmentListView
                lvi = New ListViewItem
                With lvi
                    .Text = "Drive Letter"
                    .SubItems.Add(Drive)
                End With
                .Items.Add(lvi)
            End With
        Next Drive
        Me.Cursor = Cursors.Default
    End Sub
 
    Private Sub GetSpecialFolders_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetSpecialFolders.Click
        ' set the cursor to an hourglass
        Me.Cursor = Cursors.WaitCursor
        With EnvironmentListView.Items
            'clear the ListViewItems
            .Clear()
 
            ' Add each property into the ListView
            .Add("Program Files Folder").SubItems.Add _
            (Environment.GetFolderPath _
            (Environment.SpecialFolder.ProgramFiles))
            .Add("Application Data").SubItems.Add _
            (Environment.GetFolderPath _
            (Environment.SpecialFolder.ApplicationData))
            .Add("Personal Folder").SubItems.Add _
            (Environment.GetFolderPath _
            (Environment.SpecialFolder.Personal))
            .Add("Local Application Data Folder").SubItems.Add _
            (Environment.GetFolderPath _
            (Environment.SpecialFolder.ApplicationData))
 
        End With
        Me.Cursor = Cursors.Default
    End Sub

If you like it let me know.

Wkr,

sparrow1

[craigreilly]

it is nice code. what is the difference ebtween
User Domain Name
&
User DomainName <- What is this number result?

Really a version of something...

[sparrow1]

it is nice code. what is the difference ebtween
User Domain Name
&
User DomainName <- What is this number result?

Really a version of something...

Hi,

The User Domain Name is just the same as the Machine Name and the User DomainName is the network domain name associated with the current user.

Wkr,

sparrow1