Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Visual Source and project management
Message
De
22/05/2003 11:04:58
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Source Safe Control
Divers
Thread ID:
00788975
Message ID:
00791642
Vues:
34
Joe,

>I recommend automating VSS (via COM) from VFP to always get the latest files and then do the build. It would be easy to write a small PRG that set default to the build folder, gathered all the files, and performed the build, maybe even delpoying files to certain locations for testing, etc.

I don't know if you could automate the build from a different directory since the project files are not in SourceSafe. But that's if you use the integrated option. Maybe I'm wrong.

Anyway, here is some sample code that gets the latest version of some files to a directory other that the default working directory. BTW, the interview went well. Really a nice place.


* Create sourcesafe object
oSourceSafe = CREATEOBJECT('SourceSafe')
oSourceSafe.Open("C:\Program Files\Microsoft Visual Studio\Vss\SrcSafe.INI","duhlman","")

* Get latest app data
* Open the appdata project
oVSSItem = oSourceSafe.VSSItem('$/2002/casclient2002/appdata/')

* Save the current working directory
cCurrentDir = oVSSItem.LocalSpec

* Change the working directory
oVSSItem.LocalSpec = 'T:\Appdata'

* Get the items
oVSSItems = oVSSItem.Items()
bUpdatedAppData = .f.
FOR EACH oNode IN oVSSItems

IF FILE('T:\appdata\' + ALLTRIM(oNode.Name))

IF oNode.IsDifferent

oNode.Get
bUpdatedAppData = .t.

ENDIF

ELSE

oNode.Get
bUpdatedAppData = .t.

ENDIF

ENDFOR


Dan
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform