tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルフォルダ及びファイルの検索について
記事No13014
投稿日: 2008/09/05(Fri) 13:47
投稿者ぴょん太
現在、VB側より指定ファイルの検索を行いたいと考えております。
存在するかどうかの過程でつまずいています。

@探す場所を指定しないと広範囲になってしまう為、特定場所をコンボボックスで
 指定出来るようにしたい
 例)『デスクトップ』←選択された項目
   ※『ローカルディスク(C:)』、『マイコンピュータ』のような形式で
     表示を行いたいです
    
     また、コンボボックスより選択後、裏では指定されたパスを
     取得したいです

A上記の場所より(エクセルの)ファイルの検索
 テキスト入力した内容のファイルを検索
 例)『aaa.xls』←入力された内容
    ★ここは問題ありません。
 
下記の『txtFILENM』に@のファイルとAの場所をセットしたいと思っています。
※フルパスになるはず?

    Dim fs As New Scripting.FileSystemObject
    Dim bolFlg As Boolean
    'ファイルが存在するか判断
    bolFlg = fs.FileExists(txtFILENM)
    If bolFlg = False Then
        MsgBox ("ファイルは存在しません")
    Else
        MsgBox ("ファイルは存在します☆")
    End If

どなたかアドバイスを頂けないでしょうか?

[ツリー表示へ]
タイトルRe: フォルダ及びファイルの検索について
記事No13016
投稿日: 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

[ツリー表示へ]
タイトル【解決】フォルダ及びファイルの検索について
記事No13025
投稿日: 2008/09/08(Mon) 13:58
投稿者ぴょん太
お世話になっております。返信が遅れてしまいました。
ファイルの指定の仕方ですが、参照用のダイアログよりパスを
取得する方法にする事で解決致しました。
参考にしましたURLがありますので添付致します。

http://jeanne.wankuma.com/tips/vb6/dialog/folderbrowser.html

回答ありがとうございました。

[ツリー表示へ]