Index: /trunk/ab5.0/ablib/src/Classes/System/Environment.ab
===================================================================
--- /trunk/ab5.0/ablib/src/Classes/System/Environment.ab	(revision 666)
+++ /trunk/ab5.0/ablib/src/Classes/System/Environment.ab	(revision 667)
@@ -181,5 +181,5 @@
 	@brief	コンピュータの論理ドライブの名前を格納している文字列の配列を取得
 	@author	NoWest
-	@date	2008/10/29
+	@date	2008/12/28
 	*/
 	Static Function GetLogicalDrives() As System.Collections.Generic.IList<String>
@@ -195,9 +195,5 @@
 			Return ret
 		End If
-#ifdef UNICODE
-		Dim strbuf = New System.String( buf As PCWSTR, length As Long )
-#else
-		Dim strbuf = New System.String( buf As PCSTR, length As Long )
-#endif
+		Dim strbuf = New System.String( buf As PCTSTR, length As Long )
 		Dim startpos = 0 As Long
 		length = 3