Get Windows install directory

[dstepans]

Hello,

how could I get a path to the directory where windows is installed. I am using vb6.

TIA,
Denis

 

[paulbent]

Can use the SHGetSpecialFolderLocation API function. I posted an example in thread222-721049

Paul Bent
Northwind IT Systems

http://www.northwindit.co.uk

 

[vladk]

dstepans,

Would it work for you?

MyWindowsDirectory = Environ$("WINDIR&quot

Vladk

 

[dstepans]

Thanks guys.
I'll try it. Ran into some urgent problems that have to be resolved first.

Denis

 

[DrJavaJoe]

Before using the environ solution do a keyword search to see why it may give you problems, it has been talked to death.

 

[Laaitie]

Here's another option:

Public Declare Function GetWindowsDirectory Lib _
"kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) _
As Long

Public Function GetWin() As String
Dim P As Long
Dim tmpString As String
tmpString = String$(255, Chr(13))
P = GetWindowsDirectory(tmpString, 255)
GetWin = Mid$(tmpString, 1, InStr(1, tmpString, _
Chr(13), vbTextCompare) - 2)
End Function