遍历所有行,后遍历文件列的lines,看看:
http://www.foxtable.com/webhelp/topics/2717.htm
for each r as row in tables(A).rows
Dim fls As List(of String)
fls = r.DataRow.Lines("文件")
for i as integer = fls.count - 1 to 0 step -1
If FileSys.FileExists(ProjectPath & "收文件\" & fls(i)) = false Then
fls.removeat(i)
end if
next
r.DataRow.Lines("文件") = fls
next