Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
8 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 8 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
Últimos assuntos
» Alterar uma palavra num arquivo de texto
Ontem à(s) 12:02 por Teseu

» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

» Pesquisa em grid
14/9/2016, 09:24 por AJC

Alterar uma palavra num arquivo de texto

5/12/2016, 12:02 por Teseu

Olá prezados colegas de programação!

Este é eu primeiro post no fórum e gostaria de poder …

Comentários: 0

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

Estatísticas
Temos 6960 usuários registrados
O último usuário registrado atende pelo nome de Maycon Hersing

Os nossos membros postaram um total de 17118 mensagens em 2576 assuntos

Criar Pasta e renomear a subpasta

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

Resolvido Criar Pasta e renomear a subpasta

Mensagem por Julio em 4/12/2013, 09:21

Bom Dia Pessoal!

Preciso criar uma pasta mensalmente para arquivar alguns arquivos que são gerados durante um processo.

Tenho que gerar a pasta desta forma AAAAMM, onde AAAA é o ano e MM é o mês, preciso gerar esta subpasta para a competencia novembro por exemplo o qual deve ser assim 201311, esta pasta deve ser gerada assim C:\mapadiario\exporta\201311.

Fiz o seguinte: a pasta ate e gerada so não estou conseguindo renomea-la para a
competencia, 201310, 201311, 201312 e assim sucessivamente:

Código:
SELECT parametros
m.prcompmes = "11"    && SUBSTR(pr_comp,5,2)
m.prcompano = "2013"  && SUBSTR(pr_comp,1,4)
m.ano_mes = m.prcompano + m.prcompmes

* Verificar se um diretorio exite,
IF NOT DIRECTORY('c:\mapadiario\exporta\&m.ano_mes')
  MKDIR ('c:\mapadiario\exporta\&m.ano_mes')
  
   m.OldPasta = "C:\Mapadiario\Exporta\&m.ano_mes"
   m.NewPasta = "C:\Mapadiario\Exporta\&m.ano_mes"
  
   rename (m.OldPasta) to (m.NewPasta)

  WAIT windows 'nao existe'
ELSE
 WAIT windows 'existe'
ENDIF
Obrigado pela ajuda

Julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Criar Pasta e renomear a subpasta

Mensagem por Julio em 4/12/2013, 09:44

Pessoal, consegui resolver.

Obrigado por quem tentou ajudar, abraços.

Código:
SELECT parametros
m.prcompmes = "11"    && SUBSTR(pr_comp,5,2)
m.prcompano = "2013"  && SUBSTR(pr_comp,1,4)
m.ano_mes = m.prcompano + m.prcompmes

lcCaminho = 'c:\mapadiario\exporta\'
lcFile = m.ano_mes

IF .NOT. DIRECTORY (lcCaminho + lcFile)
   MKDIR(lcCaminho + lcFile)
ENDIF

Julio
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