Declare Function api_GetWindowsDirectory Lib "kernel32" _
Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal _
nSize As Long) As Long
Function GetWinDir() As String
Dim lpBuffer As String * 255
Dim length As Long
length = api_GetWindowsDirectory(lpBuffer, Len(lpBuffer))
GetWinDir = Left(lpBuffer, length)
End Function
Sub WindowsVerzeichnis()
Antwort = MsgBox("Auf diesem System wurde" & vbCrLf & _
"Windowsim im Verzeichnis " & vbCrLf & vbCrLf & _
Space(8) & GetWinDir & vbCrLf & vbCrLf & _
"installiert.", vbInformation, "Windows-Verzeichnis")
End Sub
mit call WindowsVerzeichnis
dann aufrufen
auch mal im Archiv nachsehen ;-)
AxelG
mit folgender Formel bekommst Du diese Info:
=INFO("Sysversion")
Gruß
M. Wendeler
http://www.wendelers.de
dann schreib diese Formel in Zell A1 und nimm folgendes Makro:
Sub Info()
MsgBox ("Ihr aktuelles Betriebssystem ist: " & [a1])
End Sub
Gruß
M. Wendeler
http://www.wendelers.de
mfg, GraFri
Function GetWinDir() As String
Dim lpBuffer As String * 255
Dim length As Long
length = api_GetWindowsDirectory(lpBuffer, Len(lpBuffer))
GetWinDir = Left(lpBuffer, length)
End Function
Sub WindowsVerzeichnis()
'=INFO("Sysversion") in Zelle A1 eintragen !
Antwort = MsgBox("Auf diesem System wurde" & vbCrLf & _
[a1] & " im im Verzeichnis " & vbCrLf & vbCrLf & _
Space(8) & GetWinDir & vbCrLf & vbCrLf & _
"installiert.", vbInformation, "Windows-Verzeichnis")
End Sub
versuche diesen Code, WICHTIG, wie Michal schreibt,
=INFO("Sysversion")
in Zelle A1 eintragen,
und mit call WindowsVerzeichnis
viel Erfolg !
AxelG