| 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
|
| |
| |
