Hallo Männer und Frauen,
ich möchte mir das Leben etwas leichter machen und ein paar Dateien per FTP automatisch kopiern. Ich habe ein Script von Oskar genutzt.
Leider habe ich mit _FTP_FielPut ein Problem. Ich bekomme keine Fehlermeldung sondern nichts als Resultat.
Auf dem fernen Laufwerk wird eine Datei (.pureftpd-upload.55db1993.15.20b4.59659d1c) angelegt aber die ist leer. Ich habe dort Schreibrechte, mit FTP_DirCreate kann ich
Verzeichnisse anlegen und mit FTP_DirDelete wieder löschen. Habe ich einen Parameter übersehen?
Gurß Udo
AutoIt
#include <FTPEx.au3>
$sDir = @ComputerName
$sPW = '4geheim'
$sUser = '4geheim'
$sIP = '4geheim'
$sPath = FileOpenDialog('Bitte die Datei auswählen.', '', 'All (*.*)', 2)
If Not FileExists($sPath) Then Exit
ConsoleWrite('Path: "' & $sPath & '"' & @CR)
$sFilename = StringRegExpReplace($sPath, '.+\\(.+)', '$1')
ConsoleWrite('Filename: "' & $sFilename & '"' & @CR)
$hOpen = _FTP_Open('myftp')
ConsoleWrite('FTP_Open: ' & $hOpen & @CR)
If Not @error Then
$hSession = _FTP_Connect($hOpen, $sIP, $sUser, $sPW)
ConsoleWrite('FTP_Connect: ' & $hSession & @CR)
If Not @error Then
$iRet = _FTP_DirCreate($hSession, $sDir)
ConsoleWrite('FTP_DirCreate: ' & ($iRet = 1 ? 'created' : 'not created') & @CR)
;$iRet = _FTP_DirDelete ($hSession, $sDir)
;ConsoleWrite('FTP_DirDelete: ' & ($iRet = 1 ? 'deleted' : 'not deleted') & @CR)
$iRet = _FTP_FileDelete ( $hSession,$sFilename)
ConsoleWrite('FTP_delete: ' & ($iRet = 1 ? 'delete ok' : 'delete error') & @CR)
$iRet = _FTP_FilePut($hSession, $sPath, $sDir & '/' & $sFilename)
ConsoleWrite('FTP_FilePut: ' & ($iRet = 1 ? 'transfer ok' : 'transfer error') & @CR)
EndIf
$iRet = _FTP_Close($hSession)
ConsoleWrite('FTP Session: ' & ($iRet = 1 ? 'close' : 'error') & @CR)
$iRet = _FTP_Close($hOpen)
ConsoleWrite('FTP: ' & ($iRet = 1 ? 'close' : 'error') & @CR)
EndIf
Alles anzeigen