主题：获取文件夹名

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:获取文件夹名.table

老师 ，如果在TextBox1 粘贴一个文件夹路径，这么点击按钮吧这个文件夹内的文件夹命名复制到列表啊，感谢 感谢 

参考

 

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

 

http://www.foxtable.com/webhelp/scr/0341.htm

 

 

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

 

太感谢了 ，太感谢你了， 感谢 感谢 

此主题相关图片如下：qq截图20181123103353.jpg

老师 太感谢了，只能能在请教你两个问题吗？就是可以是文件夹的名称吗？不是文件，第二个问题就是可以是分别到每行吗？不是在啊一行。

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

感谢 感谢 老师 

Dim path = e.Form.Controls("ComboBox1").text
For Each File As String In FileSys.GetDirectories(path)
    Dim nr = Tables("文件名列表窗口_Table1").addnew
    nr("文件夹编号转换_对于粘贴列") = file
Next

感谢老师 可以了，只是把全部路径都显示出来了，方便再帮忙看看吗？如果不方便我就用手动改就是，已经很麻烦你了，感谢 感谢