Const OF_SHARE_EXCLUSIVE = &H10
Declare Function OpenFile Lib "kernel32" Alias "OpenFile" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
OpenFile con wStyle=OF_SHARE_EXCLUSIVE dovrebbe ritornare false se il file è in uso
-- il nuovo evento dominopoin: ddive.dominopoint.it
|