[求助]为啥删不掉文件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'''

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"

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)

自己写了一段代码，想为回执重命名，但是如果以前有同名的回执，我的思路是删掉，然后重命名。

但还是就奇怪在这里，居然没有删掉这个重复的文件，显示文件已存在，可是我通过代码删除了啊？

老师，这是咋回事呢？

[此贴子已经被作者于2017/8/11 21:43:45编辑过]

还是一样啊

此主题相关图片如下：无标题.png

试试

Dim t As Table = Tables("基本信息")

For i As Integer = t.TopPosition To t.BottomPosition

Dim tm As String = ProjectPath & "Attachments\回执.doc" '指定模板文件

Dim fl As String = ProjectPath & "Reports\" '指定目标文件

Dim dr As DataRow

Dim wfss As String = ""

For Each dr In t.Rows(i).DataRow.GetChildRows("违法及处理情况")

wfss &= dr("违法事实") & ","

fl &= "回执(" & dr("案件编号") & ").doc"

If FileSys.FileExists(fl) Then

FileSys.DeleteFile(fl)

End If

Dim wrt As New WordReport(t,tm,fl) '定义一个WordReportTable: 要打印的表(Table)或表的名称

wrt.ReplaceOne("[全部违法事实]", wfss.trim(","))

wrt.BuildOne(t.Rows(i))

wrt.quit() '显示报表

成了，为啥定义报表放后面就可以？放前面就不行？

文件占用，所以无法删除

主题：[求助]为啥删不掉文件？