Index: trunk/Include/Classes/System/IO/DirectoryInfo.ab
===================================================================
--- trunk/Include/Classes/System/IO/DirectoryInfo.ab	(revision 321)
+++ trunk/Include/Classes/System/IO/DirectoryInfo.ab	(revision 325)
@@ -92,5 +92,5 @@
 	End Function
 
-/*	Function GetDirectories(searchPattern As String, searchOption As SearchOption) As List<DirectoryInfo>
+	Function GetDirectories(searchPattern As String, searchOption As SearchOption) As List<DirectoryInfo>
 		If searchOption = SearchOption.TopDirectoryOnly Then
 			Return GetDirectories(searchPattern)
@@ -109,5 +109,5 @@
 			Return dirs
 		End If
-	End Function*/
+	End Function
 
 	Function GetFiles() As List<FileInfo>
@@ -139,5 +139,5 @@
 		Dim find As HANDLE
 		Dim findData As WIN32_FIND_DATA
-		find = FindFirstFile(ToTCStr(Path.Combine(FullPath, searchPattern)), findData)
+		find = FindFirstFile("?*", findData)
 		If find = INVALID_HANDLE_VALUE Then
 			debug 'Exception
@@ -146,5 +146,5 @@
 
 		Dim files As List<FileSystemInfo>
-		Dim lastError = GetLastError() As DWord
+		Dim lastError As DWord
 		Dim i As Long
 		While lastError <> ERROR_NO_MORE_FILES