dneprcomp
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Private Sub Command1_Click()
Dim files() As String
If (FindFiles("c:\windows\system32\", "dll", files) = True) Then
MsgBox "Files found: " & UBound(files) & vbCrLf & vbCrLf & _
"1st file: " & files(0) & vbCrLf & _
"2nd file: " & files(1)
End If
End Sub
Private Function FindFiles(ByVal path As String, ByVal ext As String, ByRef files() As String) As Boolean
Dim ffile As String
ffile = Dir$(path & "*." & ext)
Do
If (ffile <> vbNullString) Then
If (FindFiles = False) Then
ReDim files(0) As String
FindFiles = True
Else
ReDim Preserve files(UBound(files) + 1) As String
End If
files(UBound(files)) = ffile
ffile = Dir
Else
Exit Do
End If
Loop Until (ffile = vbNullString)
End Function
|
Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 17:23 12-11-2010 | Исправлено: dneprcomp, 17:35 12-11-2010 |
|
