ilim | Дата: Вторник, 15.11.2011, 23:06 | Сообщение # 1 |
 Рядовой
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Оффлайн
| =================================================== Например мы хотим удалить файл 1.txt из корневой диска C: Пишем: Kill ("C:\1.txt")
2 способ API! Private Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Private Sub Command1_Click() ' Удаляем файл C:\Samples\anyfile.txt Dim retval As Long ' возвращаемое значение
retval = DeleteFile("C:\1.txt") If retval = 1 Then MsgBox "Файл успешно удален." End Sub
www.ilim.kz
|
|
| |