Const CommonAppData = &H23& ' the second & denotes a long integer '
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(CommonAppData)
Set objFolderItem = objFolder.Self
MsgBox objFolderItem.Name & ": " & objFolderItem.Path
Best Answer
Work this end (XP).
Create a new file, call it test.vbs. Put this in it.
Run it, notice the delay before the message box is shown.
Note, the number is in Milliseconds, so 1000 is 1 second.