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

Last change on this file since 345 was 345, checked in by OverTaker, 17 years ago

GetFileSystemInfos実装完了。他ちょっとした修整

File size: 819 bytes
Line 
1Namespace System
2Namespace IO
3
4
5Class FileInfo
6 Inherits FileSystemInfo
7Public
8 Sub FileInfo(path As String)
9 OriginalPath = path
10 FullPath = Path.GetFullPath(path)
11 End Sub
12
13 Sub ~FileInfo()
14 End Sub
15
16 '----------------------------------------------------------------
17 ' Public properties
18 '----------------------------------------------------------------
19
20 Function Directory() As DirectoryInfo
21 Return New DirectoryInfo(Path.GetDirectoryName(FullPath))
22 End Function
23
24 Function DirectoryName() As String
25 Return Path.GetDirectoryName(FullPath)
26 End Function
27
28 Function IsReadOnly() As Boolean
29 If (Attributes And FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY Then
30 Return True
31 Else
32 Return False
33 End If
34 End Function
35End Class
36
37
38
39End Namespace
40End Namespace
Note: See TracBrowser for help on using the repository browser.