Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

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

Rosangela Pires

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

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

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

Os nossos membros postaram um total de 49 mensagens em 26 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
avatar
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
avatar
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
avatar
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
avatar
Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Re: Arquivos de Pasta

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


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