服务器搜索文件名,loops - 搜索包含服务器名称和扩展名的文件的文件夹，然后选择上次修改的文件，并在文件名中获取日期 - 堆栈内存溢出...

尝试使用VBScript执行此操作。 我有一个文件夹，其中包含多个文件，其中包含扩展名为.vib的服务器名称。 所有文件都显示为

servername.vm-T.vib

例如：

SERVERNAME.vm-255622016-08-31T040037.vib

我需要做的是获取包含servername * .vib的所有文件，然后找到该列表的最后修改文件，然后从该文件中提取日期。 日期采用xxxx-xx-xx格式，并始终在文件名中进行T，并且似乎位于相同的相对位置。

到目前为止，我已经能够通过使用这个其他问题而非常接近。

但是我遇到两件事情，找到只包含servername的文件并从文件本身获取日期。

到目前为止，这是我的代码：

Set fso = CreateObject("Scripting.FileSystemObject")

Set list = CreateObject("ADOR.Recordset")

list.Fields.Append "name", 200, 255

list.Fields.Append "date", 7

list.Open

For Each f In fso.GetFolder("J:\Files").Files

If (fso.GetExtensionName(f) = "vib") And (fso.Contains(ServerName)) Then

list.AddNew

list("name").Value = f.Path

list("date").Value = f.DateLastModified

list.Update

End If

Next

list.Sort = "date DESC"

list.MoveFirst

WScript.Echo list("name").Value

list.Close

如果我从If语句中删除fso.Contains(ServerName) ，那么代码运行，我得到最新的vib文件。 我只是无法弄清楚如何测试文件中包含的servername，所以我只得到其中包含服务器名称的文件。

我也被困在如何从文件本身拉出日期，并且无法开始找出从哪里开始。