Foxtable(狐表) → 用户栏目 → 专家坐堂 → 历遍指定文件夹下如有相同文件名时，则自动增加01，依此类推


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

主题：历遍指定文件夹下如有相同文件名时，则自动增加01，依此类推
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/30 9:06:00 [显示全部帖子]

Dim cnt As Integer = 1
Dim flt As String = pth & wjm
Do While True
    If FileSys.FileExists(flt) Then
        flt As String = pth & nm & Format(cnt, "00") & hz
        cnt += 1
    Else
        Exit Do
    End If
Loop
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/30 16:35:00 [显示全部帖子]

1、什么错误提示？

2、可以通过表格查询最大文件名称

Dim flt As String = pth & wjm
Dim dr As DataRow = DataTables("资料明细").compute("max(资料名称)","资料名称 like '" & nm & "%'")
If dr IsNot Nothing Then
    Dim v = val(dr("资料名称").split(".")(0).replace(nm,"")) + 1
    flt = pth & nm &  Format(v, "00") & hz
End If
msgbox(flt)
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/30 17:15:00 [显示全部帖子]

错误原因大概是：

1、附件没有数据
2、文件已经存在，无法覆盖
3、保存的路径不存在，或者没有权限写入
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/30 18:00:00 [显示全部帖子]

代码没有问题，请看7楼

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询