Dim r As Row = Tables("员工").Currentr("照片") = r("工号") & ".jpg"FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\" & r("照片"),True)
如何将带红的一段更改为共享文件中的一个文件夹。例如改为:
FileSys.CopyFile(e.FullPath, ProjectPath & "C:\Documents and Settings\All Users\Documents\影印文件夹\" & CurrentTable.Current("收文编号") & "_" & Index & ".jpg",True)