B&R Kopieren einer Datei auf einen FileZilla FTP-Server

Zuviel Werbung?
-> Hier kostenlos registrieren
Ich hänge mich hier nochmal an.

Ich möchte eine Datei unter ST auf einen FTP Server kopieren.
Die Verbindung zum FTP klappt, das kopieren mittels Filecopy leider nicht.
Beim Filecopy bekomme ich immer die Fehlermeldung 20723 = Verzeichnis existiert nicht
CF ist in der Hardware festgelegt und die Datei existiert auch auf der CF Karte.

Habt Ihr eine Idee?

Hier mein Code:

Code: 
	bOK             := FALSE;
	byStep          := 0;
	byErrorLevel    := 0;
	strDevice       := 'CF';
	strFile         := 'TestFile.txt';
	strFile2         := 'TestFile.txt';



	7: (**** Verbinde zu FTP Server ****)
			(* Initialize file delete structure *)
			FTP_Link.enable  := 1;
			FTP_Link.pDevice := ADR('FTP');
			FTP_Link.pParam   := ADR('/SIP=192.168.100.31 /PROTOCOL=ftp /USER=Kunde2 /PASSWORD=Kunde2');
			(* Call FUB *)
			FTP_Link();		
			(* Get status *)
			wStatus := FTP_Link.status;
			(* Verify status *)
			IF (wStatus = 0) THEN
				bOK     := TRUE;
				byStep  := 9;
			ELSE
				IF (wStatus <> 65535) THEN
					byErrorLevel    := 7;
					byStep          := 100;
					IF (wStatus = 20799) THEN
						wError := FileIoGetSysError();
					END_IF
				END_IF
			END_IF
		
		9:(**** Copy file ****)
			FCopy.enable    := 1;
			FCopy.pSrcDev   := ADR('CF');
			FCopy.pSrc      := ADR(strFile);
			FCopy.pDestDev  := ADR('FTP');
			FCopy.pDest     := ADR(strFile2);
			FCopy.option    := 0;
			(* Call FUB *)
			FCopy();
			(* Get FUB output information *)
			wStatus := FCopy.status;
			(* Verify status *)
			IF (wStatus = 0) THEN
				bOK     := TRUE;
				byStep  := 2;
			ELSE
				IF (wStatus <> 65535) THEN
					byErrorLevel    := 1;
					byStep          := 0;
					IF (wStatus = 20799) THEN
						wError := FileIoGetSysError();
					END_IF
				END_IF
			END_IF
 
Zurück
Oben