VBScript testdata_.txtで始まるファイルを読み取る方法は？

Question

私はtestdata_1.txt、testdata_2.txtなどを自動生成するシステムを持っています。私はtestdata_で始まるファイルを読んで処理したいのですが、どうすればこのことを知ることができますか？私はtestdata_ *を使用しようとしましたが、次のコードでは動作しません。どんな助けも必要です。どうもありがとうございました。

sPath = "database/" 
    sFile = "testdata_*.txt" 
    sFileName = sPath & sFile  
    Set fso = Server.CreateObject("Scripting.FileSystemObject") 
    set fs = fso.OpenTextFile(Server.MapPath(sFileName), 1, true) 
    if not fs.AtEndOfStream then 
     Do while not fs.AtEndOfStream 

Answer 1

これはあなたを助けることができます。

sPath = "database/" 
sFile = "testdata_" 

'Modify this line to indicate the disk drive where the files are located. 
sDir = "C:\" & sPath 

Set obj_FS = CreateObject("Scripting.FileSystemObject") 

Set obj_FolderBase = obj_FS.GetFolder(sDir) 

For Each obj_File In obj_FolderBase.Files  
    If Mid(obj_File.Name,1,9) = sFile then  
     set objReadFile = obj_FS.OpenTextFile (obj_File.Name, 1, False) 
     content = objReadFile.ReadAll 
     objReadFile.close 
     Wscript.Echo content   
    End If  
Next 

Answer 2

希望のファイルを選択してフォルダをループします。私はここでLeft()を使用します。

'On Error Resume Next 
Set fso = CreateObject("Scripting.FileSystemObject") 
Dirname = InputBox("Enter Dir name") 
    Set fldr = fso.GetFolder(Dirname) 

    Set Fls = fldr.files 
    On Error Resume Next 

    For Each thing in Fls 
     If Left(thing.name,9) = "TestData_" then 
       msgbox thing.name 
     End If 
    Next