• Home
 · 
• Windows API Call/Explanation
 · 
• Get Windows, System, User and Temp Directories

Get Windows, System, User and Temp Directories

Functions to get the Windows Directory, System Directory, Temp Directory, and User Directory.

API Declarations
Public Declare Function ExpandEnvironmentStrings Lib "kernel32" Alias "ExpandEnvironmentStringsA" (ByVal lpSrc As String, ByVal lpDst As String, ByVal nSize As Long) As Long
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long


Rate Get Windows, System, User and Temp Directories

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Get the windows directory
Public Function sWindowsDirectory() as String
 Dim sOut As String
 sOut = Space(260)
 GetWindowsDirectory sOut, 260
 sOut = Left(sOut, InStr(sOut, Chr(0)) - 1)
 sWindowsDirectory = sOut
End Function
'Get the system directory
Public Function sSystemDirectory() as String
 Dim sOut As String
 sOut = Space(260)
 GetSystemDirectory sOut, 260
 sOut = Left(sOut, InStr(sOut, Chr(0)) - 1)
 sSystemDirectory = sOut
End Function
'Get the temp directory
Public Function sTempDirectory() as String
 Dim sOut As String
 sOut = Space(260)
 ExpandEnvironmentStrings "%TEMP%", sOut, 260
 sOut = Left(sOut, InStr(sOut, Chr(0)) - 1)
 sTempDirectory = sOut
End Function
'Get the user directory
Public Function sUserDirectory() as String
 Dim sOut As String
 sOut = Space(260)
 ExpandEnvironmentStrings "%USERPROFILE%", sOut, 260
 sOut = Left(sOut, InStr(sOut, Chr(0)) - 1)
 sUserDirectory = sOut
End Function