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