Directory di Windows

'************************************

' per la Funzione RitornaDirSystem

'************************************

Imports System.IO
Imports System.Collections
'************************************




'FileOpen(1, RitornaDirSystem("windir") & "\System32\LinkStatus.ini",



'If Dir(RitornaDirSystem("windir") & "\System32\LinkStatus.INI") <> "" Then

' TypeConn.MyDemo = True

'End If



Public Function RitornaDirSystem(ByVal MyNomeDirectory As String) As String
' ritorna la directory di Windows o il nome della directory richiesta


Dim environmentVariables As IDictionary = Environment.GetEnvironmentVariables()
Dim de As DictionaryEntry
RitornaDirSystem = ""

For Each de In environmentVariables
'' Debug.Print(" {0} = {1}", de.Key, de.Value)


If UCase(de.Key) = UCase(MyNomeDirectory) Then
RitornaDirSystem = de.Value
Exit For
End If

Next de


End Function