VBScript腳本實現在目錄中自動獲取某個文件

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