Question

我正在尝试删除VB.net中的文件。当我使用下面显示的删除方法运行程序时，文件被删除，但相应的压缩文件的内容也被删除。但是，当我逐步调试时，压缩文件的内容不会被删除？它没有意义，为什么会发生这种情况？

Shell("C:\Program Files\7-Zip\7z.exe a " + zippedLocation(1) + ".zip " + NewFileNames(1))
My.Computer.FileSystem.DeleteFile(NewFileNames(1))
Shell("C:\Program Files\7-Zip\7z.exe a " + zippedLocation(2) + ".zip " + NewFileNames(2))
My.Computer.FileSystem.DeleteFile(NewFileNames(2))

Answer 1

尝试以下代码。您可能需要给7z一些时间来完成操作。如果固定的5秒间隔是基本的，您需要创建一个函数来检查是否正在写入文件。

Shell("C:\Program Files\7-Zip\7z.exe a " + zippedLocation(1) + ".zip " + NewFileNames(1))
system.threading.thread.sleep(5000) 'give 7z some time to finish the zipping (5 sec)
My.Computer.FileSystem.DeleteFile(NewFileNames(1))
Shell("C:\Program Files\7-Zip\7z.exe a " + zippedLocation(2) + ".zip " + NewFileNames(2))
My.Computer.FileSystem.DeleteFile(NewFileNames(2))
system.threading.thread.sleep(5000)

删除vb.net中的文件会删除压缩文件夹的内容

1 个答案: