source: branch/egtra-gdiplus/Classes/System/IO/FileSystemInfo.ab@ 711

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
    'Public Properties
    Function Attributes() As FileAttributes
        Select Case m_FileAttributes
            Case FILE_ATTRIBUTE_ARCHIVE
                Return FileAttributes.Archive
            Case FILE_ATTRIBUTE_COMPRESSED
                Return FileAttributes.Compressed
            Case FILE_ATTRIBUTE_DIRECTORY
                Return FileAttributes.Directory
            Case FILE_ATTRIBUTE_ENCRYPTED
                Return FileAttributes.Encrypted
            Case FILE_ATTRIBUTE_HIDDEN
                Return FileAttributes.Hidden
            Case FILE_ATTRIBUTE_NORMAL
                Return FileAttributes.Normal
            Case FILE_ATTRIBUTE_OFFLINE
                Return FileAttributes.Offline
            Case FILE_ATTRIBUTE_READONLY
                Return FileAttributes.ReadOnly
            Case FILE_ATTRIBUTE_REPARSE_POINT
                Return FileAttributes.ReparsePoint
            Case FILE_ATTRIBUTE_SPARSE_FILE
                Return FileAttributes.SparseFile
            Case FILE_ATTRIBUTE_SYSTEM
                Return FileAttributes.System
            Case FILE_ATTRIBUTE_TEMPORARY
                Return FileAttributes.Temporary
            Case Else
                'Exception
                Debug
                Return 0
        End Select
    End Function

    Sub Attributes(ByRef value As FileAttributes)
        Dim attributes As DWord
        Select Case value
            Case FileAttributes.Archive
                attributes = FILE_ATTRIBUTE_ARCHIVE
            Case FileAttributes.Compressed
                attributes = FILE_ATTRIBUTE_COMPRESSED
            Case FileAttributes.Directory
                attributes = FILE_ATTRIBUTE_DIRECTORY
            Case FileAttributes.Hidden
                attributes = FILE_ATTRIBUTE_HIDDEN
            Case FileAttributes.Normal
                attributes = FILE_ATTRIBUTE_NORMAL
            Case FileAttributes.Offline
                attributes = FILE_ATTRIBUTE_OFFLINE
            Case FileAttributes.ReadOnly
                attributes = FILE_ATTRIBUTE_READONLY
            Case FileAttributes.System
                attributes = FILE_ATTRIBUTE_SYSTEM
            Case FileAttributes.Temporary
                attributes = FILE_ATTRIBUTE_TEMPORARY
            Case Else
                'Exception
                Exit Sub
        End Select

        If SetFileAttributes(FullPath, attributes) = 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