Changeset 285 for Include/Classes/System/IO

Timestamp:

Jul 26, 2007, 5:43:54 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

wtypes.abを追加

Location:

Include/Classes/System/IO

Files:

• DirectoryInfo.ab (modified) (2 diffs)
• DriveInfo.ab (modified) (2 diffs)
• Path.ab (modified) (1 diff)

Include/Classes/System/IO/DirectoryInfo.ab

@@ -45 +45 @@
 
             ' 終端の '\' を除去
-            If dirPath[dirPath.Length-1] = Asc("\\") Then
-                dirPath = dirPath.SubString(0, dirPath.Length-1)
+            If dirPath[dirPath.Length-1] = Asc("\") Then
+                dirPath = dirPath.Substring(0, dirPath.Length-1)
             End If
 
@@ -55 +55 @@
             op.hwnd = NULL
             op.wFunc = FO_DELETE
-            op.pFrom = dirPath.Chars
+            op.pFrom = ToTCStr(dirPath)
             op.pTo = NULL
             op.fFlags = FOF_NOCONFIRMATION or FOF_NOERRORUI or FOF_SILENT

Include/Classes/System/IO/DriveInfo.ab

@@ -40 +40 @@
     Function DriveFormat() As String
         Dim systemName[15] As TCHAR
-        If GetVolumeInformation(m_DriveName, NULL, NULL, NULL, NULL, NULL, systemName, Len (systemName)) Then
+        If GetVolumeInformation(m_DriveName, NULL, 0, NULL, NULL, NULL, systemName, Len (systemName)) Then
             Return systemName
         Else
@@ -52 +52 @@
 
     Function IsReady() As Boolean
-        If GetVolumeInformation(m_DriveName, NULL, NULL, NULL, NULL, NULL, NULL, NULL) Then
+        If GetVolumeInformation(m_DriveName, NULL, 0, NULL, NULL, NULL, NULL, 0) Then
             Return True
         Else

Include/Classes/System/IO/Path.ab

@@ -72 +72 @@
 
         Dim tempFileName[ELM(MAX_PATH)] As TCHAR
-        __GetTempFileName(tempPath, "ABT", 0, tempFileName)
-        free(tempPath)
-        Return tempFileName
+        Dim len = __GetTempFileName(tempPath, "ABT", 0, tempFileName)
+        _System_free(tempPath)
+        Return New String(tempFileName, len As Long)
     End Function