字符串替换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 %>）