Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.149.229.253] |
|
Сообщ.
#1
,
|
|
|
Здрасти! мне нужно организовать поиск определенных файлов по всем дискам. Если через цикл, то это очень заперно, может можно через API? Если кто-то знает ответте! Заранее спасибо!
|
Сообщ.
#2
,
|
|
|
Попробуй так (через цикл, но с умом):
Option Explicit Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Private Sub Form_Load() Dim i As Integer For i = 3 To 26 ' 3 - начиная с диска C: If GetDriveType(Chr(64 + i) + ":") <> 1 Then FileFindSub Next i End Sub |