AW: Systemvariablen setzen
21.04.2009 15:02:57
Reinhard
Hallo Carsten,
ich fand ein beispiel um Temp" abzuändern. Das müßte man umbasteln.
Gruß
Reinhard
Option Explicit
Private Declare Function SetEnvironmentVariable Lib "kernel32" Alias _
"SetEnvironmentVariableA" _
(ByVal lpName As String, _
ByVal lpValue As String) As Long
Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias _
"GetEnvironmentVariableA" _
(ByVal lpName As String, _
ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
Dim m_SavePath As String
Sub ChanceTempPath()
Dim sBuffer As String, lResult As String, lLength As Long
'// Pfad zum Temp-Verzeichnis ermitteln
sBuffer = String(256, 0)
lLength = GetEnvironmentVariable("TEMP", sBuffer, Len(sBuffer))
If lLength > 0 Then
m_SavePath = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
End If
MsgBox "Alter Temp-Pfad: " & m_SavePath
'// Pfad zum Temp-Verzeichnis neu setzen
lResult = SetEnvironmentVariable("TEMP", "E:\Temp")
'// Testen
sBuffer = String(256, 0)
lLength = GetEnvironmentVariable("TEMP", sBuffer, Len(sBuffer))
If lLength > 0 Then
MsgBox "Neuer Temp-Pfad: " & _
Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
End If
'// Und wieder zurücksetzen
lResult = SetEnvironmentVariable("TEMP", m_SavePath)
End Sub