VBでIE一時ファイルから画像ファイルを取得するには？ (ID:145582)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

> エクスプローラでIEの一時ファイルが格納されるフォルダを見ると

エクスプローラからみえているのは、(仮想的な)フォルダです。
System.IO.Directory が扱う、(物理的な)ディレクトリとは異なります。

既に御存知かも知れませんが、実際のファイルは "Temporary Internet Files" の
直下では無く、さらにその下の "Content.IE5" という隠しディレクトリの下にある
8桁の英数字ディレクトリ名(8XUF0X27, E4G5TIMU など)の下に配置されています。

Imports System
Imports System.IO
Imports System.Collections.Generic
Imports System.Runtime.InteropServices
Imports Microsoft.VisualBasic

Module Module1
    Sub Main()
        Dim S As String
        Dim o As Object = CreateObject("Shell.Application")
        Dim f As Object = o.Namespace(&H20I)
        Dim fi As Object = f.Self
        S = fi.Path
        Marshal.ReleaseComObject(fi)
        Marshal.ReleaseComObject(f)
        Marshal.ReleaseComObject(o)

Dim f1() As String = Directory.GetDirectories(S)
        Dim cache As String = Path.Combine(S, "content.IE5")
        If Filter(f1, cache, True, CompareMethod.Text).Length <> 0 Then
            Dim f2() As String = Directory.GetDirectories(cache)
            For Each X As String In f2
                Console.WriteLine(X)
                'For Each Y As String In Directory.GetFiles(X, "*.gif")
                '    Console.WriteLine(Y)
                'Next
            Next
        End If

Console.Write("Hit Any Key...")
        Console.ReadKey()
    End Sub
End Module

←解決時は質問者本人がここをチェックしてください。

戻る