VBScript脚本实现在目录中自动获取某个文件

发布时间:2020-07-04 09:03:09 作者:孤月2012
来源:网络 阅读:578

1、 应用场景:通常在开发流上都会保留本版本或历史版本的多个bulid,若需要获取目录中(目录中除了build还有很多其他名称不一样的文件)最新的build安装该如何写脚本实现呢?而且通常build的命名中都会有依次增加的version号,该如何实现脚本可每日重复使用呢?

2、实现思路:1>处理文件名称,定义一个常量文件名,将文件名中的变化的version号用*代替;

                2>给定已知的目录,获取给目录下所有的子文件,然后将按*分割,依次匹配子文件的文件名和被分割的这两部分名称。

3、代码如下:

'Description:fetch new build
'author:Alan
'Date:2014-10-31
Function strFetchBuild(path,filename)  
    Dim i,j,FileNames,splits,flag
    FileNames = aGetAllFillname(path)
    If IsEmpty(FileNames)=false and IsArray(FileNames) Then 
        'whether the filename format is right or not
        If Instr(filename,"*")>0 Then
            'according to * split filename 
            splits=Split(filename,"*")        
            For i=0 To UBound(FileNames)
                flag=0
                ' If each split block are matched, then return name
                For j= 0 To UBound(splits)
                    If Instr(FileNames(i),splits(j))>0 Then
                        flag=flag+1                       
                    End If     
                Next               
                If flag = UBound(splits)+1 Then
                    strFetchBuild = path & "\" & FileNames(i)
                Else
                    'If didn't match to the end of the loop, then exit function
                    If i=UBound(FileNames)+1 Then
                        Log.Error("The file:" & filename & " not found.")
                        strFetchBuild = ""
                        Exit Function                   
                    End If                  
                End If        
            Next
        Else
            Log.Error("The file name format" &"'" & filename & "'"&" is not right.")
            strFetchBuild = ""
            Exit Function
        End If             
    Else
        Log.Error("The path:" & path & " not exists.")
        strFetchBuild = ""
    End If  
End Function

 

推荐阅读:
  1. 如何实现在WordPress文章中自动获取网站截图的方法
  2. 如何实现在JS文件中获取Vue组件

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

vbscript bs t脚本

上一篇:基于Python3的漏洞检测工具 ( Python3 插件式框架 )

下一篇:cocos2dx中onExitTransitionDidStart、onExit和onEnter、onEnterTransitionDidFinish处理机制

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》