Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

Função: FRename

Renomeia o nome de um arquivo, tanto no servidor como na estação.

FRename ( < cArquivo>, < cNovoArq> ) --> nRet

NomeTipoDescriçãoObrigatórioReferência
cArquivoCaracterIndica o nome do arquivo que será renomeado, inclusive sua extensão. Também podem ser incluídos como parte do nome uma letra indicativa da unidade de disco e/ou nome do diretório. Caso não seja especificado nenhuma unidade de disco ou diretório, será considerado o diretório atual do servidor. X
cNovoArqCaracterIndica o novo nome do arquivo, incluindo a extensão. Também podem ser incluídos como parte do nome uma letra indicativa da unidade de disco e/ou nome do diretório. X
    nRet(numerico)
  • Retorna 0 (zero), se a operação for realizada com sucesso; caso contrário, retornará -1 se falhar. Em caso de falha, utilize a função FError() para obter mais detalhes.
  • Para renomear o arquivo, este deve estar fechado. Isto é, não pode estar em uso por nenhum outro processo ou estação. Caso o arquivo esteja aberto, a operação de renomear não será realizada.
  • É possível renomear o arquivo especificando nos parâmetros, simultaneamente, um diretório do servidor e da estação remota, bem como especificar dois arquivos remotos e executar a função através de um JOB.
  • Essa função não aceita caracteres curingas (Wild cards), tais como: * e/ou ?.
 
Importante
Quando especificado um path diferente nos arquivos de origem e destino, a função FRename() move o arquivo para o path especificado.
 
// Neste exemplo, a função é utilizada para 3 finalidades diferentes, observe:// Renomeando um arquivo no Client de origem.txt para destino.txt , na pasta c:\TempnStatus1 := frename('c:\Temp\Origem.txt' , 'c:\Temp\Destino.txt' )IF nStatus1 == -1      MsgStop('Falha na operação 1 : FError '+str(ferror(),4))Endif// Renomeando um arquivo no servidor, na pasta sigaadv, de error.log para error.oldnStatus2 := frename('\sigaadv\error.log' , '\sigaadv\error.old' )IF nStatus2 == -1      MsgStop('Falha na operação 2 : FError '+str(ferror(),4))Endif// Movendo um arquivo no estação, da pasta Raiz para a pasta c:\Temp , alterando também o nome do arquivo.nStatus3 := frename('c:\Lista.txt','c:\Temp\OldLista.txt')IF nStatus3 == -1      MsgStop('Falha na operação 3 : FError '+str(ferror(),4))Endif
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

  • Sem rótulos