如何检查文件是否已被 Powerscript 中的另一个进程使用?
RealHowTo
问问题
2403 次
2 回答
4
我发现最好的方法是调用 WinAPI CreateFile 以独占模式打开给定文件。
首先,声明如下局部外部函数(PB10)
FUNCTION Long CreateFile(ref string lpszName, long fdwAccess, long fdwShareMode, long lpsa, &
long fdwCreate, long fdwAttrsAndFlags, long hTemplateFile) LIBRARY "Kernel32.dll" &
ALIAS FOR "CreateFileA;Ansi"
FUNCTION boolean CloseHandle (long file_hand) LIBRARY "KERNEL32.DLL"
然后从 Powerscript :
CONSTANT ulong GENERIC_ACCESS = 268435456 // &H10000000
CONSTANT ulong EXCLUSIVE_ACCESS = 0
CONSTANT ulong OPEN_EXISTING = 3
long ll_handle
String ls_file
ls_file = "c:\temp\myfile.xls"
ll_handle = CreateFile ( ls_file, GENERIC_ACCESS, EXCLUSIVE_ACCESS, 0, OPEN_EXISTING, 0, 0)
IF ll_handle < 1 THEN
MessageBox("", "Can't open, maybe missing or already opened ?!?")
ELSE
MessageBox("","File can be opened")
END IF
CloseHandle(ll_handle)
于 2009-01-04T21:10:38.037 回答
0
您可以尝试打开它,如果它出错,那么它可能已经被锁定。
于 2009-01-04T01:17:37.553 回答