Index: trunk/Include/Classes/System/IO/DirectoryInfo.ab
===================================================================
--- trunk/Include/Classes/System/IO/DirectoryInfo.ab	(revision 325)
+++ trunk/Include/Classes/System/IO/DirectoryInfo.ab	(revision 326)
@@ -139,5 +139,5 @@
 		Dim find As HANDLE
 		Dim findData As WIN32_FIND_DATA
-		find = FindFirstFile("?*", findData)
+		find = FindFirstFile(Path.Combine(FullPath, searchPattern), findData)
 		If find = INVALID_HANDLE_VALUE Then
 			debug 'Exception