Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
21 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 21 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
Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Tudo dá errado

3/2/2017, 16:50 por Douglas Pascini

Troquei de maquina, achei que seria uma boa, [Você precisa estar registrado e conectado para ver esta imagem.]  pois passei para uma maquina melhor.

Instalei o …

Comentários: 1

URGENTE - Instalação do aplicativo

24/1/2017, 08:51 por Douglas Pascini

Bom dia. Estou com um problema, ao fazer a instalação (colocar os arquivo) do aplicativo na …

Comentários: 0

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: 3

Estatísticas
Temos 7018 usuários registrados
O último usuário registrado atende pelo nome de Marcos Souza

Os nossos membros postaram um total de 21 mensagens em 12 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