Sourcesafe automation in VB.Net

[Chris Dunaway]

I am trying to call the Get method on the VSSItem object for a specific
file, but I keep getting an COMException that includes:

Additional information: This command only works on projects.

According to the docs:

"The Get method may be called against both file and project objects. When
called against a project, all files in the project are gotten regardless of
their CheckOut status."

Here's the code I am using. v is a VSSItem object that points at the SS
project I am working with. The exception occurs on the Get method:

For Each i In v.Items
If i.Type = VSSItemType.VSSITEM_FILE Then
i.Get(i.LocalSpec, VSSFlags.VSSFLAG_REPSKIP)
End If
Next

Does anyone have an example of code that can show me how to get the latest
version of a file, not a project? I do not want to check it out, just get
the latest version.

Thanks,

--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.

[Rajiv R]

Chris,

Do you want the file in ur system? if so, pass a reference to the path as
the 1st param in Get():

VSSItem.Get(ref targetFolder,0)

Hope that helps.

--
Cheers!
Rajiv. R
Rajspace.Org

"Chris Dunaway" <dunawayc@_lunchmeat_sbcglobal.net> wrote in message
news:1c*****************************@40tude.net...

I am trying to call the Get method on the VSSItem object for a specific
file, but I keep getting an COMException that includes:

Additional information: This command only works on projects.

According to the docs:

"The Get method may be called against both file and project objects. When
called against a project, all files in the project are gotten regardless of their CheckOut status."

Here's the code I am using. v is a VSSItem object that points at the SS
project I am working with. The exception occurs on the Get method:

For Each i In v.Items
If i.Type = VSSItemType.VSSITEM_FILE Then
i.Get(i.LocalSpec, VSSFlags.VSSFLAG_REPSKIP)
End If
Next

Does anyone have an example of code that can show me how to get the latest
version of a file, not a project? I do not want to check it out, just get
the latest version.

Thanks,

--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.

[Rajiv R]

Chris,

Do you want the file in ur system? if so, pass a reference to the path as
the 1st param in Get():

VSSItem.Get(ref targetFolder,0)

Hope that helps.

--
Cheers!
Rajiv. R
Rajspace.Org

"Chris Dunaway" <dunawayc@_lunchmeat_sbcglobal.net> wrote in message
news:1c*****************************@40tude.net...

I am trying to call the Get method on the VSSItem object for a specific
file, but I keep getting an COMException that includes:

Additional information: This command only works on projects.

According to the docs:

"The Get method may be called against both file and project objects. When
called against a project, all files in the project are gotten regardless of their CheckOut status."

Here's the code I am using. v is a VSSItem object that points at the SS
project I am working with. The exception occurs on the Get method:

For Each i In v.Items
If i.Type = VSSItemType.VSSITEM_FILE Then
i.Get(i.LocalSpec, VSSFlags.VSSFLAG_REPSKIP)
End If
Next

Does anyone have an example of code that can show me how to get the latest
version of a file, not a project? I do not want to check it out, just get
the latest version.

Thanks,

--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.

[Chris Dunaway]

On Mon, 5 Apr 2004 21:10:36 +0530, Rajiv R wrote:

Chris,

Do you want the file in ur system? if so, pass a reference to the path as
the 1st param in Get():

VSSItem.Get(ref targetFolder,0)

Hope that helps.

Thanks for the response. I have changed the code to the following. That
seemed to have resolved my first problem, now I am encountering another.
When this code runs, every file returns an exception "Version Not Found".

HOWEVER: If I step through the code in debug mode, it doesn't!!!!! Just
running the code I get the exception, but stepping through the code line by
line, NO EXCEPTIONS!!??!!

Any thoughts on that one?

Private Sub GetLatestFiles(ByVal prj As VSSItem)
Dim i As VSSItem

