in the attached file, function GetFileList there is a line
mess = m_sMes.Split(seperator)
mess is an array of string:
So if the fucntion GetFileList you are reading the file names into the array 'mess'. So you need a new function to get the version, you already have the filenames in a string array. Pass 'mess' array into a function to loop through the array and do some string compair to find the file you need.
Public Function GetVerFile(ByVal mess() As String)
Dim VerFileName As String
For Each strfile In mess
If strfile.SubString(0, 3) = "Ver" And strfile.Substring(strfile.length - 3, 3) = "txt" Then
''do some code here. If code is here then strfile must start with 'Ver' and end with 'txt'. This is persuming that the names returned in the array have the extension on the end.