Modules |
5.49 API - Ricavare la System Directory |
Alessandro Baraldi |
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Public Function retSysDir() as string Dim sysstr As String * 256 GetSystemDirectory sysstr , 256 retSysDir=Left(sysstr , InStr(sysstr , Chr(0)) - 1) End Sub |