| Вопрос: VB 6 API | Добавлено: 24.10.07 19:50 |
Автор вопроса:  lexei | ICQ: 464882716 |
| Нужно в заданой папке удалить файлы с расширением TXТ. Насколько я помню это делается функцией API, но какой - не помню. И желательно на VB 6. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  lexei ICQ: 464882716 Вопросов: 13 Ответов: 32 |
Профиль | | #1 | Добавлено: 24.10.07 20:25 |
| уже не надо - сам нашел) | ||
|
Номер ответа: 2 Автор ответа:   Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #2 | Добавлено: 24.10.07 20:25 |
Раз попросил на АПИ - лови, но можно просто на FSO. Да, одной АПИ-функцией тут не обойдешься 
Private Type FILETIME
dwLowDateTime As Long dwHighDateTime As Long End Type Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * 260 cAlternate As String * 14 End Type Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long Private Declare Function DeleteFile Lib "kernel32" Alias "  eleteFileA" (ByVal lpFileName As String) As Long
Private Declare Function RtlZeroMemory Lib "ntdll" (ByVal addr As Long, ByVal size As Long) As Long Dim File As WIN32_FIND_DATA Private Sub Form_Load() eleteFiles "c:\test\tst", "txt"
End Sub Private Sub DeleteFiles(ByVal sFolder As String, ByVal Ext As String) Dim hFind As Long Dim ret As Long If Right$(sFolder, 1) <> "\" Then sFolder = sFolder & "\" hFind = FindFirstFile(sFolder & "*." & Ext, File) eleteFile sFolder & File.cFileName
ret = 1 Do While ret > 0 ret = FindNextFile(hFind, File) eleteFile sFolder & File.cFileName
Loop FindClose hFind End Sub |
||
|
Номер ответа: 3 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #3 | Добавлено: 24.10.07 20:26 |
|
не успел
|
||
Страница: 1 |