setting current user logged in

[George Quitugua]

I'm trying to check to see if a file exists in Users
Profile folder in Windows 2000 (i.e. Docs &
Settin....\User\Folder - Users are using roaming profiles)
but am running into errors when trying to specify the
current user logged in. I'm trying to use %username% in
the following code:

If (Fsys.FolderExists("c:\winnt")) Then
TextFile = "c:\winnt\profiles\%UserName%\My
Documents\file.txt"
Else
TextFile = "C:\Documents and Settings\%UserName%\My
Documents\file.txt"

Also....should I be using %systemroot% instead of c:\winnt?

Any help is appreciated.

Thanks,

GQ

 

[Jay Freedman]

Hi, George,

VBA doesn't understand the environment string names like %username% the way
DOS batch files do. You have to use the Environ() function, like this:

TextFile = Environ("systemroot") & "\profiles\" & _
Environ("username") & "\My Documents\file.txt"

 

[George Quitugua]

Thanks for the reply Jay...I'll give that a go.

Regards,

GQ

 

[Thomas B. Johansen]

do it like this

Sub show_my_document_path()

Set WshShell = CreateObject("WScript.Shell")
folder_name = WshShell.SpecialFolders("MyDocuments")

msgbox ("the path to your 'My document' is: " + folder_name)

End Sub


and you can change "MyDocuments" whit any of:

AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates


Thomas Bøjstrup Johansen