|
 |
 |
 |
| |
 Répertoire SYSTEM
A copier dans un module :
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function RepertoireSystem() As String
Temp$ = Space$(255)
vLen& = GetSystemDirectory(Temp$, Len(Temp$))
Temp$ = Left$(Temp$, vLen&)
RepertoireSystem = Temp$
End Function
Voici le code pour retrouver le chemin du répertoire système :
MsgBox RepertoireSystem()
|
|
 |
 |
 |
|