ВуД » 26.02.2006 (Вс) 18:04
Private Sub Command1_Click()
iFullName$ = "C:\Windows\test.txt"
iFileName$ = Dir(iFullName$)
If iFileName$ <> "" Then
If (GetAttr(iFullName$) And vbReadOnly) <> 0 Then
If MsgBox("Будем удалять файл : " & iFileName$ & vbNewLine & _
"который имеет аттрибут только для чтения ?", vbYesNo, "") = vbYes Then
SetAttr iFullName$, vbNormal
Else: Exit Sub
End If
End If
Else
MsgBox "Файл для удаления изволит отсутствовать", , ""
End If
Kill iFullName$
End Sub