求教：怎知某一文件已被打开(VB)

Question

boss的意思应该是指任何扩展名的文件
哎，exe文件好象比较好判断，其它的文件就……

Answer 1

文本输入输出文件，供程序输入输出用，如果我在程序中打开他（open），再关闭之前，不想再次被打开，我采用随机访问，元素为自定义结构，如果一个文件被打开两次，会发生数据错误，
Lock Read Write只能限制其他进程，对程序自身却无能为力。

Answer 2

如果你只是关心某个特定的文件，可以用楼上的说法。
如果你关心很多文件，或者所有文件，那么你用API WaitForSingleObject或者WaitForMultipleObjects来实时监视某一组文件（在一个或多个目录下）状态是否改变了

Answer 3

Private Sub Command1_Click()
    Open "aa.txt" For Append As #1
        Print #1, "sadgfsdfsd"
End SubPrivate Sub Command2_Click()
    Close
End SubPrivate Sub Command3_Click()
    Name "aa.txt" As "bb.txt"
End Sub

Answer 4

Private Sub Command1_Click()
    Shell "平抛运动的演示.exe", 1
End SubPrivate Sub Command2_Click()
On Error GoTo 100
    Open "平抛运动的演示.exe" For Append As #1
      ' Print #1, ""
    Close 1
    Exit Sub
100
    MsgBox "程序已经运行！"
End Sub Private Sub Command3_Click()
On Error GoTo 100
    Name "平抛运动的演示.exe" As "temp.temp"
    Name "temp.temp" As "平抛运动的演示.exe"
    Exit Sub
100
    MsgBox "程序已经运行！"
End Sub