rti文件转rt工具


dim fs,foldername
Set wshell = CreateObject("wscript.shell")
Dim fileName()
    foldername = InputBox("请输入rti文件目录", "rit文件转换工具")
    If foldername = "" Then
        wscript.quit
    End If
    Set fs = CreateObject("scripting.filesystemobject")
    digui (foldername)调用递归函数进行查找
    For Each fn In fileName
   If InStr(fn,".rti")<>0 And InStr(fn,".index")=0 Then
  
    wshell.run("cmd.exe /c rti2rto.exe "&fn)
    MsgBox fn
    Wscript.sleep 20000
   
   End if
    next
下面是递归查找函数
Function digui(path)
    Set folder = fs.getfolder(path)
    Set subfolders = folder.subfolders
    Set Files = folder.Files
Dim a
a=1
    For Each i In Files
        ReDim Preserve fileName(a) 
   fileName(a) = i.name
   a = a + 1
  
    Next
    For Each j In subfolders
        digui (j.path) 递归查找子目录
    Next
End Function
先下载 rti2rto.exe 这个工具，把vbs脚本和rti2rto.exe 放在一起就可以了

补充：综合编程 , 其他综合 ,