Gravar dados em Diretorio Novo

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Barbosa
Usuário Nível 1
Usuário Nível 1
Mensagens: 24
Registrado em: 12 Jul 2004 13:47

Gravar dados em Diretorio Novo

Mensagem por Barbosa »

Oi pessoal.

Preciso de ajuda, quero gravar alguns arquivos do meu sistema em outra pasta. Exemplo:

Meu sistema esta no D:\Sistemas\ e tenho outra pasta que está no D:\Sistemas\Relatorios\
Estando eu no "D:\Sistemas\" como fazer com por exemplo um relatório que eu gere através de um comando temporário, vá para a pasta Relatorios.
Se alguém tiver um exemplo eu agradeço.

Geraldo Barbosa
Dudu_XBase
Membro Master
Membro Master
Mensagens: 1071
Registrado em: 25 Ago 2003 16:55

Mensagem por Dudu_XBase »

comando
SET DEFAULT TO <dir>

// exemplo...
SET DEFAULT TO D:\SISTEMAS\RELATOR\


________________________________________________________________________________________________________
(Aow Saudade) Clipper 5.2e, Blinker 7, RDD SIXNSX, DBFCDX /Xharbour 1.0, Rdd Mediator (Mysql) Free , RDD Sqlrdd (Sql Server) Comercial
(Hoje) C# Python Sql Server e Oracle




Barbosa
Usuário Nível 1
Usuário Nível 1
Mensagens: 24
Registrado em: 12 Jul 2004 13:47

Mensagem por Barbosa »

Valeu Dudu.

Eu já havia tentado mas estava fazendo errado, coloquei no inicio do sistema, então tudo utilizava o set default e dava erro, mas vou testar somente onde quero que grave e retorne depois ao padrão.

Aproveitando para criar uma pasta que não existe, utilizaria
"run md relatorio" ou existe outro jeito, e pergunto também como faço para saber em clipper se uma determinada pasta já foi criada.

Obrigado mais uma vez.

Geraldo
Dudu_XBase
Membro Master
Membro Master
Mensagens: 1071
Registrado em: 25 Ago 2003 16:55

Mensagem por Dudu_XBase »

Use as Funções da Catools...
..faça o download daki.....
http://planeta.terra.com.br/arte/dudusk ... er/Ctp.lib

Dirchange()
DirMake()

Código:

Código: Selecionar todos

//  Verificando se o direrório existe
IF DIRCHANGE("\RELATORI") == -3         // Diretório  naum existe 
  // Crio Diretório  
  DIRMAKE("\RELATORI") 
ENDIF 


________________________________________________________________________________________________________
(Aow Saudade) Clipper 5.2e, Blinker 7, RDD SIXNSX, DBFCDX /Xharbour 1.0, Rdd Mediator (Mysql) Free , RDD Sqlrdd (Sql Server) Comercial
(Hoje) C# Python Sql Server e Oracle




Responder