こんばんは。
指定したフォルダ(IEキャッシュ)のサブフォルダ以下のファイル名を取得しようとしています。
コードは次のとおりなのですが、ファイル名の取得ができません。どこがまずいのか、是非アドバイスを下さい。
よろしくお願いします。
--------------------------
Private Sub Form_Load()
Dim FileName As String
FileName = Dir("C:\WINDOWS\Temporary Internet Files\CONTENT.IE5\*\*.gif")
MsgBox FileName
End Sub
---------------------------
**環境**
Win98se , VB6.0sp5 ,IE5.5sp2
No.2ベストアンサー
- 回答日時:
\Temporary Internet Files や \CONTENT.IE5 はシステム属性になっているのでDir関数をとるときに属性指定が必要です。
FolderName = Dir("C:\WINDOWS\Temporary Internet Files\CONTENT.IE5\*.*", vbDirectory+vbSystem)
のように属性指定にvbSystemを加えます。それでもダメならさらにvbHiddenも加えて見てください。
同様にそのフォルダのファイルを検索するときにも属性指定が必要です。
再度回答していただき、本当にありがとうございます。
「+vbSystem」を加えることにより、無事「\CONTENT.IE5 」フォルダ名を取得することができました。
Hayashi_Trekさんの親身な回答にとても感謝しています。
ありがとうございました。
No.1
- 回答日時:
Dir関数の引数は、フォルダ名部分にワイルドカードは使えません。
まず
FolderName = Dir("C:\WINDOWS\Temporary Internet Files\CONTENT.IE5\*.*",vbDirectory)
でフォルダ名を取得して、そのフォルダに対して
FileName = Dir("C:\WINDOWS\Temporary Internet Files\CONTENT.IE5\"+FolderName+"\*.gif",vbNormal)
としてファイル名を取得します。
この回答への補足
以下のコードで試してみました。
しかしながら、「CONTENT.IE5」フォルダ以下のサブフォルダを拾えませんでした。
「CONTENT.IE5」の(システム?)フォルダ名を取得するには、どのような方法があるのでしょうか?度重なる相談をしてしまい、大変申し訳ありません、、、
----------------------------------
Private Sub Form_Load()
Dim FolderName
FolderName = Dir("C:\WINDOWS\Temporary Internet Files\CONTENT.IE5\*.*", vbDirectory)
Do While FolderName <> ""
MsgBox FolderName
FolderName = Dir
Loop
end sub
--------------------------
早速の回答をしていただき、本当にありがとうございます。
初心者である私に親切な回答がとても助かりました。
今から試してみますが、まだ未熟であるために時間がどのくらいかかるやら(苦笑)結果報告は後日させていただきます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
ファイル名と同名のフォルダを...
-
フォルダにリンクを貼りたい
-
ディレクトリ名変更してコピー...
-
保存先のフォルダ名を指定した...
-
平日出力されるログを月次処理...
-
pythonでDepixを起動
-
フォルダ選択ダイアログ:ネッ...
-
VBA 最新のフォルダ取得
-
EXPLORERで開いているフォルダ...
-
Excel VBA マクロ リストボックス
-
エクセルマクロで指定フォルダ...
-
Access VBA で フォルダ権限...
-
エクセルのデータをメモ帳に貼...
-
Pythonの作業環境・作業フォル...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
指定フォルダからファイルを全...
-
ツリービューを使って、エクス...
-
フォルダのサイズを一覧にした...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報