CISA FotoGallery

Statistiche

Tot. visite contenuti : 927979
Home Articoli tecnici API Ricavare la  Windows Dir

Ricavare la  Windows Dir

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


Public Function retWinDir() as string
Dim a As String * 256
GetWindowsDirectory a, 256
retWinDir = Left(a, InStr(a, Chr(0)) - 1)
End Function