ﾚｽ書き込み

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

---

Excel VBA 質問スレ Part83

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

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ
>>426 > >>417 はちょっと手抜きしてたので、ちゃんと作り直した｡ > Sub 使い方() > 　Set Result = New Collection > 　DirMulti "C:\Documents", "A???\B*\Excel\2025????\File*.xlsx", Result, vbNormal > 　(以下略) > End Sub > > Sub DirMulti(HomePath, SearchPath, ResultCollection, Optional Attributes As VbFileAttribute = vbNormal) > 　Pos = InStr(SearchPath & "\", "\") > 　Search = Left(SearchPath, Pos - 1) > 　NextSearch = Mid(SearchPath, Pos + 1) > > 　Set SearchResult = New Collection > 　Res = Dir(HomePath & "\" & Search, vbDirectory Or Attributes) > 　Do While Res <> "" > 　　If Res <> "." And Res <> ".." Then SearchResult.Add Res > 　　Res = Dir() > 　Loop > > 　If NextSearch = "" Then > 　　For Each Res In SearchResult > 　　　ResultCollection.Add HomePath & "\" & Res > 　　Next > 　Else > 　　For Each Res In SearchResult > 　　　If (GetAttr(HomePath & "\" & Res) And vbDirectory) <> 0 Then > 　　　　DirMulti HomePath & "\" & Res, NextSearch, ResultCollection, Attributes > 　　　End If > 　　Next > 　End If > End Sub
ﾛｰｶﾙﾙｰﾙ SETTING.TXT

---

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

---

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

---

ﾒﾓ帳

(0/65535文字)

---

上下板覧索設栞歴

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.012s