指定したファイルのアイコンを取得するには？ (ID:90701)

名前

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

本文 お世話になります。 さて早速質問なのですが、こちらの過去ログやネットでの検索で、指定したファイルのアイコンを取得する方法を調べ、それらを参考に２種類のコードを作りました。 そのうちの一つが次のコードです。 Const DI_NORMAL = &H3 Dim Ret As Long Dim nFile As String Dim lngLargeImage As Long Dim lngSmallImage As Long nFile = App.Path & "\test.txt" Ret = ExtractIconEx(nFile, 0, lngLargeImage, lngSmallImage, 1) With Picture1 .Cls DrawIconEx .hDC, 0, 0, lngSmallImage, 0, 0, vbNull, 0, DI_NORMAL .Refresh End With これをWin98およびWinXPで実行するのですが、どちらも Picture1 にアイコンが描画されません。 いったい何がいけないのか教えて頂けないでしょうか。