Changeset 318 for trunk/Include/Classes/System/IO/FileInfo.ab

Timestamp:

Aug 28, 2007, 9:16:10 PM (17 years ago)

Author:

OverTaker

Message:

DirectoryInfo.GetFileSystemInfos()中心に色々と...

File:

• trunk/Include/Classes/System/IO/FileInfo.ab (modified) (1 diff)

trunk/Include/Classes/System/IO/FileInfo.ab

@@ -4 +4 @@
 
 Class FileInfo
+    Inherits FileSystemInfo
+Public
+    Sub FileInfo(path As String)
+        OriginalPath = path
+        FullPath = Path.GetFullPath(path)
+        Refresh()
+    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 FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
 End Class
+