使用网络位置，而不是本地驱动器

我有正常工作的情况如下：使用网络位置，而不是本地驱动器

Function DirSearch(ByVal sDir As String) As String 
    For Each d As String In Directory.GetDirectories(sDir) 
     For Each f As String In Directory.GetFiles(d) 
      objSQLStringBuilder.Append("insert into table1 (full_path, file_name) values ('" & "file:///" + f.Replace("'", "''").Replace(" ", "%20").Replace("\", "/") & "', '" & f.Remove(0, Len(d) + 1).Replace("'", "''") & "');") 
     Next 
     DirSearch(d) 
    Next 

    Return objSQLStringBuilder.ToString 
End Function

我怎么会去改变这种使用UNC的，而不是本地目录映射到工作？

例如，目前如果我将sDir设置为C:\，则代码正常工作。我需要做些什么改变，所以它可以用\\server\c$\代替？

来源

2013-11-22 oshirowanen

什么_does_它目前做，当你调用'DirSearch（）'与UNC路径？ – CodeCaster

适合我的作品 - 你确定你有权限查看目录和文件吗？在Windows资源管理器中尝试使用相同的UNC。顺便说一句，如果你去追根究底，你将会获得数十亿线。我假设你正在缩小搜索范围。创建CSV文件可能更有意义。 – rheitzman

确定，所以你知道返回path的shared folder

dim myLocalpath as string = "c:\" 
dim mysharedpath as string = "\\" & Environment.MachineName & "\" & myLocalpath 
Consloe.Writeline(mysharedpath) 

Output: 

\\server\c:\

来源

2013-11-22 15:55:28 K3rnel31

@JohnDoyle这听起来像批评？这真的是一个答案，突出了我的批评或澄清... – K3rnel31

使用网络位置，而不是本地驱动器

回答

相关问题