Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Visual Source Safe
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
01163758
Message ID:
01198094
Vues:
10
David,

Based on the code you provided here, and from what I gathered from the Object Browser,
I was able to come up with the code below.

However, I am getting errors 'Unknown Name' errors when trying to access the properties
on the Version object. The Object Browser shows these properties on the Version class,
yet it errors.

I would appreciate any insight you have. Thanks!
#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
Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform