[過去ﾛｸﾞ]
Excel VBA 質問スレ Part82 (1002ﾚｽ)
Excel VBA 質問スレ Part82 http://mevius.5ch.net/test/read.cgi/tech/1737657075/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
967: デフォルトの名無しさん [] 2025/06/07(土) 16:04:31.64 ID:I++ihMYF >>959 例えばファイルシステムで フォルダ1の中から指定の文字列を含むフォルダを探して 見つかったフォルダのパスを取得して さらにそのフォルダの中から指定の文字列を含むフォルダを探して 見つかったフォルダのパスを取得して そのフォルダの中に指定のフォルダがあるか確認してなかった場合はフォルダを作成するコードです 2〜3回同じ様な事を繰り返しているので冗長な気がしてなりません http://mevius.5ch.net/test/read.cgi/tech/1737657075/967
968: デフォルトの名無しさん [sage] 2025/06/07(土) 16:09:10.87 ID:WTKqP7i+ >>967 それそのままAIに投げたら一瞬で書いてくれるよ http://mevius.5ch.net/test/read.cgi/tech/1737657075/968
970: デフォルトの名無しさん [] 2025/06/07(土) 17:36:52.86 ID:hTJ86lb5 >>967 それを平で書いてるなら冗長 再帰処理でやるのがあるべき姿 まずは指定フォルダ下の全フォルダを出力する再帰処理書いてみ （全てが再帰処理ではない。呼び出し元処理と再帰処理の2つ書くことになる。念の為） http://mevius.5ch.net/test/read.cgi/tech/1737657075/970
972: デフォルトの名無しさん [sage] 2025/06/07(土) 17:55:49.45 ID:nK7i38Q0 >>967 こんなのかな ＞フォルダ1(Path1)の中から指定の文字列を含むフォルダ(Pattern1)を探して見つかったフォルダのパス(Path2)を取得する Path2 = GetPatternPath(Path1, Pattern1) As String ＞さらにそのフォルダ(Path2)の中から指定の文字列(Pattern2)を含むフォルダを探して ＞見つかったフォルダのパス(Path3)を取得する Path3 = FindPatternPath(Path2, Pattern2) As String ＞そのフォルダ(Path3)の中に指定のフォルダ(Pattern3)があるか確認してなかった場合はフォルダを作成するコードです result = CheckPatternPath(Path3, Pattern3) As Boolean If result Then Call MakePatternPath(Path3, Pattern3) End If あとは関数の中身を書くだけ http://mevius.5ch.net/test/read.cgi/tech/1737657075/972
973: デフォルトの名無しさん [sage] 2025/06/07(土) 18:21:21.32 ID:QQtzQfGp >>967 ShiteiNoMojiretsu = "指定の文字列" Shitei = "指定" Path = "C:\フォルダ1" Path = Path & "\" & Dir(Path & "\*" & ShiteiNoMojiretsu & "*", vbDirectory) Path = Path & "\" & Dir(Path & "\*" & ShiteiNoMojiretsu & "*", vbDirectory) If Dir(Path & "\" & Shitei, vbDirectory) = "" Then MkDir Path & "\" & Shitei End If http://mevius.5ch.net/test/read.cgi/tech/1737657075/973
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.035s