| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]复制文件夹 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107666) |
| -- 作者：江南小镇 -- 发布时间：2017/10/7 12:44:00 -- [求助]复制文件夹 老师，我想手动选择文件夹复制到指定路径的文件夹中。 |
| -- 作者：有点甜 -- 发布时间：2017/10/7 15:37:00 -- Dim dlg As New FolderBrowserDialog If dlg.ShowDialog = DialogResult.Ok Then FileSys.CopyDirectory(dlg.SelectedPath, "d:\\test\\" & FileSys.GetName(dlg.SelectedPath), True) End If |
| -- 作者：江南小镇 -- 发布时间：2017/10/7 18:51:00 -- 以下是引用有点甜在2017/10/7 15:37:00的发言： Dim dlg As New FolderBrowserDialog If dlg.ShowDialog = DialogResult.Ok Then FileSys.CopyDirectory(dlg.SelectedPath, "d:\\test\\" & FileSys.GetName(dlg.SelectedPath), True) End If 老师，继续麻烦你，把获取文件夹的地址赋值给文本框吗？
|
| -- 作者：有点甜 -- 发布时间：2017/10/7 20:17:00 -- Dim dlg As New FolderBrowserDialog Forms("窗口1").Controls("TextBox1").Text = dlg.SelectedPath |
| -- 作者：江南小镇 -- 发布时间：2017/10/7 22:12:00 -- 谢谢老师 |
| -- 作者：江南小镇 -- 发布时间：2017/10/8 9:25:00 -- 老师，有要麻烦你了，我要把标出的路径地址改成复制后新的路径地址（d:\\test\\）并赋值给文本框。 Dim dlg As New FolderBrowserDialog Forms("窗口1").Controls("TextBox1").Text = dlg.SelectedPath [此贴子已经被作者于2017/10/8 9:25:06编辑过]
|
| -- 作者：有点甜 -- 发布时间：2017/10/8 9:32:00 -- 这个意思？
Forms("窗口1").Controls("TextBox1").Text = "d:\\test\\" & FileSys.GetName(dlg.SelectedPath) |
| -- 作者：江南小镇 -- 发布时间：2017/10/8 9:53:00 -- 是的，太感谢了。 |