Option Explicit
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const OF_SHARE_EXCLUSIVE = 10
Private Const OPEN_EXISTING = 3
Private Sub Form_Load()
Dim hFile As Long
hFile = CreateFile("C:\A.txt", OF_SHARE_EXCLUSIVE, 0, 0, OPEN_EXISTING, 0, 0)
If hFile = -1 Then MsgBox "File now in use!", vbInformation
CloseHandle hFile
End
End Sub
andreymp писал(а):ANDLL Если хотел оскорбить, то у тебя почти получилось. Дальше не продолжаю, поскольку этот форум не место для выяснения отношений.Солнце мое, базы данных то же лежат в файлах, оказывается.
Сейчас этот форум просматривают: AhrefsBot и гости: 195