无法为使用FrontPage RPC上载到SharePoint的文件设置修改日期
当我使用带有以下代码的FPRC将文件上载到SharePoint以设置vti_timelastmodified时,显示的修改日期始终为当前日期:无法为使用FrontPage RPC上载到SharePoint的文件设置修改日期,sharepoint,upload,metadata,frontpage-extensions,Sharepoint,Upload,Metadata,Frontpage Extensions,当我使用带有以下代码的FPRC将文件上载到SharePoint以设置vti_timelastmodified时,显示的修改日期始终为当前日期: Public Sub UploadSharepointFile(ByVal sSourcePath As String, ByVal sContent As String, ByVal SiteURL As String, ByVal DocName As String, _ Optional B
Public Sub UploadSharepointFile(ByVal sSourcePath As String, ByVal sContent As String, ByVal SiteURL As String, ByVal DocName As String, _
Optional ByVal sOrigPath As String, Optional ByVal sOrigName As String, _
Optional ByVal checkincomment As String, Optional ModDate As Date, Optional FileID As Long)
Dim stream As New ADODB.stream
Dim stream2 As New ADODB.stream
Dim xmlHTTP As New MSXML2.xmlHTTP
strHeader = "method=put+document%3a12.0.4518.1016" & _
"&service_name=%2f" & _
"&document=[document_name=" & Escape(DocName) & _
";meta_info=[Original%20Path%3bSW%7c" & Escape(sOrigPath) & _
";Original%20Name%3bSW%7c" & Escape(sOrigName) & _
";vti_timelastmodified3bTR%7c" & Format(ModDate, "DD+MMM+YYYY+hh:mm:ss") & _
"]]&put_option=overwrite,createdir,migrationsemantics" & _
"&comment=" & _
"&keep%5fchecked%5fout=false" & vbLf
byteArray = StringToByteArray(strHeader)
stream.Open
stream.Type = 1 ''adTypeBinary
stream.Write byteArray
stream2.Open
stream2.Type = 1 'adTypeBinary
stream2.LoadFromFile sSourcePath
stream2.CopyTo stream, -1
stream.Position = 0
'Set xmlHTTP = CreateObject("MSXML2.XMLHTTP")
xmlHTTP.Open "POST", SiteURL + "/_vti_bin/_vti_aut/author.dll", False, UserName, Password
xmlHTTP.setRequestHeader "Content-Type", "application/x-vermeer-urlencoded"
xmlHTTP.setRequestHeader "X-Vermeer-Content-Type", "application/x-vermeer-urlencoded"
xmlHTTP.setRequestHeader "User-Agent", "FrontPage"
xmlHTTP.send stream
如果我将自定义日期字段设置为“Original Modified”,如下所示,则新字段中会显示正确的日期
strHeader = "method=put+document%3a12.0.4518.1016" & _
"&service_name=%2f" & _
"&document=[document_name=" & Escape(DocName) & _
";meta_info=[Original%20Path%3bSW%7c" & Escape(sOrigPath) & _
";Original%20Name%3bSW%7c" & Escape(sOrigName) & _
";Original%20Modified%3bTR%7c" & Format(ModDate, "DD+MMM+YYYY+hh:mm:ss") & _
"]]&put_option=overwrite,createdir,migrationsemantics" & _
"&comment=" & _
"&keep%5fchecked%5fout=false" & vbLf
End If
是否有办法将上传时修改的vti_lasttimemodified修改为预设值
西蒙·克拉维斯