Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 236 fois - Téléchargée 36 fois
Private Declare Function GeneralWinDirApi Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Public Function WinDir() As String ' Renvoie le répertoire de Windows (Par exemple C:\Windows ou C:\WinNT) Const FIX_LENGTH% = 4096 Dim Length As Integer Dim Buffer As String * FIX_LENGTH Length = GeneralWinDirApi(Buffer, FIX_LENGTH - 1) WinDir = Left$(Buffer, Length) End Function au
Ideal lorsque on ne peut pas utiliser le VBS
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.