Question

vb判断文件是否被其他程序占用

Answer 1

楼主试下这个代码：

Private Function FileAccTest(FileName As String) As Boolean
   Dim iFn As Integer
   Dim RetVal As Boolean
   On Error GoTo E_HandleFA
   RetVal = False
   If (Len(Dir$(FileName, 7)) > 0) Then
      iFn = FreeFile
      Open FileName For Binary Lock Read Write As #iFn
      Close iFn
   End If
   RetVal = True
E_HandleFA:
   FileAccTest = RetVal
End Function

' 应用示例：
Private Sub cmdTest_Click()
   Dim sFile As String
   
   sFile = "x:\temp\01.exe"
   If (FileAccTest(sFile)) Then
      MsgBox sFile & "没有被占用。", vbInformation
   Else
      MsgBox sFile & "已经被占用。", vbInformation
   End If
End Sub

Answer 2

可以使用Open 语句的不同用法来做到文件的输出与输入。

示例：下列代码以顺序输入模式打开 TESTFILE 文件。

Open "TESTFILE" For Input As #1
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1

下列代码以只允许写操作的二进制方式打开文件。

Open "TESTFILE" For Binary Access Write As #1
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1

下列代码以随机方式打开文件，文件中含有用户自定义数据类型 Record 的记录。

Type Record ' 定义用户自定义数据类型。
ID As Integer
Name As String * 20
End Type

Dim MyRecord As Record ' 声明变量。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1

下列代码以顺序输出方式打开文件；任何过程都可以读写该文件。

Open "TESTFILE" For Output Shared As #1
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1

下列代码以只允许读的二进制方式打开文件；其他过程不可以读该文件。

Open "TESTFILE" For Binary Access Read Lock Read As #1

Answer 3

我是初学者，不知你是哪个版本的VB?