在共享驱动器上由另一个用户打开excel文件时循环遍历excel文件的问题

Question

我创建了一个循环遍历excel文件的包，并将它们复制到另一个文件夹。但是，如果其中一个打开，包将失败。有什么建议吗？

Answer 1

您可以先添加脚本任务，然后通过并关闭特定文件夹或特定文件中的所有文件。您可以使用下面的内容，它是vbscript但您可以选择您想要的任何脚本语言。

strComputer = "your-server"
strFolder = "Z:\fileshare"

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("WScript.Shell")

Set objConnection = GetObject("WinNT://" & strComputer & "/LanmanServer")
Set colResources = objConnection.Resources

For Each objResource in colResources strParent = objFSO.GetParentFolderName(objResource.Path)

If LCase(strParent) = LCase(strFolder) Then
objShell.Run "openfiles /disconnect /s " & strComputer & " /id " &_
objResource.Name, 0, False
End If
Next