Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
11 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 11 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
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

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

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

Estatísticas
Temos 7035 usuários registrados
O último usuário registrado atende pelo nome de marcos de boni

Os nossos membros postaram um total de 31 mensagens em 17 assuntos

Deletar Arquivos e Subpastas mas não deletar a Pasta?

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

Resolvido Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por mfelis em 20/7/2010, 16:41

Pessol, preciso deletar as subpastas e arquivos de uma pasta mas sem deletar esta a pasta.EX:
-Pasta1 [
-SubPasta1
-Arquivo1.arq
-Arquivo2.arg
-SubPasta2
-SubPasta
-Arquivo
-Arquivo
]
No Final da rotina só poderia restar a Pasta1

-Pasta1 [ ]
avatar
mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por Marcos Guedes em 20/7/2010, 16:55

Procure em Funções Interessantes!
Tenho quase certeza que tem.

_________________
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

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por mfelis em 20/7/2010, 17:00

[Você precisa estar registrado e conectado para ver este link.] escreveu:Procure em Funções Interessantes!
Tenho quase certeza que tem.

Achei um Função para Varer as SubPasta de um Directorio mas Imagina, terrei que varer as SubPastas da SubPasta da Pasta é muito compricado , isso pode ter milhares de subpasta, ficara muito lendo e complicado!
avatar
mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por Julio em 20/7/2010, 17:44

Não sei se funciona com subpasta, utilizo o comando ERASE para deletar arquivos das pastas.

julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por m@r<3|o em 20/7/2010, 19:07

2 cliques na Pasta1
de 1 click para selecionar aperte DELETE na pasta SubPasta

albino

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por hugo em 20/7/2010, 19:26

marcelofazan escreveu:2 cliques na Pasta1
de 1 click para selecionar aperte DELETE na pasta SubPasta

albino
e se o windows dele estiver configurado pra trabalhar com um clique so?

tu ta com tempo hein marcelo, hehe

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por m@r<3|o em 20/7/2010, 19:39

Deletar as pastas com comandos ainda nao precisei
mais isso que o Felis disse é interesssante
como se fosse uma rotina de atualizacao a longa distancia

o setup empacota , cria uma pasta coloca um prg executa a atualizacao , e depois se destroi

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por alceu11 em 20/7/2010, 19:52

1-)Vc pode aproveitar o codigo do HUGO para ver se a pasta Existe
Código:

wdir="c:\teste"
if direCTORY('&wdir')
  cd &wdir
  WAIT WINDOW 'fui para pasta teste ' TIMEOUT 1
endif

2) existe a pasta, vamos ver se tem arquivos
depois
Aproveitando o codigo do Julio no final da minha resposta
da pra varrer a pasta em questao,
isto fica gravado no cursor tabela
depois ,

3-) tem arquivos vamos excluir os arquiovs
Código:

IF _TALLY>0

*FACA O ERASSE
*PEGANDO O NOME DO AQUIVO
sele tabela
go top
do while !eof('tabela')
TABELA.NOMEARQ
ERASE &NOMEARQ
skip
Enddo
AINDA PODE FAZER UMA GRID COM COM checkbox MARCACAO PARA EXCLUSAO

**CODIGO DO JULIO que compo o 2 item da minha resposta
para varrer o diretorio e encontrar todos os arquivos da pasta


Código:

SET DATE BRITISH
SET CENTURY ON
CPATY=SYS(5)+CURDIR()

=filesinfolder(CPATY)

SELECT TABELA
BROWSE NORMAL
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 tabela (nomearq c(254), tamanho i(4), datemod d(8), timemod c(10), atributo c(1))

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

      FOR m.counter = 1 TO m.totalfiles
        INSERT INTO tabela (nomearq,tamanho,datemod,timemod,atributo);
          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
 
  SELECT tabela
  GO TOP
  m.nomearq = nomearq
  DO WHILE NOT EOF()
    m.nomearq = ALLTRIM(nomearq)
    m.nometam = (LEN(ALLTRIM(m.nomearq))) && pego o tamanho em caracter do nome do arquivo com extenção
   
    m.nometa_ = m.nometam - 2
    m.nometam = SUBSTR(m.nomearq,m.nometa_,3)  && pega determinação do arquivo
   
    IF m.nometam = "EXE"  && Se for EXE mostra o arquivo e data
      m.t2 = CTOD('00/00/0000')
      m.t1 = tabela.nomearq
      m.t2 = tabela.datemod
      m.t3 = tabela.timemod
     
      WAIT windows 'É EXE - ARQUIVO = '+ ALLTRIM(m.t1) +'  HORA : '+;
        ALLTRIM(m.t3) + '  DATA : '  + DTOC(m.t2) AT 25,60

    ENDIF
   
    SKIP
  ENDDO
 
  RETURN m.nomecursor
