Directory Windows

Imports System.IO
Imports System.Collections


Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Console.WriteLine("Cookies " & Environment.GetFolderPath(Environment.SpecialFolder.Cookies))
Console.WriteLine("Cronologia " & Environment.GetFolderPath(Environment.SpecialFolder.History))
Console.WriteLine("Internet " & Environment.GetFolderPath(Environment.SpecialFolder.InternetCache))
Console.WriteLine("ApplicationData " & Environment.GetFolderPath(Environment.SpecialFolder.Templates))
Console.WriteLine("-----------------------------------------------")
Dim str As [String]
Dim nl As [String] = Environment.NewLine
'

Console.WriteLine()
Console.WriteLine("-- Environment members --")

' Invoke this sample with an arbitrary set of command line arguments.

Console.WriteLine("CommandLine: {0}", Environment.CommandLine)

Dim arguments As [String]() = Environment.GetCommandLineArgs()
Console.WriteLine("GetCommandLineArgs: {0}", [String].Join(", ", arguments))

' <-- Keep this information secure! -->

Console.WriteLine("CurrentDirectory: {0}", Environment.CurrentDirectory)

Console.WriteLine("ExitCode: {0}", Environment.ExitCode)

Console.WriteLine("HasShutdownStarted: {0}", Environment.HasShutdownStarted)

' <-- Keep this information secure! -->

Console.WriteLine("MachineName: {0}", Environment.MachineName)

Console.WriteLine("NewLine: {0} first line{0} second line{0}" & _
" third line", Environment.NewLine)

Console.WriteLine("OSVersion: {0}", Environment.OSVersion.ToString())

Console.WriteLine("StackTrace: '{0}'", Environment.StackTrace)

' <-- Keep this information secure! -->

Console.WriteLine("SystemDirectory: {0}", Environment.SystemDirectory)

Console.WriteLine("TickCount: {0}", Environment.TickCount)

' <-- Keep this information secure! -->

Console.WriteLine("UserDomainName: {0}", Environment.UserDomainName)

Console.WriteLine("UserInteractive: {0}", Environment.UserInteractive)

' <-- Keep this information secure! -->

Console.WriteLine("UserName: {0}", Environment.UserName)

Console.WriteLine("Version: {0}", Environment.Version.ToString())

Console.WriteLine("WorkingSet: {0}", Environment.WorkingSet)

' No example for Exit(exitCode) because doing so would terminate this example.


' <-- Keep this information secure! -->

Dim query As [String] = "My system drive is %SystemDrive% and my" & _
" system root is %SystemRoot%"
str = Environment.ExpandEnvironmentVariables(query)
Console.WriteLine("ExpandEnvironmentVariables: {0} {1}", nl, str)

Console.WriteLine("GetEnvironmentVariable: {0} My temporary directory is {1}.", _
nl, Environment.GetEnvironmentVariable("TEMP"))

Console.WriteLine("GetEnvironmentVariables: ")
Dim environmentVariables As IDictionary = Environment.GetEnvironmentVariables()
Dim de As DictionaryEntry
For Each de In environmentVariables
Console.WriteLine(" {0} = {1}", de.Key, de.Value)
Next de

Console.WriteLine("GetFolderPath: {0}", _
Environment.GetFolderPath(Environment.SpecialFolder.System))

Dim drives As [String]() = Environment.GetLogicalDrives()
Console.WriteLine("GetLogicalDrives: {0}", [String].Join(", ", drives))




Dim Temp As String = Environment.GetEnvironmentVariable("TEMP")

Dim Cookies As String = Environment.GetFolderPath(Environment.SpecialFolder.Cookies)
Dim Cronologia As String = Environment.GetFolderPath(Environment.SpecialFolder.History)
Dim Internet As String = Environment.GetFolderPath(Environment.SpecialFolder.InternetCache)




End Sub