如何列出硬盘驱动器中文件夹下的所有文件名?
how to list all files names under a folder in hard drive?
我想用 vb.net 列出硬盘驱动器文件夹下的所有文件名,我不知道 how.First ,我选择一个带有 folderbrowser 组件的文件夹,接下来,我列出所有文件
这是我的代码(仅用于选择文件夹)
dossier_disque.ShowDialog()
txt_folder.Text = dossier_disque.SelectedPath
对于列出所有文件,我尝试对每个文件使用,但它不正确
我尝试列出文件时的代码
Dim files() As String = Directory.GetFiles(txt_folder.Text)
For Each a In CStr(files.Count)
folder_hard.Rows.Add(Directory.GetFiles(txt_folder.Text))
Next
folder_hard是网格名
txt_folder 是文件夹路径的名称
使用这段代码,结果,我只能在网格中看到第一个文件两次
你的 for each 循环有问题:
CStr() 将值转换为字符串。
因此,您的 for 循环正在遍历文件数组中文件数字符串中的每个字符。
所以将其更改为:
For Each a In files
然后a将是文件数组中的每个文件名。
如果您想将每个添加到您的网格中,您需要将该行更改为:
folder_hard.Rows.Add(a)
所以这应该有效:
Dim files() As String = Directory.GetFiles(txt_folder.Text)
For Each a In files
folder_hard.Rows.Add(a)
Next
我想用 vb.net 列出硬盘驱动器文件夹下的所有文件名,我不知道 how.First ,我选择一个带有 folderbrowser 组件的文件夹,接下来,我列出所有文件
这是我的代码(仅用于选择文件夹)
dossier_disque.ShowDialog()
txt_folder.Text = dossier_disque.SelectedPath
对于列出所有文件,我尝试对每个文件使用,但它不正确
我尝试列出文件时的代码
Dim files() As String = Directory.GetFiles(txt_folder.Text)
For Each a In CStr(files.Count)
folder_hard.Rows.Add(Directory.GetFiles(txt_folder.Text))
Next
folder_hard是网格名 txt_folder 是文件夹路径的名称
使用这段代码,结果,我只能在网格中看到第一个文件两次
你的 for each 循环有问题: CStr() 将值转换为字符串。 因此,您的 for 循环正在遍历文件数组中文件数字符串中的每个字符。 所以将其更改为:
For Each a In files
然后a将是文件数组中的每个文件名。 如果您想将每个添加到您的网格中,您需要将该行更改为:
folder_hard.Rows.Add(a)
所以这应该有效:
Dim files() As String = Directory.GetFiles(txt_folder.Text)
For Each a In files
folder_hard.Rows.Add(a)
Next