Lesson 17: Creating Files in Visual Basic 6

' Create a text file in My Documents folder
Open "c:\My Documents\sample.txt" For Output As #1

' Create an HTML file in the same location
Open "c:\My Documents\sample.html" For Output As #2

Private Sub create_Click() 
    Dim intMsg As String
    Dim StudentName As String
    
    ' Open file for writing
    Open "c:\My Documents\sample.txt" For Output As #1 
    intMsg = MsgBox("File sample.txt opened")
    
    ' Get student name
    StudentName = InputBox("Enter the student Name")
    
    ' Write to file
    Print #1, StudentName 
    intMsg = MsgBox("Writing " & StudentName & " to sample.txt")
    
    ' Close file
    Close #1 
    intMsg = MsgBox("File sample.txt closed")
End Sub

Private Sub Reading_Click()
    Dim variable1 As String
    
    ' Open file for reading
    Open "c:\My Documents\sample.txt" For Input As #1 
    
    ' Read file content
    Input #1, variable1
    
    ' Display in textbox
    Text1.Text = variable1
    
    ' Close file
    Close #1 
End Sub

Dim linetext As String

Private Sub open_Click()
    ' Set filter for text files
    CommonDialog1.Filter = "Text files (*.txt)|*.txt"
    CommonDialog1.ShowOpen
    
    If CommonDialog1.FileName <> "" Then
        Open CommonDialog1.FileName For Input As #1
        
        ' Read file until end
        Do
            Input #1, linetext
            Text1.Text = Text1.Text & linetext
        Loop Until EOF(1)
    End If
    
    Close #1
End Sub

Private Sub save_Click()
    ' Set filter for text files
    CommonDialog1.Filter = "Text files (*.txt)|*.txt"
    CommonDialog1.ShowSave
    
    If CommonDialog1.FileName <> "" Then
        Open CommonDialog1.FileName For Output As #1
        Print #1, Text1.Text
        Close #1
    End If
End Sub