• Home
 · 
• Internet/HTML
 · 
• Write txt file

Write txt file

Write txt file

Rate Write txt file

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

  Open (App.Path & "\test.txt") For Output As 1
  Print #1, "This is date : " & Format(Date, "yyyy-mm-dd")
  Print #1, "This is time : " & Format(Time, "hh:mm:ss")
  Close #1
  MsgBox " You can read file: " & App.Path & "\test.txt"
End Sub

Private Sub Command2_Click()
   Unload Me
End Sub