//批量修改目标文件夹里的TXT文件转换doc文档
路径 = "D:\TDDOWNLOAD"
//
返回值 = Lib.文件.遍历指定目录下所有文件名(路径)
For i = 0 To UBound(返回值) - 1
    If InStr(返回值(i), "txt") > 0 Then         
        文档名 = Replace(返回值(i),"txt","doc")
        Call Plugin.File.ReNameFile(路径 &"\"& 返回值(i), 路径 &"\"& 文档名)
    End If    
Next