主题：文件递归问题

你现在是想去掉后缀？

Dim fl = "abc.txt"
Dim idx As Integer = fl.LastIndexOf(".")
fl = fl.SubString(0,idx)
msgbox(fl)

Dim path As String = args(0)
Dim ls = args(1)

For Each file As String In FileSys.GetFiles(path)
    Dim fl = FileSys.GetName(file)
    Dim idx As Integer = fl.LastIndexOf(".")
    fl = fl.SubString(0,idx)
    ls.add(fl)
Next

For Each p As String In FileSys.GetDirectories(path)
    Functions.Execute("递归", p, ls)
Next

1、没影响；

2、没看懂你这段代码的意思。CRCCheckFile要传进去的要是完整的路径。你 dglst 要得到的应该是文件的全路径才行。