Find the system directory of your system

decleration:

Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As LongDeclarations

code :

Public Function mysystemdirectory()

Dim m_mybuf As String * 25

Dim m_val As Long, systemdirectory As String

m_val = GetSystemDirectory(m_mybuf, 25)

systemdirectory = Left(m_mybuf, InStr(m_mybuf, Chr(0)) - 1)

MsgBox systemdirectory

End Function

private sub form_load()

mysystemdirectory

end sub