7,785
社区成员
发帖
与我相关
我的任务
分享请问如何获得一个文件的状态，如是否被其它程序运行?
请问如何获得一个文件的状态，如是否被其它程序运行?因为我在程序中要删除一个文件，但当这个文件在运行的时候就不能删除了，所以我想在事先的时候就获得这个文件的状态，请问如何获得?
...全文
请发表友善的回复…
发表回复
maculasoft 2004-01-08
- 打赏
- 举报
二位到另一个帖子接分
3661512 2004-01-07
- 打赏
- 举报
参考
http://www.china-askpro.com/msg6/qa35.shtml
http://www.china-askpro.com/msg6/qa35.shtml
Sean918 2004-01-07
- 打赏
- 举报
sorry~~~~ errors...
=============================
''try :
private sub ...
if FileInUse("file name") then
msgbox "File is in use!"
else
...
end if
end sub
Public Function FileInUse(path$) As Boolean
Dim X
X = FreeFile ''''get free file #
On Error Resume Next
Open path$ For Input As X
If err = 0 Then
FileInUse= True
Else
FileInUse= False
End If
Close X
End Function
=============================
''try :
private sub ...
if FileInUse("file name") then
msgbox "File is in use!"
else
...
end if
end sub
Public Function FileInUse(path$) As Boolean
Dim X
X = FreeFile ''''get free file #
On Error Resume Next
Open path$ For Input As X
If err = 0 Then
FileInUse= True
Else
FileInUse= False
End If
Close X
End Function
Sean918 2004-01-07
- 打赏
- 举报
''try:
private sub ...
if FileInUse("file name") then
msgbox "File is in use!"
else
...
end if
end sub
Public Function FileInUse(path$) As Boolean
Dim X
X = FreeFile ''''get free file #
On Error Resume Next
Open path$ For Input As X
If err = 0 Then
FileExists = True
Else
FileExists = False
End If
Close X
End Function
private sub ...
if FileInUse("file name") then
msgbox "File is in use!"
else
...
end if
end sub
Public Function FileInUse(path$) As Boolean
Dim X
X = FreeFile ''''get free file #
On Error Resume Next
Open path$ For Input As X
If err = 0 Then
FileExists = True
Else
FileExists = False
End If
Close X
End Function
maculasoft 2004-01-07
- 打赏
- 举报
解决另加分送上
