VB 怎么获取添加文件里的所有文件路径和名称

首先将文件显示做了区分：文件夹名称显示folderlist()，文件名称显示filelist():

Private Function folderlist(pathname As String, treeflag As Integer) 'treeflag:0列表 1树形 2树形展开

'文件夹数和名称

Dim sf As String

sf = Dir(pathname, vbDirectory) '获取第一个目录名

foldernum = 0

Do While sf <> ""

' 跳过当前的目录及上层目录

If sf <> "" And sf <> "" Then

If (GetAttr(pathname + sf) And vbDirectory) = vbDirectory Then

If treeflag = 0 Then

Text2 = Text2 & sf & vbCrLf ' 如果它是一个目录，将其名称添加到列表

ElseIf treeflag = 1 Then

Text2 = Text2 & Treestr & sf & vbCrLf

ElseIf treeflag = 2 Then '树形展开的时候，需要了解子目录，所以还需进行递归调用

Text2 = Text2 & Treestr & sf & vbCrLf

folderlist pathname + sf, treeflag

filelist pathname + sf, treeflag

End If

foldernum = foldernum + 1 '统计文件夹数目

End If

End If

sf = Dir() ' 查找下一个目录

Loop

If treeflag = 0 Then

If foldernum <> 0 Then

Text2 = Text2 & vbCrLf & "======共有" & foldernum & "个文件夹======" & vbCrLf & vbCrLf

Else

Text2 = Text2 & "======无子目录======" & vbCrLf & vbCrLf

End If

ElseIf foldernum <> 0 Then

Text2 = Text2 & Nullstr & vbCrLf & Nullstr & vbCrLf

End If

End Function

Private Function filelist(pathname As String, treeflag As Integer) '0列表 1树形 2树形展开

'文件数和名称

Dim a As String

a = Dir(pathname & "/")

filenum = 0

Do While a <> ""

If treeflag = 0 Then

Text2 = Text2 & a & vbCrLf

Else

Text2 = Text2 & Treestr & a & vbCrLf

End If

filenum = filenum + 1 '统计文件数目

a = Dir

Loop

If treeflag = 0 Then

If filenum <> 0 Then

Text2 = Text2 & "======共有" & filenum & "个文件======"

Else

Text2 = Text2 & "======无文件信息======"

End If

End If

End Function

1首先查找。现在以win10为例，点击小娜，可以进入查找，点击箭头①指向输入CMD，点击箭头②，就可以进入命令指示符对话框，如图所示。

2进入CMD命令指示符对话框，点击箭头部分，如图所示；输入dir+1个空字符（用英文输入，即“dir ”（不包含双引号），如图所示。

3找到所要导入文件名的位置，复制文件路径，如图所示。

4回到CMD命令指示符对话框，在步骤②的基础上粘贴导入文件名位置的路径，如图所示。

5找到要保存导入文件夹位置的Excel储存位置路径，如图所示。

6输入完成后，点击Enter键即可。

以上就是关于VB 怎么获取添加文件里的所有文件路径和名称全部的内容，包括:VB 怎么获取添加文件里的所有文件路径和名称、CMD里查找一个文件并将文件名提取出来应该怎么弄、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！