为什么将带有 ~$ 的 FilePath 项添加到 ListBox

Question

我正在将文件夹中的文件路径添加到列表框，然后在富文本框中将其作为文本打开。我在另一个列表框中使用了与下面代码相同的语法来实现相同的目的，它工作得很好。但是，在当前示例中，我在默认 MyProjects 文件夹中有两个文件（即默认文件夹由我的应用程序创建），但是当我将文件夹中的文件路径作为项目添加到列表框中时，我得到第三个项目~$ 在文件路径中？这一项显然是列表中第一个文件路径的某种重复？默认文件夹中的两个文件也是由我的应用程序创建的，因此，如果这是文件访问问题，我不明白为什么我无法访问我的应用程序创建的文件？谁能告诉我这里发生了什么？

我的尝试：

我已尝试调试以检查额外文件路径的来源。据我所知，它是在我将文件路径添加到列表框时创建的？即注释掉将项目添加到列表框中的代码会停止添加所有项目，但不会告诉我这个额外项目来自哪里？

“额外物品”问题：

System.Windows.Forms.ListBox+ObjectCollectionC:\Users\username\Documents\MySolution\MyProjects\RTFdoc.rtf C:\Users\用户名\Documents\MySolution\MyProjects\Testdoc.rtf C:\Users\用户名\Documents\MySolution\MyProjects~$Fdoc.rtf

守则：

lbxName.Items.AddRange(Directory.GetFiles("C:\Users\" + username + "\Documents\MySolution\MyProjects"))
lbxName.SelectedIndex = 0

加载代码：

For Each item In lbxName.SelectedItems
    RTB.LoadFile(lbxName.SelectedItem, RichTextBoxStreamType.RichText)
Next

Answer 1

我无法重现以下代码中的错误。

Private Sub FillListBox()
    ListBox1.Items.AddRange(Directory.GetFiles("C:\Users\" & username & "\Documents\MySolution\MyProjects"))
    ListBox1.SelectedIndex = 0
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    FillListBox()
End Sub

请阅读以下代码中的cmets。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    For Each item In ListBox1.SelectedItems
        'The following will overwrite the contents of the RichTextBox on each iteration
        'This overload of LoadFile will only handle .rtf files
        RichTextBox1.LoadFile(item.ToString)
    Next
End Sub

我建议您在设计器中将SelectionMode 属性设置为One 并执行以下操作。

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    RichTextBox1.LoadFile(ListBox1.SelectedItem.ToString)
End Sub

Answer 2

尝试如下使用：

Directory.GetFiles("C:\Users\" & username & "\Documents\MySolution\MyProjects").Where(Function(f)
Return New IO.FileInfo(f).Attributes & IO.FileAttributes.Hidden & IO.FileAttributes.System = 0