批量签入SharePoint文档库中的文件

以前有人问过我这个问题，批量上传的文档都是签出状态，必须一个个签入，不方便，有没有办法？
写了一段程序，一个循环，首先判断一下该文件是否被签出(CheckOutStatus)，若签出则签入，非常简单：
SPSite site = new SPSite(站点路径);
SPWeb web = site.OpenWeb(文档库web站点路径);
SPList li=web.Lists[文档库名字];
for (int i = 0; i < li.Items.Count;i++ )

{
SPFile file = li.Items.File;
if (file.CheckOutStatus.ToString() != "None")

{ //判断文件状态，签出状态：LongTermOffline
file.CheckIn("check in by code");
file.Update();
}
}
创建一个控制台应用程序，就可以将相应站点相应文档库中的文件全部签入。这段代码只是简单的将所有的处于签出状态的文件全部签入。
类似的，在代码里签出也是一件很简单的事情，对应函数是CheckOut().