ftp下载文件，下载完自己又删除了？

纺天网络科技

ftp下载文件，在文件夹出现一瞬间自己又删除了，这种情况如何解决大佬们
下面是代码这是哪里出错了？

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
FTP	类_FTP

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
FTPIP	文本型
FTP端口	整数型
FTP用户名	文本型
FTP密码	文本型
cg	逻辑型

FTPIP ＝ 编辑框FTPIP.内容
FTP端口 ＝ 到整数 (编辑框FTP端口.内容)
FTP用户名 ＝ 编辑框FTP用户名.内容
FTP密码 ＝ 编辑框FTP密码.内容
判断 (FTP.连接FTP服务器 (FTPIP, FTP用户名, FTP密码, FTP端口, ))
状态条1.置文本 (1, “FTP连接成功”)
状态条1.置文本 (3, FTPIP)
状态条1.置文本 (5, 到文本 (FTP端口))
状态条1.置文本 (1, “FTP连接失败”)
状态条1.置文本 (3, “未知”)
状态条1.置文本 (5, “未知”)
返回 ()
取项目列表 ()

子程序名	返回值类型	公开	备 注
_窗口FTP信息设置_控制钮左键单击	整数型
参数名	类 型	参考	可空	数组	备 注
控制钮索引	整数型
附加参数1	整数型
附加参数2	整数型
保留参数3	整数型

判断 (控制钮索引 ＝ 0)
窗口FTP信息设置.可视 ＝ 假

子程序名	返回值类型	公开	备 注
取项目列表

变量名	类 型	静态	数组	备 注
文名数组	文本型		0
属性数组	整数型		0
尺寸数组	长整数型		0
时间数组	日期时间型		0
i	整数型
表项索引	整数型

FTP.目录列表 (, , 文名数组, 属性数组, 尺寸数组, 时间数组)
超级列表框文件.删除项目 (-1, )
计次循环首 (取数组成员数 (文名数组), i)
如果真 (FTP.目录取属性 (FTP.取现行目录 () ＋ 文名数组 [i], ) ＝ 16)
表项索引 ＝ 超级列表框文件.插入项目 (, 1, , 30)
超级列表框文件.置项目文本 (表项索引, 1, 文名数组 [i])
超级列表框文件.置项目文本 (表项索引, 2, 到文本 (时间数组 [i]))
到循环尾 ()
表项索引 ＝ 超级列表框文件.插入项目 (, 1, , 30)
超级列表框文件.置项目文本 (表项索引, 0, 编码_Utf8到Ansi (到字节集 (文名数组 [i])))
超级列表框文件.置项目文本 (表项索引, 2, 到文本 (时间数组 [i]))
超级列表框文件.置项目文本 (表项索引, 1, 到文本 (尺寸数组 [i]) ＋ “KB”)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框文件_项目左键双击	整数型
参数名	类 型	参考	可空	数组	备 注
项目索引	整数型
列索引	整数型
元素索引	整数型
事件来源	整数型

变量名	类 型	静态	数组	备 注
文件名	文本型
文件名1	文本型

文件名 ＝ 到文本 (编码_Ansi到Utf8 (超级列表框文件.取项目文本 (超级列表框文件.现行选中项, 0)))
文件名1 ＝ 超级列表框文件.取项目文本 (超级列表框文件.现行选中项, 0)
FTP.文件下载 (“/” ＋ 文件名, 取运行目录 () ＋ “/data/” ＋ 文件名1, )
信息框 (“下载结束”, 0, , )

i支持库列表	支持库注释
ExuiKrnln	(未知支持库)
iext	扩展界面支持库一

