VBScriptを使用してキーワードを検索してから検索を実行するにはどうすればよいですか？

Question

私は、InputBoxを介してキーワードを入力するようユーザーに促したいと思います。

dir *creek* /s 

そして、私は、ユーザーにファイルを返却したいと「/ s」は正確に最善ではないかもしれない：彼らは入力した後、小川は、その後、エンターキーを押し、私は、その後のようなものを実行したいと言います/ sが単なるファイル名以上を返す間は、名前だけを返します。

私はVbscripting to search for file via user input, calling functions to ask a series of questions to do tasksがうまく動作するとわかりましたが、私はユーザーフレンドリーにしようとしています。特に、ワイルドカードを使用できるようにしてください。

Answer 1

2番目の質問「ワイルドカードを使用して検索するリンクのコードを変更するにはどうすればよいですか」に答えるには問題のコードはサブルーチンです：

Sub FindFile(searchname, searchdir) ' Two parameters: file name, search directory 
    On Error Resume Next ' Enable error handling so we don't crash out on access denied errors 
    Dim file, folder, subfolder 
    For Each file In fso.GetFolder(searchdir).Files ' Process each file (as a file object) in the search directory 
     If LCase(searchname) = LCase(file.Name) Then ' See if file name matches. Using LCase to convert both to lowercase for case insensitivity. 
      ReDim Preserve fileslist(UBound(fileslist) + 1) ' If match found then increase array size by 1 
      fileslist(UBound(fileslist)) = file.Path ' Store the file path in newly added array entry 
     End If 
    Next 
    ' Now the recursive bit. For any subfolders in current search directory, call FindFile again 
    ' with (1) the same file name originally passed in as "searchname", and (2) a new search 
    ' directory of the subfolder's name. FindFile then starts again on this new directory: finds files, 
    ' adds matches to the fileslist array, then does the same on each subfolder found. This 
    ' is how it searches each subfolder (and subfolders of subfolders... etc) in a directory 
    For Each subfolder In fso.GetFolder(searchdir).SubFolders 
     FindFile searchname, subfolder.Path 
    Next 
    On Error GoTo 0 
End Sub 

ここで重要なのビットがラインIf LCase(searchname) = LCase(file.Name) Thenです。 searchnameは、ワイルドカード型の検索として働き、文字列file.name、中に含まれている場合はtrueを返します

If instr(1,LCase(file.Name), LCase(searchname)) Then 

：私たちは、これを変更することができます。

次の行：名前だけではなく、パスを取得するために

fileslist(UBound(fileslist)) = file.Name 

：

fileslist(UBound(fileslist)) = file.Path 

に変更することでした。