En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1222580 visiteurs

 5 visiteurs en ligne

Nous contacter

Contact

FAQ

Déplier Fermer  Système

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

Const MAX_PATH = 260


Function GetSysPath() As String

Dim buff As String
Dim ret As Long
buff = Space$­­­­­(MAX_PATH)
ret = GetSystemDirectory(buff, MAX_PATH)
GetSysPath = Left$­­­­­(buff, ret) & ""

End Function

Dernière modification :02/02/2007 : 18:18 Hyperlien 

Vous êtes ici :   Accueil » FAQ