Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
58751 / 76732 ←次へ　｜　前へ→
【22704】Re:Dir関数でサブフォルダまでファイル検索
発言  kazu  - 05/2/28(月) 21:43 -
引用なし
パスワード
   ▼桜 さん：
Function Lv_Chk(Fld_Main, StrFld)
　　　　　　Cnt = InStr(1, Fld_Main, StrFld)
　　　　　　Tmp = Split(Mid(StrFld, Len(Fld_Main) + 1), "\")
　　　　　　Lv_Chk = UBound(Tmp)
　　　　End Function


Cnt = InStr(1, Fld_Main, StrFld) ←　無いなら無いでもいいですね・・・。

Tmp = Split(Mid(StrFld, Len(Fld_Main) + 1), "\")

例えば　StrFld=C:\TEST\A\B\CC　というﾌｫﾙﾀﾞだったとします。
Fld_Main　=　C:\TEST　ですね。

ここでTmpの値は

Tmp(0) = ""　　
Tmp(1) = "A"　
Tmp(2) = "B"
Tmp(3) = "CC"

となります。
つまり、文字列　"\"にて区切って配列化している訳です。

Lv_Chk = UBound(Tmp)
つまり　Lv_Chkは3となります。

\文字列で切るって事は、階層数をカウントしてるのとおんなじ事になります。

ん？？でも何で　-1したんだろ？？・・・。
何か矛盾してる気も・・・。

-1　要らないかも・・・。

何か頭まわんないです。
やっぱ私のPrg適当ですね（＾＾；　反省します。はぃ。

こんな感じで解ってもらえますか？
0 hits
▼ 【22592】Dir関数でサブフォルダまでファイル検索 桜 05/2/24(木) 14:39 質問
【22594】Re:Dir関数でサブフォルダまでファイル検索 MMX 05/2/24(木) 15:06 発言
【22596】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/24(木) 15:47 発言
【22602】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/24(木) 18:34 質問
【22610】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/24(木) 19:35 質問
【22613】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/24(木) 19:46 発言
【22615】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/24(木) 19:57 質問
【22617】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/24(木) 20:24 発言
【22620】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/24(木) 21:48 質問
【22622】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/24(木) 22:06 発言
【22628】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/24(木) 22:48 質問
【22630】Re:Dir関数でサブフォルダまでファイル検索 ichinose 05/2/24(木) 22:57 発言
【22632】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/24(木) 23:19 発言
【22641】Re:Dir関数でサブフォルダまでファイル検索 MMX 05/2/25(金) 10:17 お礼
【22642】Re:Dir関数でサブフォルダまでファイル検索 でれすけ 05/2/25(金) 10:31 発言
【22646】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/25(金) 12:02 お礼
【22681】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/28(月) 1:12 質問
【22682】Re:Dir関数でサブフォルダまでファイル検索 ちゃっぴ 05/2/28(月) 1:21 発言
【22683】Re:Dir関数でサブフォルダまでファイル検索 でれすけ 05/2/28(月) 1:28 回答
【22689】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/28(月) 13:27 発言
【22691】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/28(月) 15:11 質問
【22693】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/28(月) 18:09 発言
【22694】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/28(月) 18:13 発言
【22700】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/28(月) 20:13 質問
【22704】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/28(月) 21:43 発言≪
【22705】Re:Dir関数でサブフォルダまでファイル検索 イオン 05/2/28(月) 21:48 お礼
【22722】Re:Dir関数でサブフォルダまでファイル検索 桜 05/3/1(火) 10:18 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
58751 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free