[RESOLVED] Select all/Find/Open with?

[eyeRmonkey]

If you are creating a Notepad like program why are you opening a text file for Binary Access Read?

If you are going to read a text file into a textbox you should be opening the file for Input.

Opening a text file for binary is just another way of opening things. It tends to be faster. You get the same result.

[moeur]

To get openwith to work you have to load the file that is in Command$ when the program starts. For example:

Private Sub Form_Load()
    Dim strBuffer       As String
    Dim intDemoFileNbr  As Integer
    Dim strFileToOpen   As String
    If Len(Command$) > 0 Then
        intDemoFileNbr = FreeFile
        Open Command$ For Binary Access Read As #intDemoFileNbr
        strBuffer = Input(LOF(intDemoFileNbr), intDemoFileNbr)
        txtTestFile.Text = strBuffer
        Close #intDemoFileNbr
        mstrLastDir = Left$(strFileToOpen, InStrRev(strFileToOpen, "\") - 1)
    End If
End Sub