Changeset 288 for Include/Classes/System/IO/DriveInfo.ab

Timestamp:

Aug 15, 2007, 3:22:33 AM (18 years ago)

Author:

dai

Message:

いくつかタイプミスを修正。
エラーになるコードを排除、
enumクラスのビット演算メソッドをコメントアウト（仕様未確定なため）。

File:

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

Include/Classes/System/IO/DriveInfo.ab

@@ -41 +41 @@
         Dim systemName[15] As TCHAR
         If GetVolumeInformation(m_DriveName, NULL, 0, NULL, NULL, NULL, systemName, Len (systemName)) Then
-            Return systemName
+            Dim resultStr = New String( systemName )
+            Return resultStr
         Else
             'IOException
@@ -85 +86 @@
 
     Function VolumeLabel() As String
-        Dim volumeName[63] As TCAHR
-        If GetVolumeInformation(m_DriveName, volumeName, 64, NULL, NULL, NULL, NULL, NULL) Then
-            Return volumeName
+        Dim volumeName[63] As TCHAR
+        If GetVolumeInformation(m_DriveName, volumeName, 64, NULL, NULL, NULL, NULL, 0) Then
+            Dim resultStr = New String( volumeName )
+            Return resultStr
         Else
             'IOException