---

Use Rundll32.exe for runing API, it's OK. But how to have the value returned
by API and not by Shell ?
Example : lngRetour_Ini = Shell("Rundll32.exe
kernel32.dll,GetWindowsDirectoryA strChemin_tmp, 1024)", vbMinimizedNoFocus)
lngRetour_Ini has the value of Shell and not of
GetWindowsDirectoryA

---

why are you running RunDll32 instead of just calling the API directly?

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

Function WindowsDir() As String
Dim x As Long
Dim sPath As String
strPath = Space$(1024)
x = GetWindowsDirectory(sPath, Len(sPath))
sPath = Left$(sPath, x)
If Right$(strPath, 1) <> "\" Then sPath = sPath & "\"
WindowsDir = sPath
End Function

And please... Next time in Danish :)

--
Mvh.... Tim Sørensen
56º 24'209 N / 10º 55'631 E