Foxtable(狐表)用户栏目专家坐堂 → [求助]判断文件已经打开


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

主题:[求助]判断文件已经打开

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


加好友 发短信
等级:三尾狐 帖子:623 积分:3897 威望:0 精华:0 注册:2011/8/3 22:13:00
  发帖心情 Post By:2011/8/21 9:45:00 [显示全部帖子]

Dim FName As String = "文件路径及文件名"
If FileSys.FileExists(FName) Then
    Try
    Dim f As New System.IO.FileStream(FName,IO.FileMode.Open,IO.FileAccess.Read,IO.FileShare.None)
    f.Dispose()
    Catch ex As Exception
    MessageBox.Show("目标文件处于打开状态")
End Try

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


加好友 发短信
等级:三尾狐 帖子:623 积分:3897 威望:0 精华:0 注册:2011/8/3 22:13:00
  发帖心情 Post By:2011/8/21 11:34:00 [显示全部帖子]

If FileSys.DirectoryExists("D:\My Documents\Reports") Then '目录存在
Else
    FileSys.CreateDirectory("D:\My Documents\Reports") '创建目录
End If

Dim FName As String = "D:\My Documents\退耕报表\数据分类.xls"

你看看,既然判断的是Reports目录,那么这个文件应该是在次目录下的,但是你的路径好像没有吗?你再查查路径

 回到顶部