清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

'读取文件
        If My.Computer.FileSystem.FileExists(shuju) Then
            Dim neirong As Microsoft.VisualBasic.FileIO.TextFieldParser
            neirong = My.Computer.FileSystem.OpenTextFieldParser(shuju)
            neirong.SetDelimiters(",")
            Dim textFields As String() = neirong.ReadFields()
            For Each currentField As String In textFields
                ListBox1.Items.Add(currentField)
            Next
            neirong.Close()
        Else
            MsgBox("文件不存在")
        End If