Open Notepad

same as how u open a text file..... ie .txt.....

Dim FILE_NAME As String = "C:\test.txt"
 
Dim objReader As New System.IO.StreamReader(FILE_NAME)

Select allOpen in new window

ReturnValue = Shell("C:\windows\system32\notepad.exe", 1)

If my memory serves me correctly (c;

Sorry, I don't explain exactly what i wanted, But what i want is to open .text file then save it.. using vb6. or may i have an option to print and save the file. Is it possible ? if yes, please give me good examples I'm vb6 beginner... Thanks!!!

Please be more specific...

Do you want to make an EDITOR for the user to make changes to the file and then save/print it?

...or do you want to simply PROGRAMMATICALLY open the file and make changes to it (and print it)?

Yes Idle mind,
I want to simply PROGRAMMATICALLY open the file and make changes to it (and print it)

See here for "raw" printing:
http://support.microsoft.com/kb/q154078/

You can also print this way:

Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Const SW_HIDEWINDOW = &H80
 
Private Sub Command1_Click()
    ShellExecute Me.hwnd, "Print", "c:\abc.txt", 0&, 0&, SW_HIDEWINDOW
End Sub

Select allOpen in new window

Thank you so much Idle mind! I've got it, But what about to save this file? can i make it?

I can now open the file and print it base on the given code above. Upon opening the file i want to save it to another path or make it some changes before saving.Below is the code i used...

' I want to make another command3 to edit and save the file. is it possible? if yes Pls help. thanks!

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_HIDEWINDOW = &H80

Public Sub Command1_Click()
Dim ff As Integer
Dim fileName As String
Dim entireFile As String
   
ff = FreeFile
fileName = "c:\someFile.txt"
Open fileName For Binary Access Read As #ff
entireFile = Input(LOF(ff), ff)
Close #ff
 
Text1.Text = entireFile
End Sub
Private Sub Command2_Click()
    ShellExecute Me.hwnd, "Print", "c:\someFile.txt", 0&, 0&, SW_HIDEWINDOW
End Sub

Thanks and More POwer