'1 прога
Sub Command1_Click()
Dim FF&
FF = FreeFile()
Open "C:\-1.dat" For Output As #FF
Close #FF
End Sub
'2 прога
Sub Form_Activate()
Do
DoEvents
If Dir("C:\-1.dat")<>"" Then MsgBox "Бойан!": Kill "C:\-1.dat"
Loop
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 56