.版本 2<br /> .支持库 ExuiKrnln<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 FTP, 类_FTP<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 FTPIP, 文本型<br /> .局部变量 FTP端口, 整数型<br /> .局部变量 FTP用户名, 文本型<br /> .局部变量 FTP密码, 文本型<br /> .局部变量 cg, 逻辑型<br /> <br /> FTPIP ＝ 编辑框FTPIP.内容<br /> FTP端口 ＝ 到整数 (编辑框FTP端口.内容)<br /> FTP用户名 ＝ 编辑框FTP用户名.内容<br /> FTP密码 ＝ 编辑框FTP密码.内容<br /> .判断开始 (FTP.连接FTP服务器 (FTPIP, FTP用户名, FTP密码, FTP端口, ))<br />     状态条1.置文本 (1, “FTP连接成功”)<br />     状态条1.置文本 (3, FTPIP)<br />     状态条1.置文本 (5, 到文本 (FTP端口))<br /> .默认<br />     状态条1.置文本 (1, “FTP连接失败”)<br />     状态条1.置文本 (3, “未知”)<br />     状态条1.置文本 (5, “未知”)<br />     返回 ()<br /> .判断结束<br /> 取项目列表 ()<br /> <br /> .子程序 _窗口FTP信息设置_控制钮左键单击, 整数型<br /> .参数 控制钮索引, 整数型<br /> .参数 附加参数1, 整数型<br /> .参数 附加参数2, 整数型<br /> .参数 保留参数3, 整数型<br /> <br /> .判断开始 (控制钮索引 ＝ 0)<br />     窗口FTP信息设置.可视 ＝ 假<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 取项目列表<br /> .局部变量 文名数组, 文本型, , "0"<br /> .局部变量 属性数组, 整数型, , "0"<br /> .局部变量 尺寸数组, 长整数型, , "0"<br /> .局部变量 时间数组, 日期时间型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 表项索引, 整数型<br /> <br /> FTP.目录列表 (, , 文名数组, 属性数组, 尺寸数组, 时间数组)<br /> 超级列表框文件.删除项目 (-1, )<br /> .计次循环首 (取数组成员数 (文名数组), i)<br />     .如果真 (FTP.目录取属性 (FTP.取现行目录 () ＋ 文名数组 <i>, ) ＝ 16)<br />         表项索引 ＝ 超级列表框文件.插入项目 (, 1, , 30)<br />         超级列表框文件.置项目文本 (表项索引, 1, 文名数组 <i>)<br />         超级列表框文件.置项目文本 (表项索引, 2, 到文本 (时间数组 <i>))<br />         到循环尾 ()<br />     .如果真结束<br />     表项索引 ＝ 超级列表框文件.插入项目 (, 1, , 30)<br />     超级列表框文件.置项目文本 (表项索引, 0, 编码_Utf8到Ansi (到字节集 (文名数组 <i>)))<br />     超级列表框文件.置项目文本 (表项索引, 2, 到文本 (时间数组 <i>))<br />     超级列表框文件.置项目文本 (表项索引, 1, 到文本 (尺寸数组 <i>) ＋ “KB”)<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> <br /> .子程序 _超级列表框文件_项目左键双击, 整数型<br /> .参数 项目索引, 整数型<br /> .参数 列索引, 整数型<br /> .参数 元素索引, 整数型<br /> .参数 事件来源, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 文件名1, 文本型<br /> <br /> 文件名 ＝ 到文本 (编码_Ansi到Utf8 (超级列表框文件.取项目文本 (超级列表框文件.现行选中项, 0)))<br /> 文件名1 ＝ 超级列表框文件.取项目文本 (超级列表框文件.现行选中项, 0)<br /> FTP.文件下载 (“/” ＋ 文件名, 取运行目录 () ＋ “/data/” ＋ 文件名1, )<br /> 信息框 (“下载结束”, 0, , )

FanLi

会不会是杀毒没关

纺天网络科技

FanLi 发表于 2023-4-30 18:58
会不会是杀毒没关

杀毒关了下载完出现一瞬间就删除了太烦了

FanLi

纺天网络科技 发表于 2023-5-2 12:26
杀毒关了下载完出现一瞬间就删除了太烦了

windows自带的杀毒也关了试试。你这就很奇怪。不是杀毒的话，就是这个软件有问题。

爱书人飞

感谢分享