大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
选择文件夹 在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中
为天元等地区用户提供了全套网页设计制作服务,及天元网站建设行业解决方案。主营业务为成都网站制作、成都网站设计、外贸营销网站建设、天元网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
然后 代码写在 按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text =FolderBrowserDialog1.SelectedPath
选择文件 在工具箱 - 对话框 里选择 OpenFileDialog
把 OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
写到按钮事件下
如图
点击按钮会弹出 通用对话框 选择好路径后 确定 ,编辑框里就会显示选择的路径
button , OpenFileDialog , PictureBox , textbox 控件,我把图片显示在 picturebox 中,而路
径存放在 textbox 中,不知道这样行不行。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim filename As String
OpenFileDialog1.Filter = "jpg files (*.jpg)|*.jpg"
OpenFileDialog1.FilterIndex = 1
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
filename = OpenFileDialog1.FileName
Else
End
End If
If Not (PictureBox1.Image Is Nothing) Then
PictureBox1.Image.Dispose()
PictureBox1.Image = Nothing
End If
'PictureBox1.Image = System.Drawing.Image.FromFile(filename)
去掉注释后就显示图片
TextBox1.Text = filename
End Sub
picturebox中只记录文件存放的路径,我找了一个 ImageLocation 函数
PictureBox1.ImageLocation = filename 不过还是会显示图片
Filter 属性设置当前文件名筛选字符串,该字符串确定出现在对话框的“文件类型”框中的选项。
openFileDialog1.InitialDirectory = "c:\\" ;
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;
openFileDialog1.FilterIndex = 1 ; // 获取或设置文件对话框中当前选定筛选器的索引;
openFileDialog1.RestoreDirectory = true ;
对于每个筛选选项,筛选器字符串都包含筛选器说明,后接一垂直线条 (|) 和筛选器模式。不同筛选选项的字符串由垂直线条隔开。
新建立个窗体,放入文件夹控件等,然后点确定返回一个字符串即可。
选择文件或者选择文件夹时,显示这个窗体,然后取这个字符串。
给你一个遍历所有盘符下的文件夹的例子
加一个遍历文件的就可以了。
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); //加到我的电脑节点下
Dim L As Integer = InStrRev(ModLocationList.Text , "\")
ModRename.Text = Mid(ModLocationList.Text, L + 1)