新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
VB可以使用FileListBox 控件来获取指定文件夹内的所有文件名。
创新互联建站专业为企业提供平桥网站建设、平桥做网站、平桥网站设计、平桥网站制作等企业网站建设、网页设计与制作、平桥企业网站模板建站服务,十余年平桥做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
FileListBox 控件,在运行时,在 Path 属性指定的目录中,FileListBox 控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如,可以在应用程序中创建对话框,通过它选择一个文件或者一组文件。
以下是组合使用DriveListBox 、控件DirListBox 控件和FileListBox 控件来获取硬盘下任何一个文件夹内的文件名。
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Dim i As Long
Debug.Print "目录夹内存在" File1.ListCount "个文件。"
End Sub
说一个可行的方案。你可以用3个ListBox,当然其中两个个可以设为不可见。先读两行加入到ListBox1中,接着读两行写入ListBox2中,如此循环到文件结束。按照你给的例子,现在Listbox
1中的items是A,B,E,F;而ListBox2中的Items是C,D,G,H。接下来的你应该就明白了吧,把ListBox2中的Items和对应的ListBox1中Item加到ListBox3中。下面简单写下代码,主要是处理问题的思路,代码很简单。
Private Sub DoList(ByVal filePath As String)
Dim str As String
Dim num
Dim listCount
Dim sr As StreamReader
sr = New System.IO.StreamReader(filePath, System.Text.Encoding.Default)
str = sr.ReadLine()
Do While (sr.Peek = 0)
For num=0 To 2
str = sr.ReadLine()
ListBox1.items.Add(str)
Next
num=0
For num=0 To 2
str = sr.ReadLine()
ListBox2.items.Add(str)
Next
Loop
sr.Close()
For listCount=o To ListBox2.Items.Count-1
ListBox3..Items.Add(ListBox1.Items(listCount).ToString+
'把下面的目录改成你要遍历的目录
Dim MyDir = "C:\Windows"
Dim MyInfo = MyDir + "目录下的所有文件包括:"
For Each MyFile In System.IO.Directory.GetFiles(MyDir)
MyInfo += Environment.NewLine + MyFile
Next
Me.RichTextBox1.Text =MyInfo