RenameFile
RenameFile cambia el nombre archivos en el servidor FTPProtocolo que se utiliza para transferir archivos entre equipos de redes. remoto.
Sintaxis
RenameFile(originalFileName de CADENA, renamedFileName de CADENA)
Donde:
originalFileName
es una cadenarenamedFileName
es una cadena
Devolución
Booleano. Si la devolución es TRUE
, significa que la función ha tenido éxito; si el resultado es otro, significa que se ha producido un error. Cuando la devolución es FALSE
, FTPObject.LastError
emitirá el código de error WIN32.
Ejemplo
Un ejemplo de la función RenameFile en el objeto FTP. Cambia el nombre de todos los archivos hallados en la raíz del 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,puerto,TRUE,"anonymous","lnss@gfi.com")
Found=FTPobj.FindFirstFile("*")
While Found
If (FTPobj.GetFindFileAttributes And DIRECTORYMASK) = DIRECTORYMASK Then
FileType="directory"
Else
FileType="file"
FileName = FTPobj.GetFindFileName
RenameFileName = "renamed_" + FTPobj.GetFindFileName
ret = FTPobj.RenameFile (FileName, RenameFileName)
End If
echo "File: " + FTPobj.GetFindFileName + " size: " + CStr(FTPobj.GetFindFileSize) + " bytes type: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function