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

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

    '----------------------------------------------------------------
    ' Public properties
    '----------------------------------------------------------------

    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
End Class



End Namespace
End Namespace