ENDFUNC

************


avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por mfelis em 21/7/2010, 08:13

Mais se Esta SubPasta, Tiver Mais SubPasta, e Mais SubPasta da SubPasta da Subpasta?
Ex:
Pasta
-SubPasta
--SubPasta
---SubPasta
----SubPasta
-----SubPasta
------SubPasta
-------SubPasta
--------SubPasta
---------SubPasta
----------SubPasta
avatar
mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por Marcos Guedes em 21/7/2010, 08:37

Marcelo, eu não respondi antes pois sabia que a solução já foi postada em Funções Interessantes. Bastava procurar com cuidado e analisar os códigos.

Juntando um, ou outro, dá para criar o que precisa.
Veja esta função:
[Você precisa estar registrado e conectado para ver este link.]

Utilize-a, e após deletar o diretório, recrie-o.
Resolve?

_________________
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

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por alceu11 em 21/7/2010, 08:58

Como o chefe do gato Felix, nao deve ter chegado

mais se tiver na subpasta da subpasta .....+10 subpastas

va na ultima subpasta da subpasta

com o cd \nome da pasta
e depois cole , numa m.variavel com comando sys(5)+curdir()

e depois va excluido com a rotina

a cada subpasta
saia com cd..



Faca um teste, crie uma pasta teste, coloque dois arquivos la que seja lixeira

e depois rode esta rotina , e veja se exclue mesmo os arquivos

Código:

Set Date BRITISH
Set Century On
Set Deleted On
Public m.wdir

m.wdir="\teste"

If Directory(m.wdir)  &&'&wdir') && sem aspas nao funcionar
   Wait Window 'existe1 ' + m.wdir Timeout 1
   Cd ..

   Cd Sys(5)+m.wdir
Else
   Wait Window 'nao existe1 a pasta '+m.wdir
Endif

CPATY=Sys(5)+Curdir()

=filesinfolder(CPATY)

Select TABELA
Go Top

If Reccount() > 0
  DELETE IN tabela
   Skip
    DELETE IN tabela
   SKIP
   GO top
   
   Do While !Eof('tabela')
      Wait Window      Alltrim(TABELA.NOMEARQ) Timeout 0.1

      If  Alltrim(TABELA.NOMEARQ) <> 'teste3.prg'

         Wait Window ' excluindo!! ' +Chr(13)+Alltrim( TABELA.NOMEARQ) Timeout 0.1
         Delete File Alltrim(TABELA.NOMEARQ)
      Endif
      Delete In TABELA
      Skip
   Enddo
**AINDA PODE FAZER UMA GRID COM COM checkbox MARCACAO PARA EXCLUSAO
Else
   Wait Window 'nao existe arquivos ' Timeout 1

Endif
Set Deleted On
***********fim da rotina
USE IN tabela




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 TABELA (NOMEARQ c(254), tamanho i(4), datemod d(8), timemod c(10), atributo c(1))

If Directory(m.cpath) Then
   Chdir (m.cpath)
   m.totalfiles = Adir(myfiles, "*.*","D")

   For m.counter = 1 To m.totalfiles
      Insert Into TABELA (NOMEARQ,tamanho,datemod,timemod,atributo);
         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

Select TABELA
Go Top
m.NOMEARQ = NOMEARQ
Do While Not Eof()
   m.NOMEARQ = Alltrim(NOMEARQ)
   m.nometam = (Len(Alltrim(m.NOMEARQ))) && pego o tamanho em caracter do nome do arquivo com extenção

   m.nometa_ = m.nometam - 2
   m.nometam = Substr(m.NOMEARQ,m.nometa_,3)  && pega determinação do arquivo

   If m.nometam = "EXE"  && Se for EXE mostra o arquivo e data
      m.t2 = Ctod('00/00/0000')
      m.t1 = TABELA.NOMEARQ
      m.t2 = TABELA.datemod
      m.t3 = TABELA.timemod

      Wait Windows 'É EXE - ARQUIVO = '+ Alltrim(m.t1) +'  HORA : '+;
         ALLTRIM(m.t3) + '  DATA : '  + Dtoc(m.t2) At 25,60

   Endif

   Skip
Enddo

Return m.nomecursor
Endfunc


Nao vai dizer que vc esqueceu de responder o topico, ou que hj domingo!!! Very Happy


Última edição por alceu11 em 21/7/2010, 09:09, editado 1 vez(es)
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por mfelis em 21/7/2010, 09:07

Acaba Ficando Muito Lento!,acabei tem que pedir para rodar minha app, como administrador e por ela eu mandei deletar a pasta inteira e a crei denovo este foi o jeito!
avatar
mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por alceu11 em 21/7/2010, 09:21

