频道栏目
首页 > 程序开发 > 综合编程 > 其他综合 > 正文
rti文件转rt工具
2010-08-28 12:37:06           
收藏   我要投稿

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 放在一起就可以了

点击复制链接 与好友分享!回本站首页
相关TAG标签 文件 工具
上一篇:中,美,印,日四国程序员比较
下一篇:正则表达式入门
相关文章
图文推荐
点击排行

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训 | 举报中心

版权所有: 红黑联盟--致力于做实用的IT技术学习网站