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