Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Aug 21, 1997

Find the Name of the Windows or Windows System Directory

You can quickly find the name of the Windows or the Windows System directory. Just pass "WindowsDirectory" or "WindowsSystemDirectory" into this function:
 
Declare Function wu_GetWindows_
	Directory Lib "Kernel" Alias _
	"GetWindowsDirectory" _
	(ByVal lpBuffer As String, _
	ByVal nSize As Integer) As Integer
Declare Function wu_GetWindowsSystem_
	Directory Lib "Kernel" Alias _
	"GetSystemDirectory" _
	(ByVal lpBuffer As String, _
	ByVal nSize As Integer) As Integer
Function WinDirs$ (strDirNameNeeded$)
On Error GoTo WinDirs_Err
Dim strBuffer$
Dim iSize%
Dim iResult%
iSize = 256
strBuffer$ = Space$(iSize)
	Select Case strDirNameNeeded$
		Case "WindowsDirectory"
			iResult% = wu_GetWindows_
				Directory(strBuffer$, iSize)
		Case "WindowsSystemDirectory"
			iResult% = wu_GetWindows_
				SystemDirectory(strBuffer$, iSize)
	End Select
	WinDirs$ = Left$_
		(strBuffer$, iResult%)
WinDirs_Err:
	If Err Then
		' Do whatever you need to here
	End If
End Function
Calvin Smith
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date