上传FTP文件被覆盖

微微暖风

.版本 2
.支持库 shell
.支持库 EThread
.支持库 internet

.程序集 窗口程序集4

.子程序 _按钮1_被单击

.如果真 (编辑框1.内容 ＝ “”)
    信息框 (“请填写好内容再进行上传”, 0, )
    返回 ()
.如果真结束
写到文件 (取特定目录 (#系统桌面) ＋ “\tmp.txt”, 到字节集 (编辑框1.内容))
启动线程 (&子程序_上传, , )


.子程序 子程序_上传

.如果真 (连接FTP服务器 (“xingu98.w35-e1.ezcname.com”, “xin8”, “nishiwode21@”, , ) ＝ 假)
    信息框 (“连接FTP服务器失败!”, #错误图标, )
    返回 ()
.如果真结束
.如果真 (FTP文件上传 (取特定目录 (#系统桌面) ＋ “tmp.txt”, FTP取现行目录 () ＋ “\2.txt”, ))
    信息框 (“上传成功”, #信息图标, )
    返回 ()
.如果真结束
信息框 (“上传失败!”, #错误图标, )

---------------------------------------------------------

这个代码上传以后就会把原来的文件覆盖掉，怎么样能让原来的TXT文件的内容保存下来！

唯森

最近在搞ftp类  顶一个

‘一叶知秋

额  这个是？

Bye

好吧，我路过。。。