не работает FileFindFirstFile с сокращением имени файла

Local $ch = 0, $bish = 0
Local $ad = @ScriptDir & "\base0\txt\"
$search = FileFindFirstFile($ad & '*.txt')
If $search = -1 Then
    MsgBox(0, "Error", "Нет файлов / каталогов не соответствует шаблон поиска")
    Exit
EndIf

Do
    $ch += 1
    $file = FileFindNextFile($search)
    If $file <> 0 Then
    $bish += 1
    ElseIf $file = 0 Then
    $ch = 100
    EndIf
Until $ch = 100

MsgBox(4096, " ", $bish)

FileClose($search) ; Закройте хэндл поиска

$search = FileFindFirstFile($ad & '*.txt')

FileChangeDir($ad)
$search = FileFindFirstFile("*.txt")

Local $ch = 0, $bish = 0
Local $ad = @ScriptDir & "\base0\txt\"
$search = FileFindFirstFile($ad & '*.txt')
If $search = -1 Then
    MsgBox(0, "Error", "Нет файлов / каталогов не соответствует шаблон поиска")
    Exit
EndIf

Do
    $ch += 1
    $file = FileFindNextFile($search)
	If $file <> "" Then
    $bish += 1
    ElseIf $file == "" Then
        $ch = 100
    EndIf
Until $ch = 100

MsgBox(4096, " ", $bish)

FileClose($search) ; Закройте хэндл поиска