扫描仪 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 扫描仪

共有3442人关注过本帖树形打印复制链接主题：扫描仪

kaituozhe

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2019/7/19 9:14:00 [只看该作者]

T盘也是本地硬盘呀

kaituozhe

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2019/7/19 9:15:00 [只看该作者]

硬盘容量比较大，设置的分区多

有点蓝

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/19 9:37:00 [只看该作者]

Dim r As Row = Tables("员工").Current
r("照片") = r("姓名") & r("工号") & ".jpg"
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\" & r("照片"),True)
If FileSys.DirectoryExists("T:\高拍文件\" & r("姓名")) = True Then
msgbox(1)
    FileSys.MoveFile(e.FullPath,"T:\高拍文件\" & r("姓名") & "\" & r("照片"))
Else
msgbox(2)
    FileSys.CreateDirectory("T:\高拍文件\" & r("姓名"))
    FileSys.MoveFile(e.FullPath,"T:\高拍文件\" & r("姓名") & "\" & r("照片"))
End If

kaituozhe

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2019/7/19 10:36:00 [只看该作者]

("T:\高拍文件\" & r("姓名"))这个文件夹中编号最大的照片，怎么写代码？如果出现重复照片编号能够自动增加

有点蓝

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/19 10:46:00 [只看该作者]

例如：

Dim i As Integer = 0

Dim dir As String = "T:\高拍文件\abc\"

Do While True

If FileSys.FileExists(dir & i & ".txt") Then

i += 1

Else

Exit Do

End If

Loop

msgbox(dir & i & ".txt")

kaituozhe

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2019/7/19 15:47:00 [只看该作者]

以下代码还是有问题，文件夹中有三张图片，我认为应该执行001、002、003，然后i的值应该是4，但是执行到黄色部分就不向下执行了

Dim r As Row = Tables("员工").Current
If FileSys.DirectoryExists("T:\高拍文件存档\" & r("姓名")) = True Then
msgbox(3)
Dim i As Integer = 1

    Dim dir As String = """T:\高拍文件存档\" & r("姓名") & "\"""
    Do While True
        msgbox(5)
        msgbox(dir & r("工号") & r("姓名")& Format(i,"000") & ".jpg")
        If FileSys.FileExists(dir & r("工号") & r("姓名")& Format(i,"000") & ".jpg") Then
            i = i + 1
        Else
            Exit Do
        End If
        msgbox(6)
    Loop
    msgbox(i+10)
    r("照片") = r("工号") & r("姓名")& Format(i+1,"000") & ".jpg"
    FileSys.MoveFile(e.FullPath, "T:\高拍文件存档\" & r("姓名") & "\" & r("照片"),True)
Else
    msgbox(4)
    FileSys.CreateDirectory("T:\高拍文件存档\" & r("姓名"))
    FileSys.MoveFile(e.FullPath,"T:\高拍文件存档\" & r("姓名") & "\" & r("照片"))
End If