Changeset 142 for Include/Classes/System/IO/DirectoryInfo.ab

Timestamp:

Mar 9, 2007, 10:15:34 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Environment, OperatingSystem, Versionの追加、Unicode対応修正ほか

File:

• Include/Classes/System/IO/DirectoryInfo.ab (modified) (5 diffs)

Include/Classes/System/IO/DirectoryInfo.ab

@@ -18 +18 @@
 
     Function Root() As DirectoryInfo
-        Dim dirInfo as DirectoryInfo(Path.GetPathRoot(FullPath))
+        Dim dirInfo As DirectoryInfo(Path.GetPathRoot(FullPath))
         Return dirInfo
     End Function
@@ -24 +24 @@
     'Public Method
     Sub Create()
-        CreateDirectory(FullPath, NULL)
+        CreateDirectory(ToTCStr(FullPath), NULL)
     End Sub
 
@@ -31 +31 @@
 
     Override Sub Delete()
-        RemoveDirectory(FullPath)
+        RemoveDirectory(ToTCStr(FullPath))
     End Sub
 
@@ -54 +54 @@
 /*  Function GetFiles() As Array
     End Function*/
-    
+
 /*  Function GetFiles(searchPattern As String) As Array
     End Function*/
-    
+
 /*  Function GetFiles(searchPattern As String, searchOption As SearchOption) As Array
     End Function*/
@@ -68 +68 @@
 
     Sub MoveTo(destDirName As String)
-        If MoveFile(FullPath, destDirName) = False Then
+        If MoveFile(ToTCStr(FullPath), ToTCStr(destDirName)) = FALSE Then
             'Exception
         End If