使用網絡位置，而不是本地驅動器

我有正常工作的情況如下：使用網絡位置，而不是本地驅動器

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

使用網絡位置，而不是本地驅動器

回答

相關問題