For Each i In prj.Items
If i.Type = VSSItemType.VSSITEM_FILE Then
pbProgress.Increment(1)
Try
i.Get(i.Parent.LocalSpec & "\" & i.Name,0)
Catch ex As COMException
Debug.WriteLine("Error getting file: " & ex.Message)
End Try
pbProgress.Update()
sbStatus.Update()
Else
sbpFile.Text = "Getting " & i.Name
pbProgress.Update()
sbStatus.Update()
GetLatestFiles(i)
End If
Next
End Sub

--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.

[Chris Dunaway]

On Mon, 5 Apr 2004 21:10:36 +0530, Rajiv R wrote:

Chris,

Do you want the file in ur system? if so, pass a reference to the path as
the 1st param in Get():

VSSItem.Get(ref targetFolder,0)

Hope that helps.

Thanks for the response. I have changed the code to the following. That
seemed to have resolved my first problem, now I am encountering another.
When this code runs, every file returns an exception "Version Not Found".

HOWEVER: If I step through the code in debug mode, it doesn't!!!!! Just
running the code I get the exception, but stepping through the code line by
line, NO EXCEPTIONS!!??!!

Any thoughts on that one?

Private Sub GetLatestFiles(ByVal prj As VSSItem)
Dim i As VSSItem

For Each i In prj.Items
If i.Type = VSSItemType.VSSITEM_FILE Then
pbProgress.Increment(1)
Try
i.Get(i.Parent.LocalSpec & "\" & i.Name,0)
Catch ex As COMException
Debug.WriteLine("Error getting file: " & ex.Message)
End Try
pbProgress.Update()
sbStatus.Update()
Else
sbpFile.Text = "Getting " & i.Name
pbProgress.Update()
sbStatus.Update()
GetLatestFiles(i)
End If
Next
End Sub

--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.

[Chris Dunaway]

On Mon, 5 Apr 2004 11:17:59 -0500, Chris Dunaway wrote:

Thanks for any and all responses, but I resolved the issue.

Apparently, I was using a version 5 of the VSS database without realizing
it. Here is a KB article that helped me RESOLVE the problem:

http://support.microsoft.com/default...97&Product=vss
--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.

[Chris Dunaway]

On Mon, 5 Apr 2004 11:17:59 -0500, Chris Dunaway wrote:

Thanks for any and all responses, but I resolved the issue.

Apparently, I was using a version 5 of the VSS database without realizing
it. Here is a KB article that helped me RESOLVE the problem:

http://support.microsoft.com/default...97&Product=vss
--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.

[Joe Masters]

Have a look at the sample application written in VB at:

http://msdn.microsoft.com/ssafe/downloads/samples.asp

It does its best using the automation model to duplicate the VSS Explorer
interface. Usually you can see how things are done from the code there.

If you need the VSS Automation documentation, you can find it here:

http://msdn.microsoft.com/ssafe/technical/articles.asp

Joe

"Chris Dunaway" <dunawayc@_lunchmeat_sbcglobal.net> wrote in message
news:1c*****************************@40tude.net...

I am trying to call the Get method on the VSSItem object for a specific
file, but I keep getting an COMException that includes:

Additional information: This command only works on projects.

According to the docs:

"The Get method may be called against both file and project objects. When
called against a project, all files in the project are gotten regardless of their CheckOut status."

Here's the code I am using. v is a VSSItem object that points at the SS
project I am working with. The exception occurs on the Get method:

For Each i In v.Items
If i.Type = VSSItemType.VSSITEM_FILE Then
i.Get(i.LocalSpec, VSSFlags.VSSFLAG_REPSKIP)
End If
Next

Does anyone have an example of code that can show me how to get the latest
version of a file, not a project? I do not want to check it out, just get
the latest version.

Thanks,

--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.

[Joe Masters]

Have a look at the sample application written in VB at:

http://msdn.microsoft.com/ssafe/downloads/samples.asp

It does its best using the automation model to duplicate the VSS Explorer
interface. Usually you can see how things are done from the code there.

If you need the VSS Automation documentation, you can find it here:

http://msdn.microsoft.com/ssafe/technical/articles.asp

Joe

"Chris Dunaway" <dunawayc@_lunchmeat_sbcglobal.net> wrote in message
news:1c*****************************@40tude.net...

I am trying to call the Get method on the VSSItem object for a specific
file, but I keep getting an COMException that includes:

Additional information: This command only works on projects.

According to the docs:

"The Get method may be called against both file and project objects. When
called against a project, all files in the project are gotten regardless of their CheckOut status."

Here's the code I am using. v is a VSSItem object that points at the SS
project I am working with. The exception occurs on the Get method:

For Each i In v.Items
If i.Type = VSSItemType.VSSITEM_FILE Then
i.Get(i.LocalSpec, VSSFlags.VSSFLAG_REPSKIP)
End If
Next

Does anyone have an example of code that can show me how to get the latest
version of a file, not a project? I do not want to check it out, just get
the latest version.

Thanks,

--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.