Bonjour,

Je suis confronté à un gros problème.

J'utilisais un code qui fonctionne très bien sous windows 98, XP, Vista...

Mais sous windows NT j'ai un soucis, le repertoire Windows ne s'appelle pas Windows mais WinNT (un truque dans le genre).

Le code que j'utilise est :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Function CheminSystem()
 Dim RetVal As Long
 Dim SysDir As String
 SysDir = Space$(256)
 RetVal = GetSystemDirectory(SysDir, Len(SysDir))
 If RetVal <> 0 Then
 CheminSystem = Left$(SysDir, RetVal)
 End If
 End Function
J'ai une erreur sur la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
SysDir = Space$(256)
Pourquoi??? Et comment m'en sortir?

Merci beaucoup.