頭が回らないや

雑

PowerShellな時代に昔のスクリプトを引っ張り出してきたり(´Д`)
ちょっと必要になったので。


開いているIEのURL一覧の保存用。

Dim ieApp
Dim fs
Dim file
Dim filename

filename = "D:\Home\Desktop\url.txt"

Set fs = CreateObject("Scripting.FileSystemObject")

Set file = fs.CreateTextFile(filename, True)

For Each ieApp In CreateObject("Shell.Application").Windows()
  If InStr(ieApp.FullName, "IEXPLORE.EXE") <> 0 Or InStr(ieApp.FullName, "iexplore.exe") <> 0 Then
    file.Write ieApp.LocationName & vbCrLf
    file.Write "　" & ieApp.LocationURL & vbCrLf
  End If
Next

file.Close

IE7のタブも大丈夫みたいね(´ω`)