标题:[求助]文件查找,急!!!!
只看楼主
yangjun
Rank: 1
等 级:新手上路
帖 子:42
专家分:0
注 册:2006-7-31
 问题点数:0 回复次数:5 
[求助]文件查找,急!!!!

很急!希望各位帮忙!!
我想在texbox控件中输入一个文件名,单击提交后,能够遍历指定文件夹下对应的文件,同时把该文件的完全路径赋给xmlread()

[此贴子已经被作者于2006-8-13 14:26:49编辑过]

搜索更多相关主题的帖子: 文件 
2006-08-13 14:26
seals
Rank: 1
等 级:新手上路
帖 子:141
专家分:0
注 册:2005-2-5
得分:0 

装没装MSDN啊?装一个就全结了


说你哪,看了我那么多帖子都不回,好意思吗?! 觉得需要我帮助,请Q:496227096
2006-08-14 09:56
yangjun
Rank: 1
等 级:新手上路
帖 子:42
专家分:0
注 册:2006-7-31
得分:0 

有没有具体的方法呢?
大哥们!

2006-08-15 08:51
wwwpig
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2005-4-7
得分:0 

得到指定目录下所有文件:

dim iFiles() as string

iFiles = Directory.GetFiles("目录名")


欢迎光临我的阜阳气象台网站 http://rd.
2006-08-15 08:57
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (TextBox1.Text <> "") Then
If System.IO.Directory.Exists(TextBox1.Text) Then
Dim theDir As New System.IO.DirectoryInfo(TextBox1.Text)
FindFiles(theDir)
End If
Else
MessageBox.Show("请输入目录")
End If
End Sub

Private Sub FindFiles(ByVal myDir As System.IO.DirectoryInfo)
Dim files As System.IO.FileInfo()
files = myDir.GetFiles()
Dim fi As System.IO.FileInfo
For Each fi In files
Dim ListItem As New ListViewItem(fi.Name)
ListItem.SubItems.Add(fi.Length.ToString())
ListItem.SubItems.Add(fi.DirectoryName)
ListView1.Items.Add(ListItem)
Next

Dim myDirs As System.IO.DirectoryInfo()
myDirs = myDir.GetDirectories()
Dim Dir As System.IO.DirectoryInfo
For Each Dir In myDirs
FindFiles(Dir)
Next
End Sub


我的msn: myfend@
2006-08-15 09:30
yangjun
Rank: 1
等 级:新手上路
帖 子:42
专家分:0
注 册:2006-7-31
得分:0 
[讨论]路径赋值
现在文件遍历已经解决了,但是我单击某个文件名,怎样把listview中对应文件名的路径赋值给dataset.xmlread()呢?
关键是这个!
2006-08-17 14:59



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-83736-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.092802 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved