Мне нужно удалить файл Sharepoint с помощью задачи «Сценарий» из служб SSIS.В Visual Basic я пытался использовать SPListItemCollection
с импортом Microsoft.Sharepoint
, но он не распознает пространство имен.Я не нашел много тем на эту тему, или то, что я нашел, не было связано с задачей скрипта, поэтому любая помощь будет очень признательна.Большое спасибо
Обновление на основе ответа @Hadi
Спасибо Хади за ваш ответ.Я отказался от идеи использования SPListCollection, поскольку она кажется слишком сложной.Вместо этого я пытаюсь удалить файл после его загрузки из Sharepoint в локальную папку.Мне нужна помощь в строке, которая на самом деле удаляет файл.Вот код:
Public Sub Main()
Try
' get location of local folder
Dim dir As DirectoryInfo = New DirectoryInfo(Dts.Variables("DestP").Value.ToString())
If dir.Exists Then
' Create the filename for local storage
Dim file As FileInfo = New FileInfo(dir.FullName & "\" & Dts.Variables("FileName").Value.ToString())
If Not file.Exists Then
' get the path of the file to download
Dim fileUrl As String = Dts.Variables("SHP_URL").Value.ToString()
If fileUrl.Length <> 0 Then
Dim client As New WebClient()
If Left(fileUrl, 4).ToLower() = "http" Then
'download the file from SharePoint
client.Credentials = New System.Net.NetworkCredential(Dts.Variables("$Project::UserN").Value.ToString(), Dts.Variables("$Project::Passw").Value.ToString())
client.DownloadFile(fileUrl.ToString() & "/" & Dts.Variables("FileName").Value.ToString(), file.FullName)
Else
System.IO.File.Copy(fileUrl.ToString() & Dts.Variables("FileName").Value.ToString(), file.FullName)
End If
'delete file from Sharepoint
client.(fileUrl.ToString() & "/" & Dts.Variables("FileName").Value.ToString(), file.FullName).delete()
Else
Throw New ApplicationException("EncodedAbsUrl variable does not contain a value!")
End If
End If
Else
Throw New ApplicationException("No ImportFolder!")
End If
Catch ex As Exception
Dts.Events.FireError(0, String.Empty, ex.Message, String.Empty, 0)
Dts.TaskResult = ScriptResults.Failure
End Try
Dts.TaskResult = ScriptResults.Success
End Sub