• Home
 · 
• Miscellaneous
 · 
• Save a file into a .txt file

Save a file into a .txt file

Save a file into a .txt file

Rate Save a file into a .txt file

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

If Check1.Value = 1 Then
    Form1.BackColor = vbBlue
   ElseIf Check1.Value = 0 Then
     Form1.BackColor = vbRed
     
     End If
     
    
      

    

End Sub

Private Sub Command1_Click()
End



End Sub

Private Sub Command2_Click()
Dim MSG As String


Text1.Text = ""
If Text1.Text = "" Then
     MSG = MsgBox("List Cleared", vbYesNoCancel + vbInformation, "Done")
          
                End If
     
     
End Sub

   Private Sub created_Click()
Dim intMsg As String
Dim StudentName As String
Dim studentage As String
Dim address As String
Dim TD As String


Open "C:\Documents and Settings\Administrator\My Documents\sample.txt" For Append As #1

intMsg = MsgBox("File sample.txt opened")

        StudentName = InputBox("Enter the student Name")

        studentage = InputBox("enter the student name")
        
        address = InputBox("Enter Address")
        
        Print #1, StudentName & "," & studentage & "," & address & ","; TIMEDATE.Text
        

      


intMsg = MsgBox("Writing a" & StudentName & studentage & address & "to sample.txt ")


Close #1

intMsg = MsgBox("File sample.txt closed")
End Sub






Private Sub Form_Load()
Dim MM As Date
Dim S As String

Caption = "Enter a Date"

DD = Date
MM = Date
YY = Date

TIMEDATE.Visible = False
Text1.Enabled = False
TIMEDATE.Text = S & "    " & Time & " " & Date



End Sub

Private Sub read_Click()
Dim variable1 As String
     Dim xfreefile As Integer
      xfreefile = FreeFile
     Open "C:\Documents and Settings\Administrator\My Documents\sample.txt" For Input As #xfreefile
       Text1.Text = ""
       Text1.ForeColor = &HFF&
       
       
        Do While EOF(xfreefile) = False
            Input #1, variable1
            Text1.Text = Text1.Text & " " & variable1
        Loop
Close #1
End Sub