Как мне удалить папку наполненную файлами НО !
Кирпичь удаления не пустой папки у меня есть
но вот как узнать нет ли в этой папке файла который используется ( открыт другой прогой ? )
Как определить это ?
если можно пример укажите.
есть код следующий:
В нём есть ошибка, если создать файл ворда
и открыть его
код показывает что файл не используется
хотя при удалении файла ошибка доступа.
- Код: Выделить всё
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
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
Public Function IsFreeFile(ByVal sLongFileName As String) As Boolean
Dim hfile As Long
IsFreeFile = False
hfile = CreateFile(sLongFileName, 0, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
If hfile <> -1 Then
IsFreeFile = True
End If
CloseHandle hfile
End Function
Private Sub Command1_Click()
Dim a
a = IsFreeFile("C:\1.doc")
Kill ("C:\1.doc")
MsgBox a
End Sub
Спасибо...
