README.md

Description

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

More Info

Submitted On
By	syntax.
Level	Beginner
User Rating	5.0 (10 globes from 2 users)
Compatibility	VB 4.0 (32-bit), VB 5.0, VB 6.0
Category	Windows API Call/ Explanation
World	Visual Basic
Archive File

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

Source Code

'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