求助：局域网SQL数据库，服务器图片文件夹不共享造成图片不能显示

sunwrsun

局域网服务器因关闭图片文件夹共享，造成图片路径失效不能显示。
原更改代码如下（文件夹共享模式）：
Private Sub 图片库_Click()
    Dim dr
    dr = "explorer " & "\\IP\图片"
    Shell dr, vbNormalFocus
  End Select
End Sub

现更改代码如下（加上IP地址、路径、文件夹名称）：
Private Sub 图片库_Click()
    Dim dr As String
    dr = "\\" & dr("IP地址") & "dr("路径")" & "\图片\"    '这一句报错（缺少：结束语句）
    Shell dr, vbNormalFocus
  End Select
End Sub
请问（缺少：结束语句）这里该如何编辑，谢谢。

admin

试一下
dr = "\\" & dr("IP地址") & "dr("路径")" & "\图片\"    '这一句报错（缺少：结束语句）
FollowHyperlink dr  '试试这样打开图片

sunwrsun

一样的，还是这一句报错。
dr = "\\" & dr("IP地址") & "dr("路径")" & "\图片\"    '这一句报错（缺少：结束语句）
D:\报错（缺少：结束语句）

sunwrsun

再问：服务器文件夹共享关闭，除FTP外，还有别的方法访问吗？
若可行请给段代码，谢谢。

sunwrsun

Acccee与SQL结合模式，如果涉及客户端到需要访问服务器硬盘上的图片，除了共享图片文件夹方式外，就没有其他方法吗。这次勒索病毒的爆发，绝大多数网络服务器都关闭了445端口，共享图片文件夹关闭也不能访问了，求助其他解决方法。

admin

你先用 msgbox dr
把它内容显示 出来，看看路径正确不
如果这个都出错，就是你路径还不对，与后面无关

zpy2

iis 网页，用webbrowser访问 html,图片嵌入 字段也行。