- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]剪切文件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127895)
-- 发布时间：2018/11/24 14:31:00
-- [求助]剪切文件
老师，下面的代码只是添加文件，现在我想把目标文件剪切保存到指定的文件夹中去。
Dim p As String = ProjectPath
Dim wz As String =p & "管理\\"
Dim sj As WinForm.TextBox = e.Form.Controls("项目")
Dim dlg As new OpenFileDialog
dlg.InitialDirectory = wz
If dlg.ShowDialog = DialogResult.OK Then
sj.value=dlg.FileName
End If
-- 发布时间：2018/11/24 14:58:00
--
参考：http://www.foxtable.com/webhelp/scr/0339.htm
-- 发布时间：2018/11/26 15:52:00
--
老师，我希望能保存和复制到文件夹的子目录的文件。
\'Dim p As String = ProjectPath
\'Dim wz As String =p & "项目管理\\"
\'Dim sj As WinForm.TextBox = e.Form.Controls("项目实例")
\'Dim dlg As new OpenFileDialog
\'dlg.InitialDirectory = wz
\'If dlg.ShowDialog = DialogResult.OK Then
\'sj.value=dlg.FileName
\'End If
Dim dlgr As New FolderBrowserDialog
If dlgr.ShowDialog = DialogResult.Ok Then
FileSys.CopyDirectory(dlgr.SelectedPath, "H:\\狐表管理\\解压文件\\" & FileSys.GetName(dlgr.SelectedPath), True)
Forms("代码窗口").Controls("项目实例").Text = "H:\\狐表管理\\解压文件\\" & FileSys.GetName(dlgr.SelectedPath) \'\'\'\'\'\'\'\'\'\'复制后的新路径.
End If
-- 发布时间：2018/11/26 15:58:00
--
不明白你的意思，请具体举例说明要做到的效果。
-- 发布时间：2018/11/26 16:22:00
--
此主题相关图片如下：图像 6.png
-- 发布时间：2018/11/26 16:36:00
--
只能这样处理
Dim dlgr As New SaveFileDialog
dlgr.FileName = "test"
dlgr.OverwritePrompt = false
If dlgr.ShowDialog = DialogResult.Ok Then
FileSys.CopyDirectory(FileSys.GetParentPath(dlgr.FileName), "d:\\狐表管理\\解压文件\\" & FileSys.GetName(FileSys.GetParentPath(dlgr.FileName)), True)
End If