IEのTempフォルダ内のファイル一覧を作成します。IEのTempフォルダは複数のフォルダを仮想的に1つのフォルダに見せかけているため実体のフォルダがわかりにくくなっています。しかし、これを使えば完全にリストアップできます。
ソースコード中に「IE5」という文字がありますがIEのバージョンに関係なくそこを使うようです。WinXPとWindows7で動作確認をしています。
※下記のコードをコピーし、適当なファイル名をつけ拡張子を「.vbs」として保存してください。(「IE Temp表示.vbs」など)
Option Explicit
Dim wsh
Set wsh = WScript.CreateObject("WScript.Shell")
Dim username
username = wsh.ExpandEnvironmentStrings("%USERNAME%")
Dim targetPath
targetPath = "C:\Documents and Settings\" + username + "\Local Settings\Temporary Internet Files\Content.IE5"
Dim outputFile
outputFile = wsh.SpecialFolders("Desktop") + "/IeTempList.txt"
Dim ts
Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile(outputFile, True)
Dim tmpFolder
For Each tmpFolder In fso.GetFolder(targetPath).SubFolders
ts.WriteLine "■" + tmpFolder.Path
Dim tmpFile
For Each tmpFile In tmpFolder.Files
ts.WriteLine vbTab + tmpFile.Name
Next
Next
ts.Close
MsgBox "終了しました"
|
Code Tips >