急!在VB或Excel中,可以判断任意一文件是否已打开吗?若可以,怎样判断?

Question

我可不叫你真的删除！先copy一份，再删除不就行啦！呵呵

Answer 1

用Getmodulfilename可以获得一个可执行文件的信息,
当然包括以运行了多少个副本咯

Answer 2

GetModulefilename  在API Text viewer中去查

Answer 3

to:clansoft(科蓝软件)
呵呵，不好意思，我没有专业精神，对不起！

Answer 4

Private Sub Command1_Click()
On Error GoTo 100
    Name "aa.dat" As "temp.temp"
    Name "temp.temp" As "aa.dat"
    Exit Sub
100
    MsgBox "Opend"
End Sub

Answer 5

faint～～～～～～～～～～～～～
对付可执行文件当然高，对付txt文件可就不高了
你试试看，用记事本打开一个txt文件，然后再资源管理器里面修改文件名，看看报不报错：）

Answer 6

还中觉的xxlroad(土八路)的方法不错，其实一般情况下我也是用这种方式来判断文件是否正在使用的，我记的err=3022吧!

Answer 7

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 回复人：xxlroad(xxlroad)　(2001-6-28 15:32:56) 
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 8

If App.PrevInstance Then
    msg = App.EXEName & "has already run"
    MsgBox msg, vbExclamation, "Warning"
    End
End If