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

Timestamp:

Mar 8, 2008, 7:33:08 PM (16 years ago)

Author:

OverTaker

Message:

File.ab,FileInfo.abをそれなりに実装

File:

• trunk/Include/Classes/System/IO/FileInfo.ab (modified) (2 diffs)

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

@@ -15 +15 @@
 
     '----------------------------------------------------------------
-    ' Public properties
+    ' パブリック　プロパティ
     '----------------------------------------------------------------
 
@@ -33 +33 @@
         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
-