FTPRename()

FTPRename() – FTP Datei umbenennen

Die Funktion ermöglicht das Umbenennen von Dateien auf einem FTP-Server.

Parameter	Beschreibung
aCaption:C	Titel
aRemoteHost:C	IP oder Domain des Hosts
aRemotePort:N	Port des Hosts
aUserName:C	User-Name
aPassword:C	Passwort
aPassiveMode:L	Passiver Übertragungsmodus
aFileList:U	Array mit altem und neuem Dateinamen
aHostPath:C	RemotePath; default = Leerstring
aLogFileName:C	Logfile schreiben; default = Leerstring
aIncludeHostDir:L	Directorylist in TraceFile; default = false
lShowMsg:L	Exceptions statt Messages; default = false
aQuietMode:L	Kein Dialog anzeigen. Wenn in beas benutzt wird, ist aQuietMode IMMER true

Rückgabewert

Numerisch

0 für korrekte Ausführung, ansonsten Fehler-Code
1 für Verbindungsfehler
2 für Fehler beim Verzeichniswechsel
3 u.a Datei nicht gefunden
5 für Vorgang abgebrochen
Achtung: FTP-Fehler können auch eine Exception auslösen!

Beispiel

CODE

| aResult, i, j, aHostFiles, aHostPath, aSourcePath,
  aDestPath, aDestFile, aFileExt, aLogFile, aGetFiles, aLogTxt |

function ErrChk(aErrNo)
   if aErrNo <> 0 then
      ShowMessage('Error ' + Str(aErrNo)),
      Abort(),
   endif,
end,

aLogFile    := 'C:\SICHERUNG\FTP_Test\MyFtpLog.txt',
aDestPath   := 'C:\SICHERUNG\FTP_Test\Download\',
aSourcePath := 'C:\SICHERUNG\FTP_Test\Upload\',
aHostPath   := 'Test',

if File(aLogFile) then
   DeleteFile(aLogFile),
endif,
startseq,

  FTPUpload('Datei übertragen',                        // Überschrift
            '192.168.10.152',                          // RemoteHost
            21,                                        // RemotePort
            'beuser',                                  // UserName
            'be32',                                    // Password
            .t.,                                       // PassivMode
            {'C:\SICHERUNG\FTP_Test\DataUpload.pdf'},  // aFileArray
            aHostPath,                                 // HostPath
            aLogFile),                                 // LogFileName

   WriteLn('Beispiel: Datei auf dem FTPServer umbenennen ...'),
   ErrChk(aResult := FTPRename('Datei umbenennen',                       // Überschrift
                               '192.168.10.152',                         // RemoteHost
                               21,                                       // RemotePort
                               'beuser',                                 // UserName
                               'be32',                                   // Password
                               true,                                     // PassivMode
                               {'DataUpload.pdf', 'DataUpload-New.pdf'}, // aFileArray
                               aHostPath,                                // HostPath
                               aLogFile)),                               // LogFileName


onerror,
   aResult := -1,
stopseq,

aResult