Default to desktop 1

[finitesimian]

This should be easy. I just couldn't find a reference for the syntax anywhere...


How do you "default" something to the user's desktop in Attachmate?
I've created a script that scrapes several screens, then pastes the data to a .txt file on the desktop........but I can't share my script with anybody because the path is listed as MY desktop (I'd have to custom tailor the script for everyone I gave it to).

Heres an example

rc% = Shell("Notepad.exe C:\Documents and Settings\FINITE_SIMIAN\Desktop\scrape.txt",1)

I need it to say this:

rc% = Shell("Notepad.exe C:\Documents and Settings\CURRENT_USER_WHOEVER_THEY_ARE\Desktop\scrape.txt",1)

 

[Deception]

While it certainly may not be the best method, this is one technique that will work:

rc% = Shell("cmd.exe /c Notepad.exe C:\Documents and Settings\%username%\Desktop\scrape.txt",1)

 

[WinblowsME]

Function Get_Desktop_Path() As String
   Dim obj_ws_shell As Object

   Set obj_ws_shell = CreateObject("WScript.Shell")
   Get_Desktop_Path = obj_ws_shell.SpecialFolders("Desktop")
End Function

Sub Main()
   MsgBox Get_Desktop_Path
End Sub