タイトル : 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 |