Lembrando que vai ser só pra XP, por não ter o mesmo recurso do W10.
Falta testar nele.
#include "directry.ch"
#include "inkey.ch"
PROCEDURE HLPESQDOCXP
LOCAL cFile, cPath, cTexto := Space(50), GetList := {}
cPath := "d:\temp\Documentos Locação\Fotos Imóveis\Fotos Imóveis\"
DO WHILE .T.
@ 2, 5 SAY "Texto a pesquisar:" GET cTexto PICTURE "@!"
READ
IF LastKey() == K_ESC
EXIT
ENDIF
cFile := win_GetOpenFileName(, "Foto", cPath, "Foto", "*" + Trim( cTexto ) + "*", 1 )
ENDDO
RETURN
Acredito que possa ser problema de codepage, e talvez renomear pastas funcione também.