Renomeia arquivo de acordo com RDD corrente.

Sintaxe

MsRename( cArqOrig, cArqDest ) -> lógico

ArgumentoObrigat.TipoDescrição
cArqOrigSimCNome do arquivo origem e a extensão.
cArqDestSimCNome do arquivo destino e a extensão.

Descrição

A função MsRename() retornará verdadeiro (.T.) se efetuar a operação com sucesso.

Exemplo

Local cTarget  := ‘sigaadv’

Local cArqOrig := ‘ARQ00001.DBF’

Local cArqDest := ‘ARQ00002.DBF’

If MsRename( cTarget + cArqOrig, cTarget + cArqDest )

APMsgInfo(‘Arquivo renomeado com sucesso!’)

Else

APMsgInfo(‘Problemas ao renomear o arquivo ‘ + cArqOrig + ‘!’)

EndIf

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Necessita de ajuda?