移动文件报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

For Each File As String In FileSys.GetFiles("D:\")

If File <> "D:\pagefile.sys" Then

If File <> "D:\DumpStack.log.tmp" Then

If File <> "D:\{e617-37ba-87c4-4622-add1-3fe8-1d1a-2b52}" Then

Dim s As String = FileSys.GetName(file)

s = s.replace("~$", "")

ShowAppWindow(s, 5)

If FileSys.FileExists("d:\" & s) Then

FileSys.MoveFile("d:\" & s, "d:\123\" & s, True)

End If

希望将D盘根目录的文件移动到 d:\123 文件夹, 但D盘有隐藏文件,排除隐藏文件后,能正常移动,但文件打开后移动报错, 该如何跳过隐藏文件并关闭文件后移动?

主题：移动文件报错