TortoriseSVNを呼び出してコミット。
TortoiseSVN 1.0.6で動作確認済み
Sub TortoiseCommit() Dim slnDir As String = Path.GetDirectoryName(DTE.Solution.FullName) Dim pathFileName As String = Path.Combine(slnDir, "SlgDirPath.txt") Dim writer As BinaryWriter = New BinaryWriter(New FileStream(pathFileName, FileMode.Create)) Dim contents As String = slnDir + Chr(10) Dim n As Integer Dim val As Int16 For n = 0 To contents.Length - 1 val = CType(AscW(contents.Chars(n)), Int16) writer.Write(val) Next writer.Close() Dim ps As System.Diagnostics.Process = New System.Diagnostics.Process ps.StartInfo.FileName = "C:\Program Files\TortoiseSVN\TortoiseProc.exe" ' 環境に応じて書き換える必要有り。 ps.StartInfo.Arguments = "/command:commit /path:""" + pathFileName + """" ps.Start() End Sub