Move/copy a folder with its children to Livelink
问题 I'm already using the following code to copy a file to Livelink: Public Function saveFileLL(target As Long, pathSource As String, fileName As String) As Boolean Dim dav As New ADODB.Record Dim files As New ADODB.Recordset Dim objStream As New ADODB.Stream Dim url As String If Not Val(Nz(target, 0)) > 0 Or Not pathSource Like "*.*" Or Not fileName Like "*.*" Then saveFileLL = False Exit Function End If url = URL_LIVELINK_DAV & target dav.Open url, , adModeReadWrite Set files = dav.GetChildren