systemutil.Run("C:\WINDOWS\NOTEPAD.exe")
Window("Notepad").WinEditor("Edit").Type "Hi This is shyam "
Window("Notepad").WinEditor("Edit").Type micCtrlDwn + "s" + 
micCtrlUp
Window("Notepad").Dialog("Save As").WinEdit("File 
name:").Set "demo"
Window("Notepad").Dialog("Save As").WinButton("Save").Click




'..........Any more question mail me 
testingwithshyam@gmail.com

In qtp directly we con't open notepad.so,create an object 
first(fso),through this obj we can access notepad.
 to create an obj
        set fso =create object(scripting.filesystem object)
        set x= fso.opentextfile()

set fso = createobject("scripting.filesytemobject")

file_path = "c:\ajreddy.txt"

set notepad = fso.createtextfile(file_path,forwriting)
notepad.writeline "hi ajreddy"
notepad.writeline "this is created on "& now
notepad.close

set notepad = fso.opentextfile(file_path,forreading)
for notepad.atendofstream
n = notepad.readline
msgbox n
Next

Hi 
The above ans will error message at for loop.
This will work fine.
Dim fso,notepad
set fso = createobject("scripting.filesystemobject")

file_path = "c:\nandu.txt"
'forwriting =2
'forreading = 1
set notepad = fso.createtextfile(file_path,1)
notepad.writeline "this is created by Nanda"
notepad.writeline"this is created on "
 
set notepad = fso.opentextfile(file_path,1)
Do
	n = notepad.readline
	msgbox n

Loop until ( notepad.atendofstream=true)


Thank you
Sailaja