关闭文件夹

sunny_8848

请教大家，怎样关闭打开的指定路径的文件夹，比如d:\a文件夹？

蓝桥玄霜

似乎没有关闭文件夹的概念，打开其他文件夹，就退出了前面的文件夹目录。

sunny_8848

蓝桥玄霜 发表于 2019-10-4 08:47
似乎没有关闭文件夹的概念，打开其他文件夹，就退出了前面的文件夹目录。

多谢版主回复。可能我的表达有点分歧，我是想关闭已经打开的指定文件夹，不一定是当前文件夹。

microyip

sunny_8848 发表于 2019-10-4 08:57
多谢版主回复。可能我的表达有点分歧，我是想关闭已经打开的指定文件夹，不一定是当前文件夹。

文件夹操作只有几种：建立、打开、删除、改名、复制、粘帖。没有你说的关闭喔

kevinchengcw

这个试一下

1. Sub test()
   
2. Dim sPath$, oWin As Object
   
3. sPath = "d:\a"
   
4. With CreateObject("shell.application")
   
5.     For Each oWin In .Windows
   
6.         If LCase(oWin.locationurl) = "file:///" & LCase(Replace(sPath, "", "/")) Then
   
7.             oWin.Quit
   
8.             Exit For
   
9.         End If
   
10.     Next oWin
    
11. End With
    
12. End Sub

复制代码

sunny_8848

谢谢大家的帮忙。在网上找到这样的代码，刚好符合我的要求。把代码贴出来分享给有这个需求的网友
Private Sub CommandButton1_Click()
    Dim myfolder1 As String
    Dim OpenFolder As Object
   
    myfolder1 = "D:\a"
    Set OpenFolder = CreateObject("shell.application")
    For i = 1 To OpenFolder.Windows.Count '为什么还要加这个循环？
        For Each Item In OpenFolder.Windows
            If Item.document.folder.self.Path = myfolder1 Then
                Item.Quit
            End If
        Next
    Next
End Sub

山菊花

sunny_8848 发表于 2019-10-4 08:57
多谢版主回复。可能我的表达有点分歧，我是想关闭已经打开的指定文件夹，不一定是当前文件夹。

如果是关闭文件资源管理器窗口，可参考帖子：
http://club.excelhome.net/forum. ... 913&pid=8994378

sunny_8848

山菊花 发表于 2019-10-4 19:51
如果是关闭文件资源管理器窗口，可参考帖子：
http://club.excelhome.net/forum.php?mod=redirect&goto= ...

谢谢帮忙，问题解决了。和我在网上找的代码很类似（代码帖子在审核中），有些不明白为什么代码中已经有for each……next语句了还要多加一个循环才能关闭几个相同路径的文件夹

山菊花

sunny_8848 发表于 2019-10-4 20:25
谢谢帮忙，问题解决了。和我在网上找的代码很类似（代码帖子在审核中），有些不明白为什么代码中已经有fo ...

使用双重循环是不得已而为之，执行Item.Quit后会跳过同名的窗口，应该是一个BUG。

sunny_8848

谢谢大家的帮忙，总算把问题解决了