I'm having trouble with StringInStr() right now, and I'm not sure really what the problem is:
Does with work for you?
_FillListView()
Func _FillListView()
$GetItems = _FileListToArray(@DesktopDir)
For $I = 1 To $GetItems[0]
If StringInStr($GetItems[$I], ".") = 1 Then Beep(8000, 100)
Next
EndFunc
Func _FileListToArray($Path, $Filter = "*")
Local $Search, $File, $FileList[1]
$Search = FileFindFirstFile($Path & "\" & $Filter)
While 1
$File = FileFindNextFile($Search)
If @error Then ExitLoop
ReDim $FileList[UBound($FileList) + 1]
$FileList[0] += 1
$FileList[UBound($FileList) - 1] = $File
WEnd
FileClose($Search)
Return $FileList
EndFunc ;==>_FileListToArray