如何访问网络中的磁盘

时间:2017-02-28 16:39:56

标签: vb.net networking disk

我有例程将某些文档存储到一个目录驱动器上运行的目录但如果我使用路径作为“\\ 172.16.3.145 \ Directory”,则会出现网络驱动器错误。

我将此代码用于所需的create子目录:

dt.Columns.Add("xxSort", 
               (123).GetType(), 
               "IIF([Module] = 'Intro', 0, Convert([Module], 'System.Int32'))");
dt.DefaultView.Sort = "xxSort ASC";

此代码在路径中的工作和创建目录为“\\ server \ directory”,但当我尝试使用其他代码列出listview中的所有文件时会出错:

If My.Computer.FileSystem.DirectoryExists(PercorsoDocumenti) = False Then
            My.Computer.FileSystem.CreateDirectory(PercorsoDocumenti)
        End If

        If My.Computer.FileSystem.DirectoryExists(PercorsoOrdini) = False Then
            My.Computer.FileSystem.CreateDirectory(PercorsoOrdini)
        End If

        '+++ creazione della sottodirectory per l'ordine che deve sempre esistere per poter consultare i files presenti +++
        If My.Computer.FileSystem.DirectoryExists(PercorsoOrdini & lblIdOrdinePassato.Text) = False Then
            My.Computer.FileSystem.CreateDirectory(PercorsoOrdini & lblIdOrdinePassato.Text)
        End If

        LstViewDocumentiCaricati.Clear()
        For Each fileName As String In IO.Directory.GetFiles(PercorsoOrdini & lblIdOrdinePassato.Text)
            ImgLstFiles.Images.Add(Icon.ExtractAssociatedIcon(fileName))
            LstViewDocumentiCaricati.Items.Add(IO.Path.GetFileName(fileName), ImgLstFiles.Images.Count - 1)
        Next

如果我以足够的权限共享目录,也会发生错误...它会在网络驱动器上创建目录,但在尝试列出文件时会出错。

错误与此类似:

For Each fileName As String In IO.Directory.GetFiles(PercorsoOrdini & lblIdOrdinePassato.Text) ImgLstFiles.Images.Add(Icon.ExtractAssociatedIcon(fileName)) LstViewDocumentiCaricati.Items.Add(IO.Path.GetFileName(fileName), ImgLstFiles.Images.Count - 1) Next

我无法在生产计算机上进行调试,因此我认为错误在于列出过程代码,因为所有代码都可以工作(在网络驱动器上创建目录)。

有人可以帮我理解原因吗?

1 个答案:

答案 0 :(得分:1)

使用链接How to get the associated icon from a network share file中提供的代码,一切都很完美。今天测试没有错误或问题。谢谢大家!