leon460 发表于 2011-1-25 15:51:00

ftp 下载与删除，，不过老是提示我数组错误 信息，帮忙看看【已解决】

本帖最后由 leon460 于 2011-3-24 21:01 编辑

功能：发现ftp 服务器上目录中的某个文件，将其下载到本地一个目录下，并删除这个文件。
不过老是出现数组错误提示，，
谢谢各位的指导，，If Ping($Tencor6420IP) > 0 Then
                If DriveStatus("\\172.21.17.124\6420") <> "ready" Then
                        Local $username124 = "test";定义 Tencor6420 的ftp用户名和密码
                        Local $pass124 = "123456"                       
                        TCPStartup()              ;开始 tcp 服务
                        $ftpflag124=TCPConnect($Tencor6420IP,$ftpport)
                                If $ftpflag124 <> 0 Or $ftpflag124 <> -1 Then   ;如果 telnet tencor6220#2 FTP端口 21 成功，则开始连接并下载数据
                                        $Open = _FTP_Open('MyFTP Control Tencor6420')      ;开始 一个ftp session
                                        $Conn = _FTP_Connect($Open, $Tencor6420IP, $username124 , $pass124)
                                        Local $h_Handle124
                                        $aFile124 = _FTP_FindFileFirst($Conn, "/", $h_Handle124)                                ;查找一个 ftp 目录下的文件名
                                        If $aFile124 <> 0 Then
                                                Local $s_RemoteFile124="/" & $aFile124                                         ;定义远程ftp服务器的目录
                                                Local $s_LocalFile124="d:\TencorData\Tencor6420\" & $aFile124                        ;定义本地存放路径及其文件名
                                                If $aFile124 >= 1Then                                       
                                                        $messageGet124=_FTP_FileGet($Conn,$s_RemoteFile124,$s_LocalFile124)                        ;下载找到的远程ftp文件到本地
                                                        If $messageGet124=1 Then
                                                                $file=FileOpen(@ScriptDir & "\MovefileByFTP.txt",9)
                                                                FileWrite($file,_Now() & " 利用FTP将Tencor6420 测量数据 " & $aFile124        & "下载到对应的服务器中"    & @CRLF)
                                                                $messageDel124=_FTP_FileDelete($Conn, $aFile124)
                                                                        If $messageDel124 = 1 Then
                                                                                FileWrite($file,_Now() & " 利用FTP将Tencor6420 测量数据 " & $aFile124        & "在FTP服务器上删除。"    & @CRLF)
                                                                        Else
                                                                                FileWrite($file,_Now() & " 利用FTP将Tencor6420 测量数据 " & $aFile124        & "在FTP服务器上无法删除,请检查此文件。"    & @CRLF)
                                                                        EndIf       
                                                                $FindClose = _FTP_FindFileClose($h_Handle124)
                                                                FileClose($file)
                                                        EndIf
                                                EndIf                                       
                                        EndIf       
                                        _FTP_Close($Open)
                                EndIf
                        TCPShutdown()
                EndIf
        EndIf

cutyourchicken 发表于 2011-1-25 18:58:18

关于数组出错，论坛上有很多帖子咯，还有就是注意下array原始是 array和array[1】

leon460 发表于 2011-1-26 08:47:35

回复 2# cutyourchicken

谢谢你的提示，貌似我没有这个方面的引用

leon460 发表于 2011-1-28 10:17:03

没有人帮忙看看，自己先顶下

lamlp 发表于 2011-1-28 10:23:57

二楼的说的很有参考价值，我以前也经常遇到。
楼主你发的只是部分代码，既然提示数组错，肯定是这方面相关的，你把定义的数组都提大一点
页: [1]
查看完整版本: ftp 下载与删除，，不过老是提示我数组错误 信息，帮忙看看【已解决】