| |
|
|
| | Народ поскажите как быстро подсчитать кол-во файлов в папке, с учетом того что файлов в папке в районе 1000 шт максимум 2000 | |
| |
| |
| |
|
|
| | откройте для себя DIr, FileSearch и FileSystemObject
вопрос простой, освещен в хелпе
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileName = "cmd*"
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
|
| |
| |
| |
| |
|
|
| | через FileSystemObject (необходимо подключение библиотеки Microsoft Scripting Runtime)
Dim fs As New FileSystemObject
Dim ddd As Long
ddd = fs.GetFolder("C:\Новая папка").Files.Count
Set fs = Nothing
Msgbox "Количество файлов в папке " & ddd
|
| |
| |
| |
| |
 14 Кб. |
|
| | через Dir и CallBack (user defined) Function
==>> | |
| |
| |
| |
|
|
| | всем спасибо работает великолепно  | |
| |
| |
