- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 录入文件名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52685)
-- 发布时间：2014/6/20 14:06:00
-- 录入文件名
感谢 感谢
问问大家 有没办法设计一个按钮通过选择路径，在选择很多文件夹名，然后把选中的文件夹名字都录入第一列啊-- 发布时间：2014/6/20 14:13:00
--
只能选择一个文件夹
Dim fbd As new FolderBrowserDialog
If fbd.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & fbd.SelectedPath,"提示")
End If
-- 发布时间：2014/6/20 14:32:00
--
谢谢 可以是把文件的命名依次输入到第一列吗
比如打开D盘，选择很多个文件夹 然后把选择的文件夹的名称依次输入到第一列！
[此贴子已经被作者于2014-6-20 14:33:10编辑过]
-- 发布时间：2014/6/20 14:36:00
--
只能选择一个文件夹,假如要赋值为当前行的第一列
Dim fbd As new FolderBrowserDialog
If fbd.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim i As Integer=fbd.SelectedPath.LastIndexOf("\\")
CurrentTable.Current("第一列")=fbd.SelectedPath.Substring(i+1,fbd.SelectedPath.length-i-1)
End If
-- 发布时间：2014/6/20 14:38:00
--
Dim fbd As new FolderBrowserDialog
If fbd.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim r As Row = Tables("表A").Current
If r.IsNull("第一列") Then
r("第一列") = FileSys.GetName(fbd.SelectedPath)
Else
r("第一列") &= "|" & FileSys.GetName(fbd.SelectedPath)
End If
End If
-- 发布时间：2014/6/20 14:46:00
--
就是这个功能！感谢 感谢
可不可以是一起选择很多个文件夹 然后每个文件夹一行。
-- 发布时间：2014/6/20 14:49:00
--
只支持选择单个文件夹, 你可以考虑把根目录下的所有文件名遍历出来,赋值到CheckComBOX 控件去.
然后把选中的名称 赋值到表
-- 发布时间：2014/6/20 14:53:00
--
好的 感谢 听你们的