tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: フォルダ及びファイルの検索について
投稿日: 2008/09/05(Fri) 15:27
投稿者花ちゃん
下記のような感じでいいのでしょうか?

Option Explicit

Private Sub Form_Load()
   '他の環境でも使用するなら決め打ちはしないで下さい。
   Combo1.AddItem "C:\"
   Combo1.AddItem "C:\Users\UserName\Desktop\"
   Combo1.AddItem "C:\Users\UserName\Documents\"
   Text1.Text = "Test.xls"
End Sub

Private Sub Combo1_Click()
   Dim myPath As String
   myPath = Combo1.List(Combo1.ListIndex)
   If Len(myPath) > 1 Then
      myPath = myPath & Text1.Text
      
      Dim MyFile As String
      MyFile = Dir$(myPath)
      If Len(MyFile) > 1 Then
          MsgBox "ファイルが見つかりました"
      Else
          MsgBox "ファイルが見つかりません"
      End If
   End If
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。