source: Include/Classes/System/IO/FileSystemInfo.ab@ 83

Class FileSystemInfo
Protected
    FullPath As String
    OriginalPath As String
Public
    'Public Properties
    Function Attributes() As FileAttributes
        Dim data As WIN32_FIND_DATA
        If getFindFile(data) = False Then
            'Exception
            Debug
            Exit Function
        End If
        Select Case data.dwFileAttributes
            Case FILE_ATTRIBUTE_ARCHIVE
                Return Archive
            Case FILE_ATTRIBUTE_COMPRESSED
                Return Compressed
            Case FILE_ATTRIBUTE_DIRECTORY
                Return Directory
            Case FILE_ATTRIBUTE_ENCRYPTED
                Return Encrypted
            Case FILE_ATTRIBUTE_HIDDEN
                Return Hidden
            Case FILE_ATTRIBUTE_NORMAL
                Return Normal
            Case FILE_ATTRIBUTE_OFFLINE
                Return Offline
            Case FILE_ATTRIBUTE_READONLY
                Return ReadOnly
            Case FILE_ATTRIBUTE_REPARSE_POINT
                Return ReparsePoint
            Case FILE_ATTRIBUTE_SPARSE_FILE
                Return SparseFile
            Case FILE_ATTRIBUTE_SYSTEM
                Return System
            Case FILE_ATTRIBUTE_TEMPORARY
                Return 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 Archive
                attributes = FILE_ATTRIBUTE_ARCHIVE
            Case Compressed
                attributes = FILE_ATTRIBUTE_COMPRESSED
            Case Directory
                attributes = FILE_ATTRIBUTE_DIRECTORY
            Case Hidden
                attributes = FILE_ATTRIBUTE_HIDDEN
            Case Normal
                attributes = FILE_ATTRIBUTE_NORMAL
            Case Offline
                attributes = FILE_ATTRIBUTE_OFFLINE
            Case ReadOnly
                attributes = FILE_ATTRIBUTE_READONLY
            Case System
                attributes = FILE_ATTRIBUTE_SYSTEM
            Case 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
        Dim data As WIN32_FIND_DATA
        If getFindFile(data) = False Then
            'Exception
            Debug
        End If
        Return DateTime.FromFileTime(data.ftCreationTime)
    End Function

    Sub CreationTime(ByRef value As DateTime)
        If setFileTime(_CreationTime, value) = 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
        Dim data As WIN32_FIND_DATA
        If getFindFile(data) = False Then
            'Exception
            Debug
        End If
        Return DateTime.FromFileTime(data.ftLastAccessTime)
    End Function

    Sub LastAccessTime(ByRef value As DateTime)
        If setFileTime(_LastAccessTime, value) = 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
        Dim data As WIN32_FIND_DATA
        If getFindFile(data) = False Then
            'Exception
            Debug
        End If
        Return DateTime.FromFileTime(data.ftLastWriteTime)
    End Function

    Sub LastWriteTime(ByRef value As DateTime)
        If setFileTime(_LastWriteTime, value) = 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
        Dim data As WIN32_FIND_DATA
        Return getFindFile(data)
    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

    '未実装
    Sub Refresh()
    End Sub

Private
    Function getFindFile(ByRef data As WIN32_FIND_DATA) As Boolean
        Dim hFind As HANDLE
        hFind = FindFirstFile(FullPath, data)
        If hFind = INVALID_HANDLE_VALUE Then
            Return False
        Else
            CloseHandle(hFind)
            Return True
        End If
    End Function

    '任意のファイル日時を変更する。flagsに、どの日時を変更するかを指定する。
    Function setFileTime(flags As _FileTimeType, ByRef value As DateTime) As Boolean
        Dim hFile As HANDLE
        hFile = CreateFile(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

        Dim fileTime As FILETIME
        Dim results As Long
        fileTime = value.ToFileTimeUtc()
        Select Case flags
            Case _CreationTime
                results = SetFileTime(hFile, fileTime, ByVal 0, ByVal 0)
            Case _LastAccessTime
                results = SetFileTime(hFile, ByVal 0, fileTime, ByVal 0)
            Case _LastWriteTime
                results = SetFileTime(hFile, ByVal 0, ByVal 0, fileTime)
        End Select
        CloseHandle(hFile)

        If results Then
            Return True
        Else
            Return False
        End If
    End Function
End Class

Const Enum _FileTimeType
    _CreationTime
    _LastAccessTime
    _LastWriteTime
End Enum