| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何同时取出文件夹路径与文件名 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186581) |
||
| -- 作者：绿火柴 -- 发布时间：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) Next For Each p As String In FileSys.GetDirectories(path) Functions.Execute("文件", p, ls) Next |
||
| -- 作者：新福星 -- 发布时间：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 & "个文件" 获取全部文件名 FileSys.GetFiles(dp2.Value)
[此贴子已经被作者于2023/5/13 5:35:12编辑过]
|
||
| -- 作者：有点蓝 -- 发布时间：2023/5/13 9:21:00 -- http://www.foxtable.com/webhelp/topics/0331.htm
|