[OFF97]: Microsoft Office 97 プログラム FileSearch が Microsoft Windows 2000 ベース コンピューター上で

1. Windows 2000 を実行しているコンピューターで [マイ ドキュメント フォルダーに、サンプル データベース Northwind.mdb をコピーします。
2. Access 97 で新しいデータベースを作成します。
3. モジュールを作成しがいない場合 [宣言] セクションに次の行を入力:

   Option Explicit
   					

4. 次の手順を入力:

   Function TestDir(strPathName)
       Dim searchFile As String
       Dim resultString As String
       Dim fileCounter As Integer
       Dim messageString As String
      
       fileCounter = 0
       searchFile = Dir(strPathName)
   
       If searchFile <> "" Then
           fileCounter = 1
           resultString = searchFile & vbCrLf
       End If
   
       Do While searchFile <> ""
           searchFile = Dir
           If searchFile <> "" Then
               fileCounter = fileCounter + 1
               resultString = resultString & searchFile & vbCrLf
           End If
       Loop
   
       If fileCounter = 0 Then
           messageString = "No files found"
       Else
           messageString = "Found " & fileCounter & " file/s named:" _
               & vbCrLf & resultString
       End If
      
       TestDir = messageString
   End Function
   					

5. この関数をテストする、デバッグ ウィンドウで次の行を入力して Enter キーを押します:

   ?TestDir("C:\My Documents\No*.mdb")
   					

   、結果ウィンドウに返されるノート。

先頭へ戻る

.FileName = "No*.mdb"
				

動作を再現する手順

1. Windows 2000 を実行しているコンピューターで [マイ ドキュメント フォルダーに、サンプル データベース Northwind.mdb をコピーします。
2. Access 97 で新しいデータベースを作成します。
3. モジュールを作成しがいない場合 [宣言] セクションに次の行を入力:

   Option Explicit
   					

4. [ ツール ] メニューの [ 参照設定 ] をクリックし 、Office の 8. 0 オブジェクト ライブラリ のチェック ボックスをオンします。
5. 次の手順を入力:

   Function TestSearch(strLookIn, strLookFor) 
       Dim intCount As Integer 
   
       intCount = 0
   
       With Application.FileSearch 
           .NewSearch 
           .FileName = strLookFor
           .LookIn = strLookIn 
           .SearchSubFolders = False 
           .MatchTextExactly = True 
           .FileType = msoFileTypeAllFiles 
           If .Execute > 0 Then 
               intCount = .FoundFiles.Count 
           End If 
       End With
   
       testSearch = "Files found = " & intCount
   End Function
   					

6. この関数をテストする、デバッグ ウィンドウで次の行を入力して Enter キーを押します:

   ?testSearch("c:\My Documents\", "No*.mdb")
   					

   を結果返されます、デバッグ ウィンドウに初めてコードを実行することをメモします。
   
   もう一度コードを実行する場合、エラー メッセージの「現象」記載が表示されますがあります。

先頭へ戻る