Visual Basic Programming Code Examples
Visual Basic > Code Snippets Code Examples
Get windows system directory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Get windows system directory
Public Const MAX_PATH = 260
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Dim strBuffer As String
Dim lngReturn As Long
Dim strWindowsSystemDirectory As String
strBuffer = Space$(MAX_PATH)
lngReturn = GetSystemDirectory(strBuffer, MAX_PATH)
strWindowsSystemDirectory = Left$(strBuffer, Len(strBuffer) - 1)