按键精灵 读取指定文件夹的多个文本内容

//批量修改目标文件夹里的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

修改下路径。直接复制代码到脚本里调试就行

//由于你这个是txt转doc文件,所以批量修改文件后缀就能实现文件转换了
//第一部分,创建一个文件来存放你选择的目录下的文件名旅岩称
dirPath=Plugin.File.SelectDirectory()
UserVar filePath="C:\a.txt" "txt文件目录存放地址"
Set F = CreateObject("Scripting.FileSystemObject")
Set FF = F.GetFolder(dirPath)
Set SF = FF.Files
I = 0
For Each a In SF
Call Plugin.File.WriteFileEx(filePath,a.Name)
Next
//第二部分,读取存放的文件名称来创建修改名称乱谨后的地址(这个里面会有一些小bug的,不过应该不影响你的使用)
Text = Plugin.File.ReadFileEx(filePath)
Dim MyArray1,MyArray2
MyArray1 = Split(Text, "|")
MyArray2 = Split(Text, "|")
i=0
For UBound(MyArray1)
MyArray2(i)=Replace(MyArray1(i), "txt", "doc")
if MyArray2(i)<>MyArray1(i)
Call Plugin.File.ReNameFile(dirPath &"\"& MyArray1(i), dirPath &"拆陪御\"& MyArray2(i))
End If
i=i+1
Next
//望采纳