ﾚｽ書き込み

ｽﾚへ戻る 写 ﾚｽ栞 ﾚｽ消

---

Excel VBA 質問スレ Part83

PC,ｽﾏﾎ,PHSは ULA べっかんこ 公式(ｽﾏﾎ) 公式(PC) で書き込んでください｡

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ
>>425 > 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
ﾛｰｶﾙﾙｰﾙ SETTING.TXT

---

他の携帯ﾌﾞﾗｳｻﾞのﾚｽ書き込みﾌｫｰﾑはこちら｡書き込み設定で書き込みｻｲﾄの設定ができます｡
・ULA
・べっかんこ(身代わりの術)
・べっかんこ(通常)
・公式(ｽﾏﾎ)
・公式(PC)[PC,ｽﾏﾎ,PHS可]

---

書き込み設定(板別)で板別の名前とﾒｰﾙを設定できます｡

---

ﾒﾓ帳

(0/65535文字)

---

上下板覧索設栞歴

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.017s