给你一个遍历所有盘符下的文件夹的例子
创新互联是专业的涪陵网站建设公司,涪陵接单;提供成都网站设计、成都做网站,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行涪陵网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
加一个遍历文件的就可以了。
TreeNode node = new TreeNode("我的电脑");
treeView.Nodes.Add(node); //加入一个我的电脑节点
string[] drivesName = System.IO.Directory.GetLogicalDrives() //取得驱动器列表的集合
foreach(string name in drivesName) //用foreach遍历集合
{
TreeNode drivesNode = new TreeNode(name);
node.Nodes.Add(drivesNode); //加到我的电脑节点下
选择文件夹 在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中
然后 代码写在 按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text =FolderBrowserDialog1.SelectedPath
选择文件 在工具箱 - 对话框 里选择 OpenFileDialog
把 OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
写到按钮事件下
如图
点击按钮会弹出 通用对话框 选择好路径后 确定 ,编辑框里就会显示选择的路径
这回没分不写代码,哈哈......
利用listbox的MouseDown事件获取当前是哪个鼠标按键点击了控件;
通过MouseEventArgs事件类的Location属性获取鼠标在listbox中的坐标;
通过listbox的行高来计算鼠标在listbox的哪一行;
通过listbox的SelectedIndex属性来选定鼠标所在的那一行。
PS:算了,好人做到底吧!
Private Sub ListBox1_MouseDown(sender As Object, e As MouseEventArgs) _
Handles ListBox1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim ht As Integer = ListBox1.ItemHeight
Dim rect As New Rectangle _
(0, 0, ListBox1.ClientSize.Width, ht)
For i As Integer = 0 To ListBox1.Items.Count - 1
If rect.Contains(e.Location) Then
ListBox1.SelectedIndex = i
Exit For
Else
rect.Y += ht
End If
Next
End If
End Sub
Using FolderBrowserDialog As New FolderBrowserDialog
If FolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim 资料夹 As String() = System.IO.Directory.GetFiles(FolderBrowserDialog.SelectedPath, "*")
For Each 文件 In 资料夹
MsgBox(My.Computer.FileSystem.ReadAllText(文件)) '读取数据
My.Computer.FileSystem.WriteAllText(文件, "数据", False) '写入数据
Next
End If
End Using