テキストファイルの読み込み方法について記載します。

File.ReadAllLines メソッドを使用し Stringとして読み込む

Dim sFilePath As String = "C:\work\myfile.txt"

'テキストファイルを全て読み込む
Dim str As String = System.IO.File.ReadAllText(sFilePath, System.Text.Encoding.Default)

 

File.ReadAllLines メソッドを使用し 文字列配列に読み込む

Dim sFilePath As String = "C:\work\myfile.txt"

'行ごとに配列として、テキストファイルを読み込む
Dim lines As String() = System.IO.File.ReadAllLines(sFilePath, System.Text.Encoding.Default)

 

StreamReader.ReadToEnd メソッドを使用し Stringとして読み込む

Dim sr As New System.IO.StreamReader("C:\work\myfile.txt", System.Text.Encoding.Default)
Dim str As String = sr.ReadToEnd()
sr.Close()

MessageBox.Show(str)

 

StreamReader.ReadLine メソッドを使用し List<Strung>に読み込む

Dim lines As New List(Of String)
Dim sr As New System.IO.StreamReader("C:\work\myfile.txt", System.Text.Encoding.Default)

While (SR.Peek() >= 0)
    Dim s As String = SR.ReadLine()
    lines.Add(s)
End While
SR.Close()

 

ファイルの日付を取得および変更する方法を記載します。

ファイルの日付を取得する

File クラスを使用して、ファイルの日付・時刻を取得する

Dim sFilePath As String = "c:\work\myfile.txt"		

' 作成日時を取得する
Dim dCreate As DateTime = System.IO.File.GetCreationTime(sFilePath)

' 更新日時を取得する
Dim dUpdate As DateTime = System.IO.File.GetLastWriteTime(sFilePath)

' アクセス日時を取得する
Dim dAccess As DateTime = System.IO.File.GetLastAccessTime(sFilePath)

 

FileInfo クラスを使用して、ファイルの日付・時刻を取得する

Dim sFilePath As String = "c:\work\myfile.txt"		

Dim fInfo As New System.IO.FileInfo(sFilePath)
'または
Dim fInfo As System.IO.FileInfo = My.Computer.FileSystem.GetFileInfo(sFilePath)

'作成日時を取得する
Dim dCreate As DateTime = fInfo.CreationTime

'更新日時を取得する
Dim dUpdate As DateTime = fInfo.LastWriteTime

'アクセス日時を取得する
Dim dAccess As DateTime = fInfo.LastAccessTime

 

ファイルの日付を変更する

File クラスを使用して、ファイルの日付・時刻を変更する

Dim sFilePath As String = "c:\work\myfile.txt"

' 作成日時を変更する
System.IO.File.SetCreationTime(sFilePath, DateTime.Now)

' 更新日時を変更する
System.IO.File.SetLastWriteTime(sFilePath, DateTime.Now)

' アクセス日時を変更する
System.IO.File.SetLastAccessTime(sFilePath, DateTime.Now)

 

FileInfo クラスを使用して、ファイルの日付・時刻を変更する

Dim sFilePath As String = "c:\work\myfile.txt"

Dim fInfo As New System.IO.FileInfo(sFilePath)
'または
Dim fInfo As System.IO.FileInfo = My.Computer.FileSystem.GetFileInfo(sFilePath)

' 作成日時を変更する
fInfo.CreationTime = DateTime.Now

' 更新日時を変更する
fInfo.LastWriteTime = DateTime.Now

' アクセス日時を変更する
fInfo.LastAccessTime = DateTime.Now