のTeam Foundation：

Question

Dim _versionControlServer As VersionControlServer = tfs.GetService(Of VersionControlServer)() 
Dim _workspace As Workspace = _versionControlServer.GetWorkspace(Path.GetDirectoryName(Path.GetDirectoryName(System.IO.Directory.GetCurrentDirectory()))) 

GetWorkspace()のための作業フォルダマッピングは、例外がスローされていない： "のための作業フォルダのマッピングはありません.."

（Windowsの10、Visual Studioの2012年、VB.Net 、TeamFoundation Serverバージョン12.0、特定のバージョン=真）

Answer 1

チェックthis case：

は、作品を作成するために、VersionControlServer.CreateWorkSpaceメソッドを使用しますペースを調整し、作業フォルダを設定します（WorkingFolder()を受け入れる過負荷のいずれかを使用します）。

Answer 2

このコードは、VS2013とVS2015の両方で使用できます。あなたは（https://msdn.microsoft.com/en-us/library/microsoft.teamfoundation.versioncontrol.client.versioncontrolserver.createworkspace（V = vs.110）.aspxの[ワークスペースを作成]することができます

Imports Microsoft.TeamFoundation.Client 
Imports Microsoft.TeamFoundation.VersionControl.Client 

Module Module1 

    Dim localFolder As String = "C:\TFS\Path\to\source" 
    Dim serverFolder As String = "$/Path/to/source" 
    Dim tfsUri As Uri = New Uri("https://tfs.yourcompany.com/tfs/YourCollection") 
    Dim workspaceName As String = "newWorkspace" 

    Function CreateOrMapWorkspace() As Workspace 
     REM TfsTeamProjectCollection Is IDisposable so a "using" Is recommended. 
     Using ttpc As New TfsTeamProjectCollection(tfsUri) 


      Dim vcs As VersionControlServer = ttpc.GetService(Of VersionControlServer)() 
      Dim ws As Workspace 
      Try 

       ws = vcs.GetWorkspace(localFolder) 
      Catch 

       REM create workspace 
       Dim cwp As CreateWorkspaceParameters = New CreateWorkspaceParameters(workspaceName) 
       cwp.Folders = Array.CreateInstance(GetType(WorkingFolder), 1) 
       cwp.Folders(0) = New WorkingFolder(serverFolder, localFolder) 
       ws = vcs.CreateWorkspace(cwp) 
      End Try 

      Return ws 

     End Using 
    End Function 

    Sub Main() 
     CreateOrMapWorkspace() 
    End Sub 

End Module