RenameFile
RenameFile renomeia arquivos no servidor FTPProtocolo usado para transferir arquivos entre computadores da rede. remoto.
Sintaxe
RenameFile(CADEIA DE CARACTERES originalFileName, CADEIA DE CARACTERES renamedFileName)
Na qual:
originalFileNameé uma cadeia de caracteres.renamedFileNameé uma cadeia de caracteres.
Retorno
Booleano. Se retornar TRUE, a função foi bem-sucedida; caso contrário, houve um erro. Se retornar FALSE, FTPObject.LastError retornará o código do erro WIN32.
Exemplo
Um exemplo da função RenameFile no Objeto FTP. Renomeia todos os arquivos encontrados na raiz do servidor FTP:
Function Main
Dim FTPobj as Object
Const DIRECTORYMASK=&H10
ip = "127.0.0.1"
port = 21
cr = Chr(13) + Chr(10)
Set FTPobj = FTP.Connect (ip,port,TRUE,”anônimo","lnss@gfi.com")
Found=FTPobj.FindFirstFile("*")
While Found
If (FTPobj.GetFindFileAttributes And DIRECTORYMASK) = DIRECTORYMASK Then
FileType=”diretório"
Else
FileType=”arquivo"
FileName = FTPobj.GetFindFileName
RenameFileName = “renomeado_" + FTPobj.GetFindFileName
ret = FTPobj.RenameFile (FileName, RenameFileName)
End If
echo “Arquivo: " + FTPobj.GetFindFileName + " tamanho: " + CStr(FTPobj.GetFindFileSize) + " tipo bytes: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function