'''
Dim t As Table = Tables("基本信息")
Dim fn As String = ""
For i As Integer = t.TopPosition To t.BottomPosition
Dim tm As String = ProjectPath & "Attachments\回执.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\回执.doc" '指定目标文件
Dim wrt As New WordReport(t,tm,fl) '定义一个WordReportTable: 要打印的表(Table)或表的名称
Dim dr As DataRow
Dim wfss As String = ""
For Each dr In t.Rows(i).DataRow.GetChildRows("违法及处理情况")
wfss &= dr("违法事实") & "，"
fn &= "回执（" & dr("案件编号") & "）.doc"
Next
wrt.ReplaceOne("[全部违法事实]", wfss.trim("，"))
wrt.BuildOne(t.Rows(i))
wrt.quit() '显示报表
If FileSys.FileExists(fn) Then
FileSys.DeleteFile(fn)
End If
FileSys.RenameFile("Reports\回执.doc",fn)
Next
自己写了一段代码，想为回执重命名，但是如果以前有同名的回执，我的思路是删掉，然后重命名。
但还是就奇怪在这里，居然没有删掉这个重复的文件，显示文件已存在，可是我通过代码删除了啊？
老师，这是咋回事呢？
[此贴子已经被作者于2017/8/11 21:43:45编辑过]
加好友 
发短信
Post By：2017/8/11 21:18:00 [只看该作者]
