#INCLUDE vss.h SET ESCAPE ON cIniFile = "c:\program files\microsoft visual studio\common\vss\srcsafe.ini" cItem = "$/Series7/rp/envisionreports" oVSS = CREATEOBJECT("SourceSafe") oVSS.Open(cIniFile, "", "" ) oFolder = oVSS.VSSItem(cItem) FOR nItem = 1 TO oFolder.Items.Count oItem = oFolder.Items.Item(nItem) ? oItem.Name ? IIF(oItem.Type = 0, 'Project', 'Item') ? TRANSFORM(oItem.LocalSpec) ? TRANSFORM(oItem.Spec) ? TRANSFORM(oItem.VersionNumber) ? TRANSFORM(oItem.Parent.Name) ? TRANSFORM(oItem.Deleted) ? IF oItem.VersionNumber > 1 FOR nVersion = oItem.VersionNumber TO 1 STEP - 1 oVersion = oItem.Version(nVersion) ** ====> The following lines don't work ? oVersion.Action ? oVersion.Comment ? oVersion.Date ? oVersion.Label ? oVersion.LabelComment ? oVersion.UserName ENDFOR ENDIF ENDFOR RETURN