Excel VBA 質問スレ Part83 (475ﾚｽ)

Excel VBA 質問スレ Part83 http://mevius.5ch.net/test/read.cgi/tech/1749348402/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

425: デフォルトの名無しさん [] 2025/07/18(金) 08:09:47.41 ID:JhLn+KYd Sub 探す() Dim fso As Object,root As Object Set fso = CreateObject("Scripting.FileSystemObject") ' ルートフォルダを取得して再帰処理スタート Set root = fso.GetFolder("パス") 再帰処理 root End Sub '――――――――――――――――――――――――――――――― Private Sub 再帰処理( ByVal f As Object) Dim file as Object,fpath as string If Instr(f.name,"目的") > 0 Then ' ファイルをチェック For Each file In f.Fileso If InStr(file.Name,"検索値") > 0 Then fpath = file.path Next End if Dim sf as Object ' サブフォルダを再帰処理 For Each sf In f.SubFolders If Instr(sf.name,"コード") > 0 or Instr(sf.name,"書類") > 0 or Instr(sf.name,"分類") > 0 or Instr(sf.name,"yyyymmdd") > 0 Then 再帰処理 sf Next End Sub http://mevius.5ch.net/test/read.cgi/tech/1749348402/425

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.023s