Namespace System
Namespace IO


Class FileSystemInfo
	m_CreationTime As FILETIME
	m_LastAccessTime As FILETIME
	m_LastWriteTime As FILETIME
	m_FileAttributes As FileAttributes

	m_IsFreshed As Boolean
Protected
	FullPath As String
	OriginalPath As String
Public

	/*!
	@brief	コンストラクタ
	@author	OverTaker
	*/
	Sub FileSystemInfo()
		m_IsFreshed = False
	End Sub

	/*!
	@brief	デストラクタ
	@author	OverTaker
	*/
	Sub ~FileSystemInfo()
	End Sub

	/*!
	@brief	値が等しいか比較する
	@author	OverTaker
	@param  比較するオブジェクト
	@return 等しい場合True,そうでない場合False
	*/
	Override Function Equals( object As Object ) As Boolean
		If This.ToString = object.ToString Then
			Return True
		Else
			Return False
		End If
	End Function

	/*!
	@brief	文字列で表したオブジェクトを取得する
	@author	OverTaker
	@return オブジェクトの文字列(ファイルパス)
	*/
	Override Function ToString() As String
		Return FullPath
	End Function

	'----------------------------------------------------------------
	' パブリック プロパティ
	'----------------------------------------------------------------

	/*!
	@brief	ファイルの属性を取得する
	@author	OverTaker
	@return ファイル属性
	*/
	Function Attributes() As FileAttributes
		If Not m_IsFreshed Then Refresh()
		Return m_FileAttributes
	End Function

	/*!
	@brief	ファイル属性を設定する
	@author	OverTaker
	@param  ファイル属性
	*/
	Sub Attributes(value As FileAttributes)
		If SetFileAttributes(ToTCStr(FullPath), value) = FALSE Then
			'Exception
			Debug
		End If
	End Sub

	/*!
	@brief	ファイル作成日を取得する
	@author	OverTaker
	@return ファイルの作成日
	*/
	Function CreationTime() As DateTime
		If Not m_IsFreshed Then Refresh()
		Return DateTime.FromFileTime(m_CreationTime)
	End Function

	/*!
	@brief	ファイル作成日を設定する
	@author	OverTaker
	@param  ファイルの作成日
	*/
	Sub CreationTime(ByRef value As DateTime)
		m_CreationTime = value.ToFileTimeUtc()
		setFileTime()
	End Sub

	/*!
	@brief	ファイル作成日をUTC時刻で取得する
	@author	OverTaker
	@return ファイルの作成日(UTC)
	*/
	Function CreationTimeUtc() As DateTime
		Return CreationTime.ToUniversalTime()
	End Function

	/*!
	@brief	ファイル作成日をUTC時刻で設定する
	@author	OverTaker
	@param  ファイルの作成日(UTC)
	*/
	Sub CreationTimeUtc(ByRef value As DateTime)
		CreationTime = value
	End Sub

	/*!
	@brief	ファイル最終アクセス日を取得する
	@author	OverTaker
	@return ファイルの最終アクセス日
	*/
	Function LastAccessTime() As DateTime
		If Not m_IsFreshed Then Refresh()
		Return DateTime.FromFileTime(m_LastAccessTime)
	End Function

	/*!
	@brief	ファイル最終アクセス日を設定する
	@author	OverTaker
	@param  ファイルの最終アクセス日
	*/
	Sub LastAccessTime(ByRef value As DateTime)
		m_LastAccessTime = value.ToFileTimeUtc()
		setFileTime()
	End Sub

	/*!
	@brief	ファイル最終アクセス日をUTC時刻で取得する
	@author	OverTaker
	@return ファイルの最終アクセス日(UTC)
	*/
	Function LastAccessTimeUtc() As DateTime
		Return LastAccessTime.ToUniversalTime()
	End Function

	/*!
	@brief	ファイル最終アクセス日をUTC時刻で設定する
	@author	OverTaker
	@param  ファイルの最終アクセス日(UTC)
	*/
	Sub LastAccessTimeUtc(ByRef value As DateTime)
		LastAccessTime = value
	End Sub

	/*!
	@brief	ファイルの最終書き込み日を取得する
	@author	OverTaker
	@return ファイルの最終書き込み日
	*/
	Function LastWriteTime() As DateTime
		If Not m_IsFreshed Then Refresh()
		Return DateTime.FromFileTime(m_LastWriteTime)
	End Function

	/*!
	@brief	ファイルの最終書き込み日を設定する
	@author	OverTaker
	@param  ファイルの最終書き込み日
	*/
	Sub LastWriteTime(ByRef value As DateTime)
		m_LastWriteTime = value.ToFileTimeUtc()
		setFileTime()
	End Sub

	/*!
	@brief	ファイルの最終書き込み日をUTC時刻で取得する
	@author	OverTaker
	@return ファイルの最終書き込み日(UTC)
	*/
	Function LastWriteTimeUtc() As DateTime
		Return LastWriteTime.ToUniversalTime()
	End Function

	/*!
	@brief	ファイルの最終書き込み日をUTC時刻で設定する
	@author	OverTaker
	@param  ファイルの最終書き込み日(UTC)
	*/
	Sub LastWriteTimeUtc(ByRef value As DateTime)
		LastWriteTime = value
	End Sub

	/*!
	@brief	ファイルが存在するかどうかを取得する
	@author	OverTaker
	@return ファイルが存在する場合True,そうでない場合False
	*/
	Function Exists() As Boolean
		If Not m_IsFreshed Then Refresh()
		If m_FileAttributes = 0 Then
			Return False
		Else
			Return True
		End If
	End Function

	/*!
	@brief	ファイル拡張子を取得する
	@author	OverTaker
	@return ファイル拡張子
	*/
	Function Extension() As String
		Return Path.GetExtension(FullPath)
	End Function

	/*!
	@brief	ファイルパスを取得する
	@author	OverTaker
	@return ファイルパス
	*/
	Function FullName() As String
		Return FullPath
	End Function

	/*!
	@brief	ファイル名を取得する
	@author	OverTaker
	@return ファイル名
	*/
	Function Name() As String
		Return Path.GetFileName(FullPath)
	End Function


	'----------------------------------------------------------------
	' パブリック メソッド
	'----------------------------------------------------------------

	/*!
	@brief	ファイルを削除する
	@author	OverTaker
	*/
	Virtual Sub Delete()
		If DeleteFile(ToTCStr(FullPath)) = FALSE Then
			Throw New IOException("FileSystemInfo.Delete: Failed to DeleteFile.")
		End If
	End Sub

	/*!
	@brief  ファイルを最新の情報に更新する
	@author	OverTaker
	*/
	Virtual Sub Refresh()
		Dim data As WIN32_FIND_DATA
		Dim hFind = FindFirstFile(ToTCStr(FullPath), data)
		FindClose(hFind)

		If hFind <> INVALID_HANDLE_VALUE Then
			m_FileAttributes = New FileAttributes(data.dwFileAttributes As Long, "FileAttributes")
			m_CreationTime = data.ftCreationTime
			m_LastAccessTime = data.ftLastAccessTime
			m_LastWriteTime = data.ftLastWriteTime
			m_IsFreshed = True
		Else
			Throw New IOException("FileSystemInfo.Refresh: Failed to FindFirstFile.")
		End If
	End Sub

	
	'----------------------------------------------------------------
	' パブリック プライベート
	'----------------------------------------------------------------
Private

	/*!
	@brief  ファイルの時間を更新する
	@author	OverTaker
	*/
	Sub setFileTime()
		If Not m_IsFreshed Then Refresh()
		Dim hFile = CreateFile(ToTCStr(FullPath), GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0)
		If hFile = INVALID_HANDLE_VALUE Then
			Throw New IOException("FileSystemInfo.setFileTime: Failed to CreateFile.")
			Exit Function
		End If

		If SetFileTime(hFile, m_CreationTime, m_LastAccessTime, m_LastWriteTime) = False Then
			CloseHandle(hFile)
			Throw New IOException("FileSystemInfo.setFileTime: Failed to SetFileTime.")
		End If

		CloseHandle(hFile)
	End Sub
End Class


End Namespace
End Namespace
