質問: bb.Windows.Count - 1 To 0 Step -1 If Not bb.Windows(i).locationUrl Like "" Then bb.Windows(i).Quit End If Next
回答: ごめんなさい。 VBSはLikeが使えないようなのでInStrで処理します。 Dim bb Dim i Set bb = CreateObject("Shell.Application") For i = bb.Windows.Count - 1 To 0 Step -1 If InStr(bb.Windows(i).locationUrl, "") = 0 Then bb.Windows(i).Quit End If Next