Procurar por um Arquivo no Computador e Retorna uma Lista de Resultados

[mfelis]

Gostaria de uma função que, fosse igual ao pesquisar do Windows Explorer:

[Você precisa estar registrado e conectado para ver esta imagem.]

Que eu digite uma palavra e ele procura nas pastas do computador e vai enumerando os resultados, e criando uma lista, ou termos como "*.exe" e ele procurar tudo que tiver a extensão EXE, entendeu?

[hugo]

interessante mfelis

tenho notado que voce vem buscando a interatividade
do vfp com o windows, observando a maioria dos teus posts

muito bom cara, geralmente a galera nao explora isto

com certeza vai ser muito util

parabens

obs. nao tenho conhecimento no vfp para isto, no dos eu daria
um dir c:\*.* /s > teste.txt e depois faria um append (filtrado)
para um dbf

mais seira algo lento e bem porco pro Vfp ( acho )

valeu

[mfelis]

é concorda seria muito lento alem de ele não pegar os subdirectorios, eu gosto de esporar e mostar que apesar do FoxPro não teve continuidade ele pode ser muito poderoso se utilizado de maneira certa!

[Marcos Guedes]

Veja se isto lhe dá uma luz:

Código:

DECLARE INTEGER SearchPath IN kernel32;
   STRING lpPath, STRING lpFileName, STRING lpExtension,;
   INTEGER nBufLen, STRING @lpBuffer,INTEGER @lpFilePart

CLEAR
= gosearch("*.exe")
= GoSearch("Vfp6.exe")
= GoSearch("foxuser.dbf")
= GoSearch("mapi32.dll")
= GoSearch("comdlg32.dll")
= GoSearch("win.ini")
= GoSearch("system.ini")
= GoSearch("calc.exe")
= GoSearch("notepad.exe")
= GoSearch("winzip32.exe")

PROCEDURE gosearch (lcfilename)
   LOCAL lcbuffer, lnfilepart, lnresult
   lcbuffer = REPLI(CHR(0), 250)
   lnfilepart = 0

   * setting the search path to null makes the function
   * looking through a set of basic directories
   * check the SearchPath description for the list

   lnresult = searchpath(NULL, lcfilename, .NULL.,;
      LEN(lcbuffer), @lcbuffer, @lnfilepart)

   IF lnresult > 0
      ? "Search result:", LEFT(lcbuffer, lnresult)
   ELSE
      ? lcfilename + ": not found"
   ENDIF
ENDPROC

Fonte: (Copie e cole em seu navegador)
news2news.com/vfp/index.php?example=250

[mfelis]

Só procura´pelo arquivo já tentei colocar *.exe e não funciona e tb nenhuma palavra chave

[Marcos Guedes]

Estou lhe mostrando uma luz, e não uma solução.


Se achar mais algo, posto aqui.

[mfelis]

OK!. so flw que já vi este codigo

[mfelis]

Achei a Solução aqui tem um exemplo que trabalha com o WDS, do Windows e faz exatamente oq eu querro!
[Você precisa estar registrado e conectado para ver este link.]

[hugo]

posso alterar o status para resolvido?

[mfelis]

sim!