SFTPRename()
SFTP Datei umbenennen
Die Funktion ermöglicht das Umbenennen von Dateien auf einem SFTP-Server.
Hinweis
Falls die Dateinamen innerhalb der Liste einen absoluten Pfad enthalten, dann wird aHostPath überflüssig sein.
Falls die Dateinamen innerhalb der Liste einen relativen Pfad enthalten, ist der Pfad relativ gegen aHostPath, wenn aHostPath angegeben wurde.
Remote Pfad aHostPath und Remote-Dateinamen innerhalb der Liste müssen als Verzeichnis-Separator Schrägstrich und nicht Backslash verwenden, z.B: user/sub/date/datei.ext
Parameter | Beschreibung |
|---|---|
aRemoteHost:C | IP oder Domain des Hosts |
aRemotePort:N | Port des Hosts. Typisch 22 |
aUserName:C | User-Name |
aPassword:C | Password |
aResultDir:R | Array mit altem und neuem Dateinamen |
aHostPath:C | RemotePath; default = Leerstring |
aLogFileName:C | Logfile schreiben; default = Leerstring |
aVerifyServerKey:L | Soll Server-Key Verifiziert werden? (für CB-Ereignis "Verifizierung von SSL Zertifikat") |
Rückgabewert
Keine
Achtung: FTP-Fehler können auch eine Exception auslösen!
Beispiel
| aHostPath, aSourcePath, aDestPath, aLogFile, aGetFiles, aLogTxt, aHostFiles |
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,
WriteLn('Beispiel: Datei auf dem SFTP Server umbenennen ...'),
SFTPRename('192.168.10.152', // RemoteHost
22, // RemotePort
'beuser', // UserName
'be32', // Password
{ // Liste der Dateien, die zu umbenen sind
{'DataUpload.pdf', 'DataUpload-New.pdf'}, // Datei DataUpload.pdf wird auf DataUpload-New.pdf umbenannt
{'DataUpload-Old.pdf', '../DataUpload-Old.pdf'}, // Datei DataUpload.pdf wird zum übergeordneten Vezeichnis des aHostPath umgezogen
{'DataUpload-2.pdf', 'Old/DataUpload.pdf'} // Datei DataUpload.pdf wird zu einem Untervezeichnis des aHostPath umgezogen und gleichzeitig umbenannt
},
aHostPath, // HostPath
aLogFile), // LogFileName
onerror,
GU_ShowStdErrorMessage('SFTP Error ' + ProgName(), GetErrorObj() ),
stopseq,