Team Foundation Server SDKを使用してフォルダとファイルを追加します。

Question

私のソリューションの下にあるプロジェクトの下にフォルダとファイルが表示される問題があります。ファイルは、TFSに追加されていますが、私のプロジェクトでは、ファイルが存在するという考えを持っていないと私はその後、プロジェクトは知らないこのライン

Directory.CreateDirectory(fooString.ServerItem & "/FOOAdmin/Updates/" & txtVersion.Text) 

を追加しない場合、白

Dim tfs As TeamFoundationServer = TeamFoundationServerFactory.GetServer(txtServer.Text) 

' Get a reference to Source Control. 
Dim versionControl As VersionControlServer = CType(tfs.GetService(GetType(VersionControlServer)), VersionControlServer) 

' Create a workspace. 
Dim workspace As Workspace = versionControl.GetWorkspace(txtProject.Text) 

If Not String.IsNullOrEmpty(txtUpdateScript.Text) Then 
      Dim fooString = Array.Find(Of WorkingFolder)(workspace.Folders, Function(m) m.ServerItem.Contains("$/FOO.NET")) 
      Directory.CreateDirectory(IO.Path.Combine(IO.Path.Combine(txtProject.Text, "FOOAdmin\Updates"), txtVersion.Text)) 
      Directory.CreateDirectory(fooString.ServerItem & "/FOOAdmin/Updates/" & txtVersion.Text) 
      IO.File.Copy(txtUpdateScript.Text, IO.Path.Combine(IO.Path.Combine(IO.Path.Combine(txtProject.Text, "FOOAdmin\Updates"), txtVersion.Text), "Update.sql"), True) 
      workspace.PendAdd(IO.Path.Combine(IO.Path.Combine(txtProject.Text, "FOOAdmin\Updates"), txtVersion.Text)) 
      workspace.PendAdd(IO.Path.Combine(IO.Path.Combine(IO.Path.Combine(txtProject.Text, "FOOAdmin\Updates"), txtVersion.Text), "Update.sql")) 
End If 

' Get Pending changes 
Dim pendingChanges As PendingChange() = workspace.GetPendingChanges() 

' Checkin the items we added. 
Dim changesetNumber As Integer = workspace.CheckIn(pendingChanges, "FOO.Net AutoBuild") 

としてそれを示していますフォルダまたはファイル。

Answer 1

サーバー上にファイルが存在していても、ソリューションまたはプロジェクトの一部であるとは限りません。私はあなたのコードが何をすべきかを100％確信しているわけではありませんが、対応する* .vbproj（または何でも）ファイルも変更しない限り、どのプロジェクトにも影響しません。

PS - ディレクトリの変更を保留する必要はありません。 PendAdd（ "$/path/to/file.txt"）は、まだ存在しない場合、親ディレクトリに暗黙的な追加を保留します。