File 检查文件是否已从其他进程打开

如何从Powerscript检查文件是否已被另一个进程使用？

您可以尝试打开它，如果它出错，那么它可能已被锁定。

我发现的最佳方法是调用WinAPI CreateFile以独占模式打开给定文件

首先，声明以下本地外部函数（PB10）

然后从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)

CONSTANT-ulong-GENERIC\u-ACCESS=268435456/&h1000000
常数ulong独占访问=0
常数ulong OPEN_现有=3
长柄
字符串ls\u文件
ls\u file=“c:\temp\myfile.xls”
ll_handle=CreateFile（ls_文件、通用访问、独占访问、0、打开现有、0、0）
如果ll_handle<1，则
MessageBox（“，”无法打开，可能丢失或已打开？！”）
其他的
MessageBox（“可以打开文件”）
如果结束
闭合手柄（ll_手柄）

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)