Visual Basic.NET -ファイル操作-

ファイルの書き込み

Private Sub OutFile()
  Dim fp As String
  Dim fno As Integer
  Dim stxt = "test2"
  fp = "c:\test.txt"
  fno = FreeFile()
  FileOpen(fno, fp, OpenMode.Output)
  Print(fno, stxt)
  FileClose(fno)
End Sub

追加書き込みの場合は OpenMode.Append を利用する

ファイルの読込み

Private Sub InFile()
  Dim fp As String
  Dim fno As Integer
  Dim s As String
  fp = "c:\test.txt"
  fno = FreeFile()
  FileOpen(fno, fp, OpenMode.Input)
  While Not EOF(fno)
    s = LineInput(fno)
    Trace.WriteLine(s)
  End While
  FileClose(fno)
End Sub

▲このページのTopへ

Programming > Visual Basic.NET > Visual Basic.NET -ファイル操作-