VBScript, wie man irgendwelche Dateien liest, die mit testdata_.txt beginnen?

Question

Ich habe ein System, das testdata_1.txt, testdata_2.txt und so weiter automatisch generiert. Ich möchte die Datei lesen, die mit testdata_ beginnt und sie verarbeitet, wie gehe ich vor? Ich habe versucht, testdata_ * aber im folgenden Code zu verwenden, aber es funktioniert nicht. Jede Hilfe ist appreaciated. Vielen Dank.

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

Dies kann Ihnen helfen:

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

Durchlaufen Sie den Ordner und wählen Sie die gewünschten Dateien aus. Ich benutze Left() hier.

'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