Deixa eu ver se entendi o topico era deletar as subpastas, e os arquivos das subpasta, menos a pasta principal.

Mas agora por ficar muito lento a delecao dos arquivos,

O TOPICO mudou para
Novo o titulo:
Deletar subpastas com tudo que tiver dentro dela e manter a pasta!:
Solicitamos ao moderador apos confirmacao do membro a mundaca do titulo!

E sera que podemos considerar, que este topico esta resolvido?? Very Happy
E sera que a rotina para deletar as subpastas é esta?.
Código:

deletardiretorio("caminho\do\diretorio")

PROCEDURE deletardiretorio AS void
  LPARAMETERS caminho as String
  LOCAL objdel AS "Scripting.FileSystemObject"
  m.objdel = NEWOBJECT("Scripting.FileSystemObject")
  m.objdel.deletefolder(m.caminho, .T.)
  m.objdel = NULL
ENDPROC


Última edição por alceu11 em 21/7/2010, 09:27, editado 1 vez(es)
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por mfelis em 21/7/2010, 09:26

[Você precisa estar registrado e conectado para ver este link.] escreveu:Deixa eu ver se entendi o topico era nao deletar as subpastas, so os arquivos.

Mas agora por ficar muito lento a delecao dos arquivos,

O TOPICO mudou para
Novo o titulo:
Deletar subpastas com tudo que tiver dentro dela!:
Solicitamos ao moderador apos confirmacao do membro a mundaca do titulo!

E sera que podemos considerar, que este topico esta resolvido?? Very Happy

Para Varer o as SubPasta e Seus Arquivos e Deletar as Subpasta e os Arquivos Fica muitos lento, fiz um teste em uma pasta de mais de 500Pasta e 1000Arquivos e ficou lento!, pode colocar com Resolvido!
avatar
mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por Marcos Guedes em 21/7/2010, 10:48

Marcelo, mais uma vez você conseguiu misturar as idéias num tópico.
kkkkkkkkkkkkkkkkk

Vamos com calma...
Você disse que o teste ficou lentou...
Estais deletando arquivos e pastas, ou formatando um HD inteiro?
Very Happy

Reveja também o que citei:
[Você precisa estar registrado e conectado para ver este link.] escreveu:Marcelo, eu não respondi antes pois sabia que a solução já foi postada em Funções Interessantes. Bastava procurar com cuidado e analisar os códigos.

Juntando um, ou outro, dá para criar o que precisa.
Veja esta função:
[Você precisa estar registrado e conectado para ver este link.]

Utilize-a, e após deletar o diretório, recrie-o.
Resolve?

Com todas as dicas, ainda não conseguisse resolver o problema?

_________________
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

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por mfelis em 21/7/2010, 12:29

Deixa tá ficando compricado!
avatar
mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por Marcos Guedes em 21/7/2010, 12:46

Por que não explica melhor a complicação?
Vai preferir dar o tópico como resolvido?

_________________
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

Resolvido Re: Deletar Arquivos e Subpastas mas não deletar a Pasta?

Mensagem por hugo em 21/7/2010, 13:13

vou resumir a coisa aqui

c:\pasta
_______\pasta1
_______\pasta2
_____________\pasta3.1
_____________\pasta3.2
_______\pasta4

sendo que dentro de todas elas podem ou nao conter arquivos

ele quer apagar tudo apos c:\pasta1

antigamente do msdos dariamos em c:\pasta o comando

deltree *.* /y

apagaria tudo apos a pasta em que se estivesse

o mfelis quer apagar todas pastas do IE, como os nomes sao aleatorios
e o deltree nao existe mais ele quer uma solucao pra colocar la no software
dele, o sfb

( chugo bem ne mfelis ) heuahuaheuehuaha

seguinte, o esquema eh dar um dir *.* /s > txt.txt
da um append pra um dbf
remove tudo que nao for nome de diretorio

ordena o dbf
entra nas pastas, manda apagar os arquivos
volta uma pasta
apaga a pasta
e ai vai

usa o do while

eh so por a mao na massa parceiro

se quiser postar ai sua solucao, se eh que ja nao tem, poste

pra todos efeitos com o que to postando aqui o topico ja esta resolvido

umas dicas ai do alceu ja dava pra elucidar a coisa

TOPICO FECHADO


MFELIS
por favor, se nao for concluir seus topicos eh melhor que nem poste
pois a galera ralou tentando de ajudar e voce simplesmente largar
pra la eh falta de consideracao com a galera!

valeu

Smile

aguardo sua postagem com a solucao ou com a concordancia do desfecho
aqui postado


_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


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