| Вопрос: Как удалить файл при помощи VB | Добавлено: 19.05.03 19:38 |
Автор вопроса:  kostyastat
|
|
Пожалуйста помогите! Как удалить файл qwe.mdb (к примеру) програмно из VB. Спасибо. Костя.
|
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Диман ICQ: 224590251 Вопросов: 29 Ответов: 64 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 19.05.03 21:49 |
| Ну как обычно - методом ВБ: Kill. Только файл не должен использоваться во время удаления | ||
|
Номер ответа: 2 Автор ответа: MARCUSВопросов: 24 Ответов: 13 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 21.05.03 16:47 |
|
Удаляет файл, но только в корзину. Private Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As Long End Type Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 Private Const FOF_NOCONFIRMATION = &H10 Private Const FOF_SILENT = &H4 Sub SendFileToRecycleBin(FileName As String, Optional Confirm As Boolean = True, Optional Silent As Boolean = False) Dim FileOp As SHFILEOPSTRUCT With FileOp .wFunc = FO_DELETE .pFrom = FileName .fFlags = FOF_ALLOWUNDO If Not Confirm Then .fFlags = .fFlags + FOF_NOCONFIRMATION If Silent Then .fFlags = .fFlags + FOF_SILENT End With SHFileOperation FileOp End Sub Private Sub Command1_Click() SendFileToRecycleBin "C:\1.txt", False SendFileToRecycleBin "C:\11.txt", True End Sub Private Sub Form_Load() Dim FN As Integer FN = FreeFile Dim FName As String FName = "C:\1.txt" Open FName For Output As #FN Print #FN, "" Close #FN FName = "C:\11.txt" Open FName For Output As #FN Print #FN, "" Close #FN End Sub |
||
|
Номер ответа: 3 Автор ответа: VirtualВопросов: 10 Ответов: 30 |
Профиль | Цитата | #3 | Добавлено: 12.10.03 18:23 |
|
Пиши Kill путь И файл удалится!
|
||
|
Номер ответа: 4 Автор ответа: MPH Вопросов: 5 Ответов: 9 |
Профиль | Цитата | #4 | Добавлено: 13.10.03 15:02 |
2 Marcus: ты не обижайся, но у меня иногда такое мнение, что большинство VB-програмёров помешаны на АПИ. Понимаю есть случаи когда без АПИ не обойтись, но писать два листа кода, когда можно обойтись одной строчкой?..
|
||
Страница: 1 |