判断一个文本当前是否被打开，怎么样写代码可以实现

Question

我写的一个程序，需要多用户向一个文本里边写数据，然后把文本上传到服务器上，但是如果文本已经被打开的话，文本就不能上传，怎么样写VB代码可以判断一下这个文本是否处于正在编辑的状态，这样如果文本未被编辑我就可以上传文本文件了。

Answer 1

其实不然，文本打开的时候，默认是共享的除非之前打开文件的时候，是以lock的形式打开的，这种情况下，你open的时候出错，就可以判断了。

Answer 2

判斷文件是否在使用中
　
方法1﹕
Function IsOpen(sFile As String) As Boolean
     Dim fFile As Integer
     fFile = FreeFile()
     On Error GoTo ErrOpen
     Open sFile For Binary Lock Read Write As fFile
     Close fFile
     Exit Function
ErrOpen:
     If Err.Number <> 70 Then
        Msg = "Error # " & Str(Err.Number) & " was generated by " & Err.Source & Chr(13) & Err.Description
        MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
     Else
        IsOpen = True
     End If
End Function方法2:
Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, _ 
                                                  lpReOpenBuff As OFSTRUCT, _ 
                                                  ByVal wStyle As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Type OFSTRUCT
  cBytes     As Byte
  fFixedDisk As Byte
  nErrCode   As Integer
  Reserved1  As Integer
  Reserved2  As Integer
  szPathName As String * 128
End TypePrivate Const OF_SHARE_DENY_READ = &H30
Dim My As OFSTRUCTPublic Function IsUse(FileName As String) As Boolean
  Dim HFile As Long
  HFile = OpenFile(FileName, My, OF_SHARE_DENY_READ)
  If HFile = -1 Then
     IsUse = True
  Else
     IsUse = False
     CloseHandle HFile
  End If
End Function

Answer 3

zsj1101()  你好，这两种办法，我都试验过了，可是都返回的是false，这是为什么

Answer 4

只是一个思路..
如果只是为了上传的话..不用判断应该也可行..复制一份到某某地方,然后传复制的这份就可以了..如果真要判断的话,还可以引用这个方法...>> 复制一份 >>删除原TXT (删不了表示打开,在这里设置错误返回值).>> 记得把复制的那份放到原来的地方>> 再传这份复制过来的那个..