Modules |
5.47 API - Ricavare la Windows Directory |
Alessandro Baraldi |
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 Sub |