Renomear Arquivo Ajuda

[walter]

Olá pessoal, estou criando um arquivo no diretorio path corrente, quero renomeá-lo após criado, mas não estou conseguindo, algum poder dar uma mãozinha. Veja o código abaixo:

//-------------------------------------

FUNCTION CriarTempo(cTemp)

//-------------------------------------

private Campo:="\five\dados"

//cTemp:= "Temp"+substr(Dtoc(Date()),1,2)+Substr(Dtoc(Date()),4,2)+Substr(Dtoc(Date()),9,2 );

// +substr(time(),1,2)+substr(time(),4,2)+substr(time(),7,2)

cTemp:= "T"+ substr(time(),1,2)+substr(time(),4,2)+substr(time(),7,2)

dbCreate( cTemp , { { "ITEM" , "C" ,03, 0 }, ;

{ "CODIGO" , "C", 06, 0 }, ;

{ "QUANTIDADE" , "N", 12, 2 }, ;

{ "DESCRICAO" , "C", 50, 0 }, ;

{ "UNIDADE" , "C", 02, 0 }, ;

{ "PVENDA" , "N", 12, 2 }, ;

{ "VLRTOTAL" , "N", 13, 2 } } )

Close Data

DbCloseArea()

cArq:= (cTemp+".dbf")

FRENAME("&Campo\T222220.DBF", "&Campo\TempItem.dbf" ) //Assim renomeia

FRENAME("&Campo\cArq", "&Campo\TempItem.dbf" ) //Assim não renomeia

Na segunda opção usando a variável, não consigo renomear o arquivo. Tem que ser assim, pois

cada vez que entra no programa ele cria o arquivo.

RETURN NIL

Walter

lcwrf@hotmail.com

FWH 2.6

xHarbour 00.99.61

WorkShop.Exe

[walter]

Olá pessoal, estou criando um arquivo no diretorio path corrente, quero renomeá-lo após criado, mas não estou conseguindo, algum poder dar uma mãozinha. Veja o código abaixo:

//-------------------------------------

FUNCTION CriarTempo(cTemp)

//-------------------------------------

private Campo:="\five\dados"

//cTemp:= "Temp"+substr(Dtoc(Date()),1,2)+Substr(Dtoc(Date()),4,2)+Substr(Dtoc(Date()),9,2 );

// +substr(time(),1,2)+substr(time(),4,2)+substr(time(),7,2)

cTemp:= "T"+ substr(time(),1,2)+substr(time(),4,2)+substr(time(),7,2)

dbCreate( cTemp , { { "ITEM" , "C" ,03, 0 }, ;

{ "CODIGO" , "C", 06, 0 }, ;

{ "QUANTIDADE" , "N", 12, 2 }, ;

{ "DESCRICAO" , "C", 50, 0 }, ;

{ "UNIDADE" , "C", 02, 0 }, ;

{ "PVENDA" , "N", 12, 2 }, ;

{ "VLRTOTAL" , "N", 13, 2 } } )

Close Data

DbCloseArea()

cArq:= (cTemp+".dbf")

FRENAME("&Campo\T222220.DBF", "&Campo\TempItem.dbf" ) //Assim renomeia

FRENAME("&Campo\cArq", "&Campo\TempItem.dbf" ) //Assim não renomeia

Na segunda opção usando a variável, não consigo renomear o arquivo. Tem que ser assim, pois

cada vez que entra no programa ele cria o arquivo.

RETURN NIL

Walter

lcwrf@hotmail.com

FWH 2.6

xHarbour 00.99.61

WorkShop.Exe

[netsys]

Ola Walter

E se fizer assim:

cArq:=cCampo+"\"+cTemp+".dbf"

FRename("&cArq","&cCampo\TempItem.dbf")

Alberto Zamai - SP

albertozamai@hotmail.com

Fwh + WS

[walter]

Olá Alberto, funcionou na mosca.

Muito Obrigado pela dica.

Walter

citação:

Ola Walter

E se fizer assim:

cArq:=cCampo+"\"+cTemp+".dbf"

FRename("&cArq","&cCampo\TempItem.dbf")

Alberto Zamai - SP

albertozamai@hotmail.com

Fwh + WS

---

id=quote>id=quote>

Walter

lcwrf@hotmail.com

FWH 2.6

xHarbour 00.99.61

WorkShop.Exe