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

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

File:

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

Include/Classes/System/IO/FileSystemInfo.ab

@@ -167 +167 @@
     Virtual Sub Refresh()
         Dim data As WIN32_FIND_DATA
-        Dim hFind As HANDLE
-        hFind = FindFirstFile(FullPath, data)
+        Dim hFind = FindFirstFile(ToTCStr(FullPath), data)
         FindClose(hFind)
 
@@ -179 +178 @@
 Private
     Function setFileTime() As Boolean
-        Dim hFile As HANDLE
-        hFile = CreateFile(FullPath, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0)
+        Dim hFile = CreateFile(ToTCStr(FullPath), GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0)
         If hFile = INVALID_HANDLE_VALUE Then
             setFileTime = False