CISA FotoGallery

Statistiche

Tot. visite contenuti : 927972
Home Articoli tecnici API Ricavare la System Dir

Ricavare la System Dir

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 Function