Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

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



Application Security Testing: An Integral Part of DevOps

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%)
	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.



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