Excel VBA質問箱 IV

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

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


8529 / 76732 ←次へ | 前へ→

【73773】Re:リストボックスにファイル名が重複して表示
発言  akichn  - 13/2/13(水) 9:37 -

引用なし
パスワード
   ▼UO3 さん:
>▼akichn さん:
>
>おはようございます
>
>FileSearchオブジェクトについては詳しくありませんし、
>2003までで、打ち切られ、2007以降では動きませんので
>ごく普通に Dir関数を使われてはいかがでしょう。
>
>それより、TextBox1_Change を使われているのが気になります。
>これは【1文字】入力するたびに発生します。
>
>c:\Test といれるとすると
>
>c で発生、c: で発生 c:\ で発生 c:\T で発生、・・・・・
>
>TextBox1_Change ではなく、別途、コマンドボタンを用意して、そのクリックイベントで
>処理されるべきでは?
>
>>
UO3 さん
早速のご回答ありがとうございます。
TextBox1_Changeのイベントは、井上治さんのフォルダー参照のAPIを利用させて頂いております。なのでイベントの発生は多発することは無いようなっております。
*********************************************
Private Sub CommandButton1_Click()  
  Dim strPATHNAME As String
  ' 「フォルダの参照」ダイアログよりフォルダ名の取得(Shell)
  strPATHNAME = modSHBrowseForFolder.fncBrowseForFolder("フォルダを指定して下さい", True, _
    Me.Caption)
  If strPATHNAME <> "" Then TextBox1.Text = strPATHNAME
End Sub
***************************************************************
311 hits

【73771】リストボックスにファイル名が重複して表示 akichn 13/2/13(水) 8:58 質問
【73772】Re:リストボックスにファイル名が重複して... UO3 13/2/13(水) 9:23 発言
【73773】Re:リストボックスにファイル名が重複して... akichn 13/2/13(水) 9:37 発言
【73774】Re:リストボックスにファイル名が重複して... akichn 13/2/13(水) 10:48 発言
【73775】Re:リストボックスにファイル名が重複して... UO3 13/2/13(水) 11:54 発言
【73777】Re:リストボックスにファイル名が重複して... akichn 13/2/13(水) 12:39 お礼
【73776】Re:リストボックスにファイル名が重複して... UO3 13/2/13(水) 11:58 発言
【73778】Re:リストボックスにファイル名が重複して... akichn 13/2/13(水) 13:00 お礼
【73779】Re:リストボックスにファイル名が重複して... UO3 13/2/13(水) 17:36 発言

8529 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free