Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
6 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 6 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Rota de um arquivo

15/12/2016, 22:28 por Martins

Agradeço ajuda para o seguinte:
como guardar numa variável, um caminho ou rota,por exemplo


Comentários: 3

Estatísticas
Temos 6986 usuários registrados
O último usuário registrado atende pelo nome de carlosdantasf

Os nossos usuários postaram um total de 1 mensagem em 1 assuntos

TRANSFORMAR ESTA FUNÇÃO PARA VFP90

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Em curso TRANSFORMAR ESTA FUNÇÃO PARA VFP90

Mensagem por AJC em 19/9/2013, 16:01

Boa tarde pessoal , estou precisando transformar esta funcao de pesquisa de vb para visual foxpro 9,0, alguem poderia me ajudar?

Antonio


Código:
Private Declare Function apiSearchTreeForFile Lib "imagehlp" Alias "SearchTreeForFile" _
(ByVal RootPath As String, _
ByVal InputPathName As String, _
ByVal OutputBuffer As String) As Long

Private Const MAX_PATH = 260

Function ProcuraFicheiros(strFile As String, Optional varPath As Variant) As String
'Função para retornar o local de um arquivo, pelo nome, procurando em profundidade
'strFile - O nome do arquivo a ser encontrado, exemplo ProcuraFicheiros("teste.txt")
'varPath (Opcional) - o caminho para começar a procurar o arquivo, exemplo ProcuraFicheiros("teste.txt","C:")
Dim strRetorna As String
Dim strEncontrado As Long
If IsMissing(varPath) Then varPath = "C:" 'Drive por defeito para a procura, mas procura em todas as existentes
strRetorna = String(MAX_PATH, 0)
strEncontrado = apiSearchTreeForFile(varPath, strFile, strRetorna)
If strEncontrado <> 0 Then
ProcuraFicheiros = Left(strRetorna, InStr(strRetorna, Chr(0)) - 1)
End If
End Function

AJC
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Em curso Re: TRANSFORMAR ESTA FUNÇÃO PARA VFP90

Mensagem por Marcos Guedes em 23/9/2013, 23:37

AJC, seria mais ou menos o seguinte, mas confesso que não vi utilidade no código. (Certamente está faltando alguma coisa):

Código:
FUNCTION apisearchtreeforfile AS LONG
   LPARAMETERS ;
      rootpath AS STRING ,;
      inputpathname AS STRING,;
      outputbuffer AS STRING

   LOCAL max_path AS INTEGER
   m.max_path= 260

ENDFUNC


FUNCTION procuraficheiros AS STRING
   LPARAMETERS ;
      strfile AS STRING, ;
      optional varpath AS variant

   * função para retornar o local de um arquivo, pelo nome, procurando em profundidade'
   * strfile - o nome do arquivo a ser encontrado, exemplo procuraficheiros("teste.txt")'
   * varpath (opcional) - o caminho para começar a procurar o arquivo, exemplo procuraficheiros("teste.txt","c:")'
   LOCAL strretorna AS STRING
   LOCAL strencontrado AS LONG

   IF ismissing(varpath) THEN
      *Drive por defeito para a procura, mas procura em todas as existentes
      varpath = "C:"
      strretorna = STRING(max_path, 0)

      strencontrado = apisearchtreeforfile(varpath, strfile, strretorna)

      IF strencontrado <> 0 THEN
         procuraficheiros = LEFT(strretorna, INSTR(strretorna, CHR(0)) - 1)
      ENDIF
   ENDIF
ENDFUNC

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum