[tt]
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function GetWindowsSystemDir()
Dim sBuffer As String
Dim X As Long
sBuffer = String(255, vbNullChar)
X = GetSystemDirectory(sBuffer, Len(sBuffer))
GetWindowsSystemDir = Left(sBuffer, X)
End Function
[/tt]
hope that helps, dont shoot me if it didnt (I'll be watching ) [sig]<p>Karl<br><a href=mailto:kb244@kb244.com>kb244@kb244.com</a><br><a href=
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.