フォルダを閉じる

いつも大変お世話になっております。
下記のｺｰﾄﾞを実行して
現在ひらいているフォルダを閉じる
コードをおしえてくれませんでしょうか
なかなか検索でみつかりませんです。

Sub opn_fld()
Dim myFol As String, mymsg As Integer
Dim IE As Object
myFol = "C:\ABC\"
Shell "C:\Windows\Explorer.exe " & myFol, vbNormalFocus
End Sub

No.1 回答者： GOMΛFU 回答日時： 2019/11/18 21:12

SendKeys "^(W)"

この回答へのお礼

ありがとうございました。
こちらは
SendKeys "^(W)"
上手く動作いたしませんでした。が
検索で見つかりました。
ありがとうございました。
CreateObject("shell.application")

お礼日時：2019/11/18 22:20