Retrieving TDMS files in Directory

Question

In the script below, I have 2 issues with the usage of DataFileLstGet :
1. The wildcard specified is (*.tdms) which I think should only look for (.tdms) files, but it is also picking up (.tmds_index) files,
     I am temporarily filtering this out by checking for the file extension length as four.
2. The function only returns that there are 2 tdms files in the directory pointed to, while in reality I have more than 2 files in this directory.
Can anyone give me an idea of what the issue could be ?  I am using Diadem version 10.2 Base Edition, VB script engine is 5,5,0,5207.
Thanks.
Option Explicit
Dim intCount
Dim ExcelFilename
Dim TDMSFilename
Dim Ret
Dim FileExt
Dim FileExt1
Dim NumFiles
FileExt1 = "TDMS"
Ret = PathNameGet("TDMSFiles Location", "D:\MFT\datamine\pmm\testresults\")
Call DataDelAll(1)
If FilEx(OutPutPath & "*.TDMS") Then
Call DataFileLstGet(OutPutPath & "*.TDMS")
'  Call MsgBoxDisp (DataFileLstLen)
  For intCount = 1 to DataFileLstLen
'  Call MsgBoxDisp (DataFileLst(intCount))
    FileExt = NameSplit(DataFileLst(intCount), "E")
'  Call MsgBoxDisp (FileExt)
'  Call MsgBoxDisp (Len(FileExt))
    FileName = NameSplit(DataFileLst(intCount), "N")
    If  Len(FileExt) = 4 Then   
        TDMSFilename = OutPutPath & DataFileLst(intCount)
        Call DataFileLoadSel(TDMSFilename,"TDMS","*/*","Load")
        ExcelFilename = OutPutPath & FileName & ".xls"
        Call ExcelExport(ExcelFilename,"", 0, OutPutPath & "EXCEL.STP")
        Call DataDelAll(1)
    End If
  Next
Else
  MsgBoxDisp("No TDMS files found")
End If

Answer 1

try this Code instead:
Option Explicit
Dim s
Dim oFSO
Dim oFolder
Dim oFiles
Dim oFile
Dim Ret
Dim ExcelFilename
Dim TDMSFilename
Ret = PathNameGet("TDMSFiles Location", "D:\MFT\datamine\pmm\testresults\")
Call DataDelAll(1)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(OutPutPath)
For Each oFile in oFolder.Files
' Do-It-Yourself Extension Filter
If UCase(NameSplit(oFile.name, "E")) = "TDMS" Then
TDMSFilename = OutPutPath & oFile.name
Call DataFileLoadSel(TDMSFilename,"TDMS","*/*","Load")
ExcelFilename = OutPutPath & FileName & ".xls"
Call ExcelExport(ExcelFilename,"", 0, OutPutPath & "EXCEL.STP")
Call DataDelAll(1)
End If
Next
Matthias Alleweldt
Project Engineer / Projektingenieur
Twigeater?