フォルダの日付を取得や変更をする方法を記載します。

取得・変更には、System.IO.Directoryを使用します。

フォルダの日付を取得する

Directory クラスを使用して、フォルダ日付・時刻を取得する

Dim sDirPath As String = "C:\work\"

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

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

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

 

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

Dim sDirPath As String = "C:\work"

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

・FileInfoでは、ファイルでもフォルダでも同じ方法で取得出来ます。

 

フォルダの日付を変更する

Directory クラスを使用して、フォルダ日付を変更する

Dim sDirPath As String = "C:\work\aaa"

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

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

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

※Ｃ：￥は、アクセス権でエラーになる事がある。

 

フォルダの移動をする方法を記載します。

Directoryクラスを使用して行う方法

Dim sPath As String = "C:\work\aaa\"		

System.IO.Directory.Move(sPath, "C:\work2")

・C:をD:のようにルートドライブの変更ができません。同一ドライブのみ有効です。

 

My.Computer.FileSystemを使用する方法

Dim sPath As String = "C:\work\"		

'フォルダの移動
My.Computer.FileSystem.MoveDirectory(sPath, "D:\work\")

'既存のフォルダがを上書きする
My.Computer.FileSystem.MoveDirectory(sPath, "D:\work\", True)

 

DirectoryInfo クラスを使用する方法

Dim sPath As String = "C:\work\"

Dim finfo As New System.IO.DirectoryInfo(sPath)
finfo.MoveTo("C:\work2")

※同一ドライブのみ有効です。