According to the documentation, the Dir command should include dirs and files 
if requested. If you include directories, then files are NOT returned!


As taken from the help file:


Sub ExampleDir
	REM Displays all files and directories
	Dim sFile as String, sPath As String
	Dim sDir as String, sValue as String
	Dim iFIle as Integer
	sFile= "Files: "
	sDir="Directories:"
	iFile = 0
	sPath = CurDir
	Rem  0 : Normal files.
	Rem  2 : Hidden files.
	Rem  4 : System files.
	Rem  8 : Returns the name of the volume
	Rem 16 : Returns the name of the directory only.
	sValue = Dir$(sPath, 0 + 2 + 4 + 16) REM 16 + 2 + 4
	'sValue = Dir$(sPath, 22) REM 16 + 2 + 4
	Do
		If sValue <> "." and sValue <> ".." Then
			If (GetAttr( sPath + getPathSeparator() + sValue) AND 
16) > 0 Then
				REM here the directories
				sDir = sDir & chr(13) & sValue
			Else
				REM here the files
				If iFile Mod 3 = 0 Then sFile = sFile + Chr(13)
				iFile = iFile + 1
				sFile = sFile + sValue &"; "
			End If
		End If
		sValue = Dir$
	Loop Until sValue = ""
	MsgBox sDir,0,sPath
	MsgBox "" & iFile & " " & sFile,0,sPath
End sub