ファイルのロック(VB)

キーワード:

CreateFile, LockFile, UnlockFile, CloseHandle

サンプルコード:

' ファイルのロック
Private Sub DoLockFile()
	Dim hFile As Long

	'ファイルのオープン
	hFile = CreateFile("c:\test.txt", 0, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0, OPEN_EXISTING, 0, 0)

	'ファイルのロック
	LockFile hFile, 0, 0, &HFFFFFFFF, 0
	MsgBox "ファイルをロックしました"

	'ファイルのアンロック
	UnlockFile hFile, 0, 0, &HFFFFFFFF, 0
	MsgBox "ファイルをアンロックしました"

	'ファイルのクローズ
	CloseHandle hFile
End Sub

(original text:1998/12/25 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。