以下代码中无论是否存在T:\高拍文件\" & r("姓名"),点拍摄时都会
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.6.18.1
错误所在事件:文件监视器,FileCreated
详细错误信息:
未能完成操作,因为在此路径“T:\高拍文件\王五”中已经存在一个目录。不知道原因是什么?该怎么修改?
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("姓名"))
FileSys.RenameFile(e.FullPath,r("照片"))
Else
msgbox(2)
FileSys.CreateDirectory("T:\高拍文件\" & r("姓名"))
FileSys.MoveFile(e.FullPath,"T:\高拍文件\" & r("姓名"))
FileSys.RenameFile(e.FullPath,r("照片"))
End If