Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]没上传成功


  共有3249人关注过本帖树形打印复制链接

主题：[求助]没上传成功
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/11 16:04:00 [显示全部帖子]

 看不懂你什么意思，你ml的路径是根据时间在变的啊，每一次都不同啊，你必须加入对应的文件夹，才能把文件上传进去那个路径啊

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/11 16:22:00 [显示全部帖子]

 用变量存储

 

Vars("最后一个文件夹") = "d:\test"
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/11 16:53:00 [显示全部帖子]

 呃，能不能变通下？？？

 

Vars("最后一个文件夹") = ml
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/12 10:49:00 [显示全部帖子]

 最基本的调试，是你加入msgbox，弹出对应的值，和看有没有执行对应的代码啊。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/12 10:57:00 [显示全部帖子]

改成这样

 

        For Each st As String In sts
            If st = fname Then
                MessageBox.Show("服务器上存在同名文件!","请注意")
                Return   
            End If
        Next
        
        e.Form.text = "所选文件上传中...."
        If ftp.Upload(dlg.FileName,Vars("zhygwjj") & "\" & fname) = True Then  '若成功上传
            Functions.Execute("刷新ListView")
            e.Form.text = "版本目录文件list"
            MessageBox.Show("恭喜你上传成功!","BDSMS提示您")
        Else
            MessageBox.Show("不好意思,所选文件上传失败!,请联系刘基永1034","BDSMS提醒你")
            e.Form.text = "版本目录文件list"
        End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询