Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
12 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 12 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 7021 usuários registrados
O último usuário registrado atende pelo nome de diegopeixoto

Os nossos membros postaram um total de 21 mensagens em 12 assuntos

Arquivos de Pasta

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

Arquivos de Pasta

Mensagem por Rosangela Pires em 6/5/2015, 23:55

Amigos,

Como visualizo os arquivos de uma pasta sem utilizar o GetFile.
A finalidade é somente mostrar os arquivos da pasta.

Rosangela

Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Re: Arquivos de Pasta

Mensagem por Julio em 7/5/2015, 09:01

Rosângela, bom dia!

Utilizo este código em uma guia de uma grid no Activate:
Código:
SET PROCEDURE TO procedimento

LOCAL m.diretorios AS STRING
*!* Lê os arquivos contidos na unidade C:\
m.diretorios = filesinfolder("C:\SISCOPAS\BACKUP")
SELECT(m.diretorios)
GO TOP

LOCAL vncod
SELECT(m.diretorios)

SCAN
 popular=SUBSTR(filename,1,50) + ".....*....." + DTOC(dateltmodified);
    + ".....*....." + timeltmodified
 *Thisform.List1.AddItem(popular)
 Thisform.Pageframe1.Page3.List1.AddItem(popular)
ENDSCAN

USE IN SELECT(m.diretorios)

RETURN

E utilizo este código no meu arquivo de procedimentos/funções:
Código:
*!* Lista conteudo da pasta c:\siscopas\backup no form copiabckrest.scx
FUNCTION filesinfolder AS COLLECTION
   * It returns all files, contained in a paste.
   LPARAMETERS cpath AS STRING

   LOCAL pathdefault AS STRING
   LOCAL totalfiles AS INTEGER
   LOCAL counter AS INTEGER
   LOCAL nomecursor AS STRING

   m.cpath = IIF(EMPTY(m.cpath), "", ADDBS(m.cpath))
   m.pathdefault = SYS(5)+CURDIR()
   m.totalfiles = 0
   m.nomecursor = SYS(2015) && Nome do cursor que armazenará os arquivos

   CREATE CURSOR (m.nomecursor) (filename c(254), filesize i(4), dateltmodified d(8), timeltmodified c(10), fileattributes c(1))

   IF DIRECTORY(m.cpath) THEN
      CHDIR (m.cpath)
      m.totalfiles = ADIR(myfiles, "*.*","D")

      FOR m.counter = 1 TO m.totalfiles
         INSERT INTO (m.nomecursor) VALUES ;
            (myfiles[m.counter, 1], myfiles[m.counter, 2], myfiles[m.counter, 3], ;
            myfiles[m.counter, 4], STRTRAN(myfiles[m.counter, 5], ".", ""))
      ENDFOR

      SET DEFAULT TO (m.pathdefault)
   ENDIF

   RETURN m.nomecursor
ENDFUNC
*!*

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Re: Arquivos de Pasta

Mensagem por Rosangela Pires em 7/5/2015, 14:54

Amigo Julio,

Sua rotina funciona perfeitamente. Testei e vou usar em projetos.
Contudo, esqueci de mencionar que alem de visualizar tambem preciso
ao clicar no arquivo selecionado visualizar seu conteudo.
Como por exemplo um arquivo Texto. Quero após criar o arquivo Texto abri-lo para editar.

Rosangela

Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Re: Arquivos de Pasta

Mensagem por Rosangela Pires em 8/5/2015, 00:22

Amigos,
Pesquisando na internet encontrei o código que resolveu meu problema:

Código:
DECLARE INTEGER ShellExecute IN shell32.dll ;
  INTEGER hndWin, ;
  STRING cAction, ;
  STRING cFileName, ;
  STRING cParams, ;  
  STRING cDir, ;
  INTEGER nShowWin
cFileName = "d:\MyDocs\Chase.Doc"
cAction = "open"
ShellExecute(0,cAction,cFileName,"","",1)
 (1 = normal, 2 = minimizado, 3 = maximizado)

No link abaixo mais opções sobre o código:
[Você precisa estar registrado e conectado para ver este link.]

Rosangela

Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Re: Arquivos de Pasta

Mensagem por Julio em 8/5/2015, 09:06

Legal, vou testar aqui também este código.

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Re: Arquivos de Pasta

Mensagem por Rosangela Pires em 8/5/2015, 13:43

Amigo Julio,

Valeu !!!

Podemos dar com encerrdo este tópico.

Rosangela

Rosangela Pires
Participa Bastante
Participa Bastante


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