[X] My Assistant

[gen009]

i did some research in my project, and I've came this far:

CODE

Private Sub cmdexit_Click()
''exit button
Unload Me
End Sub

Private Sub cmdopen_Click()
''open button
If opttxt.Value = True Then

    Dim F$
    Open (file.Path + "\" + file) For Binary As #1
    F$ = Space$(LOF(1))
    Get #1, , F$
    Close #1
    rtbox.Text = F$
Else
    MsgBox "UNDONE!"
End If
rtbox.Locked = True
End Sub

Private Sub cmdsave_Click()
MsgBox "UNDONE!"
End Sub

Private Sub dir_Change()
''directory
file.FileName = dir.Path
file.Refresh
End Sub


Private Sub drv_Change()
''drive [as in drive C: or D: ...]
dir.Path = drv.Drive
dir.Refresh
End Sub

Private Sub file_DblClick()
''same with open button
If opttxt.Value = True Then
    Dim F$
    Open (file.Path + "\" + file) For Binary As #1
    F$ = Space$(LOF(1))
    Get #1, , F$
    Close #1
    rtbox.Text = F$
Else
    MsgBox "UNDONE!"
End If
rtbox.Locked = True
End Sub

Private Sub optdoc_Click()
If optdoc.Value = True Then file.Pattern = "*.doc"
End Sub

Private Sub opttxt_Click()
If opttxt.Value = True Then file.Pattern = "*.txt"
End Sub

i uploaded a picture of my project and i'm concerned on how to put a word application on my VB_form and open it using the way I open some .txt file.

in my project, Im not yet done with the editing the .txt file and the error in opening invalid Drives, but im actually concerned in adding a MS Word application in my code.

This post has been edited by gen009: 1 Jul, 2009 - 03:46 AM