Foxtable(狐表)用户栏目专家坐堂 → try 如何用


  共有13780人关注过本帖树形打印复制链接

主题:try 如何用

帅哥哟,离线,有人找我吗?
shixia
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:759 积分:7038 威望:0 精华:1 注册:2008/9/2 20:04:00
try 如何用  发帖心情 Post By:2010/12/27 13:23:00 [只看该作者]

Dim nl As String
Dim fl As String

If dlg.ShowDialog = DialogResult.OK Then
        For Each fl In dlg.FileNames
            nl = ph & FileSys.GetName(fl)
            FileSys.MoveFile(fl,nl,False)
            lst.Items.Add(nl)
        Next
Else '单击取消,则不执行后面代码
        Return

End If

 

这段代码想实现的功能是“移动”文件。但是如果要移动的文件正被打开使用,那么就会弹出非常不友好的报错界面。用Try 不好用。请指教。



 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/12/27 14:35:00 [只看该作者]

Dim nl As String
Dim fl As String

If dlg.ShowDialog = DialogResult.OK Then
        For Each fl In dlg.FileNames
            nl = ph & FileSys.GetName(fl)

            Try

                 FileSys.MoveFile(fl,nl,False)
                 lst.Items.Add(nl)
            Catch ex As Exception
                 MessageBox.Show("文件正在使用","提示",MessageBoxButtons.OK)
            End Try

        Next
Else '单击取消,则不执行后面代码
        Return

End If


 回到顶部