%SystemRoot%

[Webagent]

Call Shell("regsvr32 /s %SystemRoot%\SYSTEM32\msnchat45.ocx", vbNormalFocus)

I dont want to use C: because its not always that, does it understand %SystemRoot%?

[Webagent]

ahh this is cool too..

Accessing Special Folders

If you've ever needed to retrieve information about your system, you're faced with a myriad of confusing API calls. If you rely on the VB API Viewer to find some of these API calls, you're going to be missing a number of important ones that are "hidden" in the Windows shell. One of these API calls allows you to retrieve the paths to special folders on your system, such as your Favorites, your Temporary Internet Files, and more. This call is part of the Shell32.DLL library and is conspicuously absent from the API Viewer. In addition, all of the API's constants are missing.

However, if you have the Developer Network Library, you can get information about how the call works. The call's name is SHGetSpecialFolderPath and can be found in the library by using the index. The VB declaration for the API is shown here:

Private Declare Function SHGetSpecialFolderPath _
Lib "shell32.dll" _
Alias "SHGetSpecialFolderPathA" _
(ByVal hWnd As Long, _
ByVal lpszPath As String, _
ByVal nFolder As Integer, _
ByVal fCreate As Boolean) As Boolean

The arguments are as follows:

hWnd - Current window handle to form you're using (accessed with Me.hWnd Property of the form). If you're in a code module, this argument can be zero with no apparent effects.
lpszPath - Buffer for returned string. This buffer should be initialized to at least 255 space characters, as shown in the example that will follow.
nFolder - Constant specifying which special folder to return.
fCreate - Boolean value indicating whether or not to create the folder if it doesn't exist. Be careful of this argument if you're testing your function -- you wouldn't want to create extra system folders in case of an error.

Finding the constants is tricky, since they are not documented in the MSDN Library. However, if you have Visual C++, you can search for the constants in the include files. Even if you're not a VC++ programmer, it's handy to keep these files around for occasions just like this. The include files are in the VC98\Include directory under the main Visual Studio directory. You can use Explorer's Find File feature to look for text in the files -- it will save you a lot of time. The constants available for the nFolder argument are listed below. Constants marked with Version 5.0 are only available on systems that have Windows 2000 or Internet Explorer 5.0 installed. Also, some of the constants are only available for NT 4.0, so doublecheck the documentation before use.


Option Explicit

Private Declare Function SHGetSpecialFolderPath _
Lib "shell32.dll" _
Alias "SHGetSpecialFolderPathA" _
(ByVal hWnd As Long, _
ByVal lpszPath As String, _
ByVal nFolder As Integer, _
ByVal fCreate As Boolean) As Boolean

Private Const CSIDL_DESKTOP = &H0
Private Const CSIDL_INTERNET = &H1
Private Const CSIDL_PROGRAMS = &H2
Private Const CSIDL_CONTROLS = &H3
Private Const CSIDL_PRINTERS = &H4
Private Const CSIDL_PERSONAL = &H5
Private Const CSIDL_FAVORITES = &H6
Private Const CSIDL_STARTUP = &H7
Private Const CSIDL_RECENT = &H8
Private Const CSIDL_SENDTO = &H9
Private Const CSIDL_BITBUCKET = &HA
Private Const CSIDL_STARTMENU = &HB
Private Const CSIDL_DESKTOPDIRECTORY = &H10
Private Const CSIDL_DRIVES = &H11
Private Const CSIDL_NETWORK = &H12
Private Const CSIDL_NETHOOD = &H13
Private Const CSIDL_FONTS = &H14
Private Const CSIDL_TEMPLATES = &H15
Private Const CSIDL_COMMON_STARTMENU = &H16
Private Const CSIDL_COMMON_PROGRAMS = &H17
Private Const CSIDL_COMMON_STARTUP = &H18
Private Const CSIDL_COMMON_DESKTOPDIRECTORY = &H19
Private Const CSIDL_APPDATA = &H1A
Private Const CSIDL_PRINTHOOD = &H1B
Private Const CSIDL_ALTSTARTUP = &H1D
Private Const CSIDL_COMMON_ALTSTARTUP = &H1E
Private Const CSIDL_COMMON_FAVORITES = &H1F
Private Const CSIDL_INTERNET_CACHE = &H20
Private Const CSIDL_COOKIES = &H21
Private Const CSIDL_HISTORY = &H22

Public Sub Main()
Dim blnReturn As Long
Dim strBuffer As String
strBuffer = Space(255)
blnReturn = SHGetSpecialFolderPath(0, _
strBuffer, _
CSIDL_STARTMENU, _
False)

strBuffer = Left(strBuffer, InStr(strBuffer, Chr(0)) - 1)

End Sub

www.vbtechniques.com/content.asp?a=co&cID=624

[Sie]

where oh where has my little dog gone, oh where oh where could he be?

MsgBox("Poo Poo.")

[Dangermouse]

Not sure if this will work, but try Environ("SYSTEMROOT")

If that doesnt work then i think the environmental variables are indexed by integer...so try

x = 1

while Environ(x)
debug.print Environ(x)
x = x + 1
Wend

[AbsoluteGenius]

Quickest and simplest way to do this is like so

Add a Reference to the Microsoft Scripting Runtime file "sccrun.dll" then declare a variable to use the features.

Dim FSO As New FileSystemObject

Now you have File write/read options as well as things like

WindowsFolder = FSO.GetSpecialFolder(0)
SystemFolder = FSO.GetSpecialFolder(1)
TemporaryFolder = FSO.GetSpecialFolder(2)

Simple !!!

[Lazer]

where oh where has my little dog gone, oh where oh where could he be?

MsgBox("Poo Poo.")

LMFAO

[Brendan]


if (%systemroot% == C:\) {
echo -s I r elite!
}
else { halt }



;D

[Dangermouse]

AbsoluteGenius said:

Quickest and simplest way to do this is like so

Add a Reference to the Microsoft Scripting Runtime file "sccrun.dll" then declare a variable to use the features.

Dim FSO As New FileSystemObject

Now you have File write/read options as well as things like

WindowsFolder = FSO.GetSpecialFolder(0)
SystemFolder = FSO.GetSpecialFolder(1)
TemporaryFolder = FSO.GetSpecialFolder(2)

Simple !!!

Assuming my way works (I dont have vb), and for the question she asked, my way is simpler and easier.

[anthrax]

Environ("Systemroot")

^ ^ found that on a forum after searching in google

if that didn't work, i'd use FSO as AG suggested since MS created it for a reason (i.e. its the pinnacle of good file i/o handling and efficient... plus its good to remain consistent if you use it throughout a project to its max extent)

[Dangermouse]

Dangermouse said:

Not sure if this will work, but try Environ("SYSTEMROOT")

[Alexander]

Lazer said:

LMFAO

lazer you really are sad, same for sie

[Lazer]

alex shhhhhhhhhhhhhhh

[Dangermouse]

g0t r00t!

[Freak]

=)

[Webagent]

thanks for the advice ;D