Topic: Question of the day #7

[Mark]

Using getfiled, write a function that prompts the user to select a .txt file from "My Documents" and then opens that file in Notepad.


Question of the day guidelines:
1. Please do not post your answer for 24 hours after the time of the post.
2. If you wish you may post something like "I've got it!"
3. Feel free to ask questions, or for hints.
4. Feel free to PM the person who asked the question.
5. Do not be embarrassed by your answer or code.

[ronjonp]

Code: [Select]

(defun c:get (/ txt)
(setq txt (getfiled "Select a Text File" (strcat "C:/Documents and Settings/" (getenv "username") "/My Documents/") "txt" 8))
(startapp "notepad" txt)
(princ)
)

[Mark]

Excellent ronjonp. This is what I had.

Code: [Select]


(defun c:start-new (/ file2open)
  (if
    (setq file2open
 (getfiled
   "Select text file to open"
   (strcat (getenv "USERPROFILE")"\\My Documents\\")
   "txt"
   8
   )
   )

 (startapp "notepad" file2open)
 )
    )


[ronjonp]

Userprofile.....I thought there was an easier way .  I've used %userprofile% in batch files, but totally forgot about it.

Keep em coming Mark