Friday 12.3.11

Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
Dim os As OperatingSystem = Environment.OSVersion
Dim OSid As PlatformID = os.Platform
Dim drives() As String = Environment.GetLogicalDrives()
Dim drivesString As String = ""
Dim drive As String
For Each drive In drives
drivesString += drive + ", "
Next
drivesString = drivesString.TrimEnd(" "c, ","c)
lbx.Items.Add("Machine Name: " + Environment.MachineName)
lbx.Items.Add("Operating System: " + Environment.OSVersion.ToString())
lbx.Items.Add("Operating System ID: " + OSid.ToString())
lbx.Items.Add("Current Folder: " + Environment.CurrentDirectory)
lbx.Items.Add("CLR Version: " + Environment.Version.ToString())
lbx.Items.Add("Present Drives: " + drivesString)
lbx.Items.Add("Common Program Files: " + Environment.GetFolderPath(Environment.SpecialFolder.CommonProgramFiles))
lbx.Items.Add("Windows Desktop: " + Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory))
lbx.Items.Add("Favorites: " + Environment.GetFolderPath(Environment.SpecialFolder.Favorites))
lbx.Items.Add("Start menu: " + Environment.GetFolderPath(Environment.SpecialFolder.StartMenu))
lbx.Items.Add("Windows System: " + Environment.GetFolderPath(Environment.SpecialFolder.System))
End Sub

Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click
If Not File.Exists("C:\new\VBDotNET.txt") Then
File.Create("C:\new\VBDotNet.txt")
End If
Dim aFile As New FileInfo("C:\new\VBDotNET.txt")
lbx.Items.Add("File Name: " + aFile.Name)
lbx.Items.Add("File Extension: " + aFile.Extension)
lbx.Items.Add("File's Full Name: " + aFile.FullName)
lbx.Items.Add("Parent Directory: " + aFile.DirectoryName)
lbx.Items.Add("File Size: " + aFile.Length.ToString() + " bytes ")
End Sub