以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]为什么同一段代码发布后不执行呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48069)
--  作者：智友软件工作室
--  发布时间：2014/3/22 13:26:00
--  [求助]为什么同一段代码发布后不执行呢？
Dim Result As DialogResult = MessageBox.Show("是否更新附件?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim dlg As New FolderBrowserDialog
    If dlg.ShowDialog = DialogResult.Ok Then
        Dim bendilujing As String = ProjectPath + "Attachments"
        If FileSys.DirectoryExists("bendilujing") Then
            FileSys.DeleteDirectory(bendilujing,2,2)
            FileSys.CreateDirectory("bendilujing")
            FileSys.CopyDirectory (dlg.SelectedPath, bendilujing, True)
            MessageBox.Show("附件更新成功!", "提示")
        End If
    End If
End If

上述代码在为发布的时候能够执行成功，
但是发布后了不能复制附件夹呢？
[此贴子已经被作者于2014-3-22 13:26:36编辑过]
--  作者：Bin
--  发布时间：2014/3/22 14:10:00
--  
发布后 ProjectPath  是在Project目录下的, 也就是 .FOxex文件的这个目录

你可以在发布后程序弹出一下 ProjectPath  对比一下就明白了.