RenameFile
RenameFile rinomina i file sul server FTPUn protocollo utilizzato per il trasferimento dei file tra i computer di rete. remoto.
Sintassi
RenameFile(STRING originalFileName, STRING renamedFileName)
Dove:
originalFileNameè una stringarenameFileNameè una stringa
Restituisce
Booleano. Se restituisce TRUE, la funzione è stata eseguita correttamente, altrimenti significa che è stato restituito un errore. Se viene restituito FALSE, FTPObject.LastError restituirà il codice di errore WIN32.
Esempio
Esempio della funzione RenameFile nell’oggetto FTP. Rinomina tutti i file trovati nella radice del server 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,"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 = "rinominato_" + FTPobj.GetFindFileName
ret = FTPobj.RenameFile (FileName, RenameFileName)
End If
echo "File: " + FTPobj.GetFindFileName + " dimensione: " + CStr(FTPobj.GetFindFileSize) + " tipo byte: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function