* 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