замена строки vb.net не работает

Question

Что я здесь не так делаю?

If FilePath.ToLower().Contains(".pdf") Then
    Dim Replaced As String = FilePath.Replace("\","/")
    FilePath = "http:" & Replaced
End If 

Если FilePath, например, \\sharepoint\file.pdf, ожидаемый результат должен быть http://sharepoint/file.pdf.Тем не менее, фактический результат равен http:\\sharepoint\file.pdf

Обновление 1

Это оригинальная строка:

Вот как это выглядитпосле моего кода VB:

Как видите, часть http: добавлена, однако обратные косые черты не были затронуты.

Обновление 2 Этоимеет отношение к слешам.Потому что, когда я заменяю другие символы (например, на @), тогда замененная строка отображается правильно.Но не косая черта

Answer 1

Я до сих пор точно не понимаю, почему, но следующее исправило мой код:

Dim Replaced As String = FilePath
If FilePath.ToLower().Contains(".pdf") Then
    Replaced = FilePath.Replace("\","/")
    Replaced = "http:" & Replaced
End If 

, а затем в коде VBScript я использую

Sub toonDocument()
dim spobject
set spobject = CreateObject("Sharepoint.Document")
spobject.FilePath = "<% = Replaced %>"
spobject.openen()
set spobject = nothing

так <% = Replaced %> (вместо <%= FilePath %>)