Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
17 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 17 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

Os nossos membros postaram um total de 48 mensagens em 25 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
avatar
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