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

Timestamp:

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

Author:

イグトランス (egtra)

Message:

wtypes.abを追加

File:

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

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