SystemDirectory – The path of the System directory

Private Declare Function GetSystemDirectory Lib "kernel32" Alias _    "GetSystemDirectoryA" (ByVal lpBuffer As String, _    ByVal nSize As Long) As Long ' The path of the System directoryFunction SystemDirectory() As String    Dim buffer As String * 512, length As Integer    length = GetSystemDirectory(buffer, Len(buffer))    SystemDirectory = Left$(buffer, length)End Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


Recent Articles: