以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]复制文件夹  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160457)
--  作者：2425004926
--  发布时间：2021/2/3 11:49:00
--  [求助]复制文件夹
复制文件夹，红色部分代码应该怎么改？

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    FileSys.CopyFile(dlg.SelectedPath, ProjectPath)  \'复制文件
End If
--  作者：有点蓝
--  发布时间：2021/2/3 11:53:00
--  
参考：http://www.foxtable.com/webhelp/topics/0343.htm
--  作者：2425004926
--  发布时间：2021/2/3 12:20:00
--  
 谢谢！试验ＯＫ

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    Dim s1 As Integer = dlg.SelectedPath.LastIndexOf("\\")+1
    Dim s2 As Integer = dlg.SelectedPath.Length
    Dim a As String = dlg.SelectedPath.SubString(s1,s2-s1)
    MessageBox.Show(a)
    FileSys.CopyDirectory(dlg.SelectedPath, ProjectPath & "Attachments\\" & a,ture)  \'复制文件夹
End If