2016-05-13 116 views
0

我想删除VB.net中的文件。当我使用下面显示的删除方法运行该程序时,该文件将被删除,但相应的压缩文件的内容也会被删除。但是,当我一步一步调试时,压缩文件的内容不会被删除?这没有意义,为什么会发生这种情况?删除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)) 

回答

0

请试试以下代码。您可能需要花费一些时间才能完成操作。如果固定的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) 
相关问题