1. VB怎样显示文件夹内所有的文件名称
VB可以使用FileListBox 控件来获取指定文件夹内的所有文件名。
FileListBox 控件,在运行时,在 Path 属性指定的目录中,FileListBox 控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如,可以在应用程序中创建对话框,通过它选择一个文件或者一组文件。
以下是组合使用DriveListBox 、控件DirListBox 控件和FileListBox 控件来获取硬盘下任何一个文件夹内的文件名。
PrivateSubDir1_Change()
File1.Path=Dir1.Path
EndSub
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
EndSub
PrivateSubFile1_Click()
DimiAsLong
Debug.Print"目录夹内存在"&File1.ListCount&"个文件。"
EndSub
2. VB.NET获取目录文件夹名称
先用System.IO.Directory.GetDirectories函数获取子目录的名称(包括其路径),再用System.IO.Path.GetFileName获取子目录的名称。下面是代码:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
For Each s In System.IO.Directory.GetDirectories("C:\Windows")
Console.WriteLine(System.IO.Path.GetFileName(s))
Next
End Sub
下面是部分输出:
Application Data
AppPatch
assembly
BOCNET
Boot
Branding
ConfigSetRoot
Cursors
Debug
DigitalLocker
Downloaded Installations
Downloaded Program Files
ehome
en-US
Fonts
Globalization
Help
...
可能有更简洁的方法,你可以到MSDN看看
System.IO.Directory.GetDirectories:http://msdn.microsoft.com/zh-cn/library/c1sez4sc.aspx
System.IO.Path.GetFileName:http://msdn.microsoft.com/zh-cn/library/system.io.path.getfilename.aspx
通用 I/O 任务:http://msdn.microsoft.com/zh-cn/library/ms404278.aspx
3. VB.NET遍历查找某个文件夹,并找出指定文件
解压密码:1299
假设路径为C:abc
代码:
PublicClassForm1
PrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.Load
DimFilesAsObjectModel.ReadOnlyCollection(OfString)=My.Computer.FileSystem.GetFiles("C:abc")
DimFileSizeAsLong,FileNameAsString=Nothing
DimoFileSizeAsLong
ForEachFileAsStringInFiles
oFileSize=My.Computer.FileSystem.GetFileInfo(File).Length
IfoFileSize>FileSizeThen
FileSize=oFileSize
FileName=File
EndIf
Next
DimListNAsListViewItem=NewListViewItem(My.Computer.FileSystem.GetName(FileName))
ListN.SubItems.Add(oFileSize&"byte")
ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension&"文件")
ListN.SubItems.Add(FileName)
ListView1.Items.Add(ListN)
EndSub
EndClass
详见源代码!!
4. 用vb.net怎样实现在遍历某一文件夹下的所有文件
'把下面复的目录改成你制要遍历的目录
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