source: trunk/Include/Classes/System/IO/FileInfo.ab@ 466

Namespace System
Namespace IO


Class FileInfo
    Inherits FileSystemInfo
Public
    Sub FileInfo(path As String)
        OriginalPath = path
        FullPath = Path.GetFullPath(path)
    End Sub

    Sub ~FileInfo()
    End Sub

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

    Function Directory() As DirectoryInfo
        Return New DirectoryInfo(Path.GetDirectoryName(FullPath))
    End Function

    Function DirectoryName() As String
        Return Path.GetDirectoryName(FullPath)
    End Function

    Function IsReadOnly() As Boolean
        If (Attributes and FileAttributes.ReadOnly) = FileAttributes.ReadOnly Then
            Return True
        Else
            Return False
        End If
    End Function

    Function Length() As QWord
        Dim hFile = CreateFile(ToTCStr(FullPath), GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
        If hFile = INVALID_HANDLE_VALUE Then
            Throw New IOException("FileInfo.Length: Failed to CreateFile.")
            Exit Function
        End If

        Dim length As QWord
        If GetFileSizeEx(hFile, VarPtr(length)) Then
            CloseHandle(hFile)
            Return length
        Else
            CloseHandle(hFile)
            Throw New IOException("FileInfo.Length: Failed to GetFileSize")
        End If
    End Function

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

/*  Function AppendText() As StreamWriter
    End Function*/

    Function CopyTo(destFileName As String) As FileInfo
        Return CopyTo(destFileName, False)
    End Function

    Function CopyTo(destFileName As String, overwrite As Boolean) As FileInfo
        File.Copy(FullPath, destFileName, overwrite)
        Return New FileInfo(destFileName)
    End Function

    Function Create() As FileStream
        Return File.Create(FullPath)
    End Function

/*  Function CreateText() As StreamWriter
    End Function*/

/*  Sub Decrypt()
    End Sub*/

    Override Sub Delete()
        File.Delete(FullPath)
    End Sub

/*  Sub Encrypt()
    End Sub*/

/*  Function GetAccessControl() As FileSecurity
    End Function*/

/*  Function GetAccessControl(includeSections As AccessControlSections) As FileScurity
    End Function*/

    Sub MoveTo(destFileName As String)
        File.Move(FullPath, destFileName)
    End Sub

    Function Open(mode As FileMode) As FileStream
        Return New FileStream(FullPath, mode)
    End Function

    Function Open(mode As FileMode, access As FileAccess) As FileStream
        Return New FileStream(FullPath, mode, access)
    End Function

    Function Open(mode As FileMode, access As FileAccess, share As FileShare ) As FileStream
        Return New FileStream(FullPath, mode, access, share)
    End Function

    Function OpenRead() As FileStream
        Return Open(FileMode.Open, FileAccess.Read, FileShare.Read)
    End Function

    Function OpenText() As StreamReader
        Return New StreamReader(FullPath)
    End Function

    Function OpenWrite() As FileStream
        Return Open(FileMode.Open, FileAccess.Write)
    End Function

/*  Function Replace(destinationFileName As String, destinationBackupFileName As String) As FileInfo
    End Function*/

/*  Function Replace(destinationFileName As String, destinationBackupFileName As String, ignoreMetadataErrors As Boolean) As FileInfo
    End Function*/

/*  Sub SetAccessControl(fileSecurity As FileSecurity)
    End Sub*/

    Override Function ToString() As String
        Return FullPath
    End Function

End Class


End Namespace
End Namespace