Why FTP doesn't work?

[ITSky8]

Hello! Why the following code doesn't work? And how to check the status of the FTP connection?

e.g.

If @error Then Failed("Open")

If @error Then Failed("Connect")

If @error Then Failed("Upload")

Also doesn't work, why?

Func FTP_File_Upload()

$server = '127.0.0.1'

$username = 'test'

$pass = 'test'

$Open = _FTPOpen('MyFTP Control')

If @error Then Failed("Open")

$Conn = _FTPConnect($Open, $server, $username, $pass,21,1, 0x08000000,0)

If @error Then Failed("Connect")

$Ftpp = _FtpPutFile($Conn, 'd:\temp\test.txt', 'temp/test.txt')

If @error Then Failed("Upload")

$Ftpc = _FTPClose($Open)

EndFunc

[Zedna]

$dllhandle = DllOpen('wininet.dll')
$Open = _FTPOpen ('MyFTP Control')