[求助]如何同时取出文件夹路径与文件名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何同时取出文件夹路径与文件名

共有3585人关注过本帖树形打印复制链接主题：[求助]如何同时取出文件夹路径与文件名

绿火柴

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：482 积分：4510 威望：0 精华：0 注册：2014/3/4 21:20:00

[求助]如何同时取出文件夹路径与文件名 发帖心情

Post By：2023/5/13 0:38:00 [只看该作者]

如何在取出文件名的时候，同时显示出目录路径。

如:

目录文件名

d:\aa\bb d:\aa\bb\x.xlsx

d:\aa\bb d:\aa\bb\y.xlsx

d:\aa\bb d:\aa\bb\z.xlsx

d:\aa\cc d:\aa\bb\a11.xlsx

d:\aa\cc d:\aa\bb\b11.xlsx

自定义函数，递归取出文件夹下所有文件名（含子目录下递归的所有文件名）

Dim path As String = args(0)

Dim ls = args(1)

For Each file As String In FileSys.GetFiles(path)

ls.add(file)

For Each p As String In FileSys.GetDirectories(path)

Functions.Execute("文件", p, ls)

新福星

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1964 积分：15604 威望：0 精华：0 注册：2011/7/16 20:59:00

Post By：2023/5/13 5:34:00 [只看该作者]

Dim dlg As New FolderBrowserDialog

Dim t3 As WinForm.TextBox = e.Form.Controls("TextBox3")

If dlg.ShowDialog = DialogResult.Ok Then

e.Sender.value = dlg.SelectedPath ‘这条获取目录名’

Dim n As Integer = 0

n = FileSys.GetFiles(e.Sender.value).Count

t3.Value = "该目录下共有" & n & "个文件"

End If

获取全部文件名 FileSys.GetFiles(dp2.Value)

[此贴子已经被作者于2023/5/13 5:35:12编辑过]

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/5/13 9:21:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0331.htm

GetParentPath

返回父目录

下一主题 >> << 上一主题

主题：[求助]如何同时取出文件夹路径与文件名