|
▼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
***************************************************************
|
|