- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 获取文件夹名 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127837)
-- 发布时间：2018/11/23 9:41:00
-- 获取文件夹名
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:获取文件夹名.table |
老师 ，如果在TextBox1 粘贴一个文件夹路径，这么点击按钮吧这个文件夹内的文件夹命名复制到列表啊，感谢 感谢
此主题相关图片如下：获取文件夹名称.jpg
-- 发布时间：2018/11/23 9:58:00
--
参考
http://www.foxtable.com/webhelp/scr/0331.htm
http://www.foxtable.com/webhelp/scr/0341.htm
-- 发布时间：2018/11/23 10:19:00
--
For Each File As String In Controls("ComboBox1").text
Tables("文件名列表窗口_Table1").Current("文件夹编号转换_对于粘贴列")="File"
Next
能在帮忙看看吗？还是有点困难 感谢 感谢
-- 发布时间：2018/11/23 10:22:00
--
Dim path = e.Form.Controls("ComboBox1").text
Dim ls As new List(Of String)
For Each File As String In FileSys.GetFiles(path)
ls.add(file)
Next
Tables("文件名列表窗口_Table1").Current.DataRow.Lines("文件夹编号转换_对于粘贴列") = ls
-- 发布时间：2018/11/23 10:26:00
--
太感谢了 ，太感谢你了， 感谢 感谢
-- 发布时间：2018/11/23 10:33:00
--
此主题相关图片如下：qq截图20181123103353.jpg
老师 太感谢了，只能能在请教你两个问题吗？就是可以是文件夹的名称吗？不是文件，第二个问题就是可以是分别到每行吗？不是在啊一行。
就是这种，感谢 感谢
此主题相关图片如下：qq截图20181123103418.jpg
[此贴子已经被作者于2018/11/23 10:34:43编辑过]
-- 发布时间：2018/11/23 10:36:00
--
Dim path = e.Form.Controls("ComboBox1").text
For Each File As String In FileSys.GetDirectories(path)
Dim nr = Tables("文件名列表窗口_Table1").addnew
nr.Lines("文件夹编号转换_对于粘贴列") = file
Next
-- 发布时间：2018/11/23 10:46:00
--
感谢 感谢 老师
.NET Framework 版本：2.0.50727.8937
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,文件夹名录入窗口,Button1,Click
详细错误信息：
未找到类型“Row”的公共成员“Lines”。
Dim path = e.Form.Controls("ComboBox1").text
For Each File As String In FileSys.GetDirectories(path)
Dim nr = Tables("文件夹转换表").addnew
nr.Lines("文件夹编号转换_对于粘贴列") = file
Next
-- 发布时间：2018/11/23 10:46:00
--
Dim path = e.Form.Controls("ComboBox1").text
For Each File As String In FileSys.GetDirectories(path)
Dim nr = Tables("文件名列表窗口_Table1").addnew
nr("文件夹编号转换_对于粘贴列") = file
Next
-- 发布时间：2018/11/23 10:52:00
--
感谢老师 可以了，只是把全部路径都显示出来了，方便再帮忙看看吗？如果不方便我就用手动改就是，已经很麻烦你了，感谢 感谢