source: trunk/Include/Classes/System/IO/FileSystemInfo.ab@ 318

Namespace System
Namespace IO


Class FileSystemInfo
    m_CreationTime As FILETIME
    m_LastAccessTime As FILETIME
    m_LastWriteTime As FILETIME
    m_FileAttributes As DWord
Protected
    FullPath As String
    OriginalPath As String
Public

    Override Function Equals( object As Object ) As Boolean
        If This.ToString = object.ToString Then
            Return True
        Else
            Return False
        End If
    End Function

    Override Function ToString() As String
        Return FullPath
    End Function

    'Public Properties
    Function Attributes() As DWord'FileAttributes
        Return m_FileAttributes
    End Function

    Sub Attributes(value As DWord)
        If SetFileAttributes(FullPath, value) = FALSE Then
            'Exception
            Debug
        End If
    End Sub

    Function CreationTime() As DateTime
        Return DateTime.FromFileTime(m_CreationTime)
    End Function

    Sub CreationTime(ByRef value As DateTime)
        m_CreationTime = value.ToFileTimeUtc()
        If setFileTime() = False Then
            'Exception
            debug
        End If
    End Sub

    Function CreationTimeUtc() As DateTime
        Dim date = CreationTime As DateTime
        Return date.ToUniversalTime()
    End Function

    Sub CreationTimeUtc(ByRef value As DateTime)
        CreationTime = value
    End Sub

    Function LastAccessTime() As DateTime
        Return DateTime.FromFileTime(m_LastAccessTime)
    End Function

    Sub LastAccessTime(ByRef value As DateTime)
        m_LastAccessTime = value.ToFileTimeUtc()
        If setFileTime() = False Then
            'Exception
            debug
        End If
    End Sub

    Function LastAccessTimeUtc() As DateTime
        Dim date = LastAccessTime As DateTime
        Return date.ToUniversalTime()
    End Function

    Sub LastAccessTimeUtc(ByRef value As DateTime)
        LastAccessTime = value
    End Sub

    Function LastWriteTime() As DateTime
        Return DateTime.FromFileTime(m_LastWriteTime)
    End Function

    Sub LastWriteTime(ByRef value As DateTime)
        m_LastWriteTime = value.ToFileTimeUtc()
        If setFileTime() = False Then
            'Exception
            debug
        End If
    End Sub

    Function LastWriteTimeUtc() As DateTime
        Dim date = LastWriteTime As DateTime
        Return date.ToUniversalTime()
    End Function

    Sub LastWriteTimeUtc(ByRef value As DateTime)
        LastWriteTime = value
    End Sub

    Function Exists() As Boolean
        If m_FileAttributes = 0 Then
            Return False
        Else
            Return True
        End If
    End Function

    Function Extension() As String
        Return Path.GetExtension(FullPath)
    End Function

    Function FullName() As String
        Return FullPath
    End Function

    Function Name() As String
        Return Path.GetFileName(FullPath)
    End Function

    'Public Methods
    Virtual Sub Delete()
        If DeleteFile(FullPath) = FALSE Then
            'Exception
            debug
        End If
    End Sub

    Virtual Sub Refresh()
        Dim data As WIN32_FIND_DATA
        Dim hFind = FindFirstFile(ToTCStr(FullPath), data)
        FindClose(hFind)

        m_FileAttributes = data.dwFileAttributes
        m_CreationTime = data.ftCreationTime
        m_LastAccessTime = data.ftLastAccessTime
        m_LastWriteTime = data.ftLastWriteTime
    End Sub

Private
    Function setFileTime() As Boolean
        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
            setFileTime = False
            Exit Function
        End If

        If SetFileTime(hFile, m_CreationTime, m_LastAccessTime, m_LastWriteTime) Then
            setFileTime = True
        Else
            setFileTime = False
        End If

        CloseHandle(hFile)
    End Function
End Class


End Namespace
End Namespace