主题：[求助]剪切文件

老师，下面的代码只是添加文件，现在我想把目标文件剪切保存到指定的文件夹中去。


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

参考：http://www.foxtable.com/webhelp/scr/0339.htm

老师，我希望能保存和复制到文件夹的子目录的文件。

 '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

不明白你的意思，请具体举例说明要做到的效果。

此主题相关图片如下：图像 6.png

只能这样处理

 

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