运行微软提供的程序，打开VSS速度很慢，主要是一下问题，
For Each objVSSVersion In objVSSObject.Versions
If objVSSVersion.VersionNumber = objVSSObject.VersionNumber Then
FileDate = objVSSVersion.Date
Exit For
End If
Next
那位大虾知道如何改进啊？

lz想实现什么呢？
这个肯定会影响速度的。
一次处理的文件越多，文件的版本越多，速度将会显著下降。