Someone at MS please help with Pinning automation

[Rick Delorme]

Hi,

Sorry for the crosspost, but these groups do not seem to get much traffic
and I really need some help with this one.

I have written a utility that automates the pinning/unpinning process
for our sourcesafe database. All of a sudden, my tool is stopping execution
no specific files. When breaking into the app, I am getting an error
indicating access denied, but, only on specific files. It is 100%
reproducible against these specific files.
Knowing that things don't just happen all of a sudden, We have changed our
environment somewhat. I have upgrading to Win2003 server, VSS6.0D as the
client, the server that has the vss db is still vss6.0C.

Here is the code that actually is doing the pinning/unpinning, this is
pretty much copy and paste from the KB article that deals with this
automation issue:

The line that gets the access denied error is on objProject =
objItem.Parent. Thanks for any assisstance you can provide.

Rick.

Private Sub PinFile(ByVal objItem As VSSItem, ByVal version As Object)
Dim objOldItem As VSSItem
Dim objProject As VSSItem

lblItemName.Text = objItem.Name

objOldItem = objItem.Version(version)
objProject = objItem.Parent
objProject.Share(objOldItem, "", 0)

objOldItem = Nothing
objProject = Nothing

End Sub

Private Sub UnpinFile(ByVal objItem As VSSItem)
Dim objOldItem As VSSItem
Dim objProject As VSSItem
Dim version As Object
lblItemName.Text = objItem.Name
version = 0
objOldItem = objItem.Version(version)
objProject = objItem.Parent

objProject.Share(objOldItem, "", 0)

objOldItem = Nothing
objProject = Nothing
version = Nothing
End Sub