>Joe,
>I am trying to OPEN THE FILE when I click the command button or VIEWING what's in the text file. You are just storing the path of the text file.
>Any other suggestions?
>Thank you again

OK, take two. Try this this is the actual code I use too do some low level writes. Try it out.

Attribute VB_Name = "modFileOps"

Function GetFileNumber() As Integer
    ' I know this seems redundant but I want to be able to read the code
    ' more easily with better function names.  And we will need to know what
    ' the file number is in some cases during multiple opens and selected closes.
    GetFileNumber = FreeFile
End Function

Function FileExists(FileName As String) As Boolean
' This function will avoid bad drive errors while searching for a file.
        On Error Resume Next
            FileExists = Dir$(FileName) <> ""
                If Err.Number <> 0 Then FileExists = False
        On Error GoTo 0
End Function

Public Function OpenFile(FileName As String, FileNumber As Integer, KillIfExists As Boolean) As Boolean
            
OpenFile = True ' lets establish the default state of OpenFile.
            
        If FileExists(FileName) Then   ' find out if its really there.
            
            If KillIfExists Then
                Kill FileName   'Are we supposed to zap it? If so, do it.
                Open FileName For Output As #FileNumber ' Autokill and roll on.
            Else
                Response = MsgBox("The File " & FileName & " already exists.  Overwrite?", _
                           vbYesNo + vbCritical + vbDefaultButton2, "Overwrite Confirmation")
                
                    If Response = vbYes Then    ' User chose Yes.
                        Open FileName For Output As #FileNumber  ' User reponded to Overwrite file. Continue
                    Else
                        OpenFile = False ' Bail.  User abort.
                    End If
                    
            End If
            
        Else
                Open FileName For Output As #FileNumber   ' create the file, it doesnt exist
        End If

End Function

Public Function AddFileEntry(FileNumber As Integer, Column As Integer, LogEntry As String) As Boolean
    Print #FileNumber, Tab(Column); LogEntry
End Function

Public Function CloseFile(FileNumber As Integer) As Boolean  ' pretty straight forward close the file
    Close #FileNumber
End Function

>>>Can somebody tell me what's wrong with this code? I get an error message about the OPENFILE procedure (Sub or Function not defined) when I put it in the click event of a command button.
>>>
>>>CommonDialog1.Filter = "Text Files|*.txt"
>>>CommonDialog1.ShowOpen
>>>OpenFile (CommonDialog1.Filename)
>>>
>>>
>>>Thank you in advance
>>
>>
>>It should read "Text Files (*.txt) | *.txt"
>>or for more options "Text Files (*.txt;*.text;*.bak) | *.txt;*.text;*.bak"
>>
>>below is an actual clip from my proj:
>>'** Start OF SOURCE'
>> CommonDialog1.Filter = _
>> "Image Files (*.jpg;*.gif;*.jpeg;*.bmp;*.tiff;*.tif)|*.jpg;*.gif;*.*.jpeg;*.bmp;*.tiff;*.tif|" & _
>> "All files (*.*)|*.*" ' *.* just in case they have some freaky format we need to allow.
>> ' Specify default filter
>> CommonDialog1.FilterIndex = 0
>> ' Display the Open dialog box
>> CommonDialog1.ShowOpen
>> ' Display name of selected file
>>
>> txtSideBG.Text = CommonDialog1.FileName
>>'** END OF SOURCE'