3

ファイルが Powerscript の別のプロセスによって既に使用されているかどうかを確認するにはどうすればよいですか?

4

2 に答える 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 に答える