Как узнать объем папки

[Lotreck]

Как узнать общий объем папки, а также объем файлов определенного типа, например .txt , хранящихся в ней?

[Хакер]

Lotreck
Найти объём всех файлов, лежащих в ней, и сложить.

[Lotreck]

Поконкретней бы. Существует ли специальная функция? А если количество файлов постоянно меняется и их сложно отследить?

[Хакер]

Существует ли специальная функция?

Для чего? Для определения размера одного файла? Да, их тьма.
Для перебора всех файлов в папке? Да, и их тьма.

А если количество файлов постоянно меняется и их сложно отследить?

То что тогда? Или ты думаешь, что мудрая система держит всё под контролем и, несмотря на бешеную рождаемость/смертность файлов, может в любой размер сообщить тебе их размер?

Нет, она этого не делает.

С другой стороны, если файлы у тебя постоянно рождаются/умирают/изменяются, какой смысл измерять их суммарный объём, если через какие-то доли секунд информация окажется уже неактуальной?

[Lotreck]

Функция для подсчета объема файлов определенного типа.
Частный случай такой. В папке хранятся файлы различного типа, в том числе текстовые, в которые периодически вносится или считывается данные. В определенный момент вся информация из текстовых файлов считывается. Необходимо зафиксировать этот момент и выдать соощение.

[Хакер]

Функция для подсчета объема файлов определенного типа.

Конечно нет. Никто не будет делать в системе/языке функции для всех нужд, которые, возможно, придут в голову пользователям/программистам.

В определенный момент вся информация из текстовых файлов считывается. Необходимо зафиксировать этот момент и выдать соощение.

Если задача в этом, причём тут определение размера всех файлов? Потому что "фиксирование этого момента" достигается совсем другими путями.

[Lotreck]

Нет не в этом. Задача в следующем: раз в сутки проверить являются ли все текстовые файлы папки пустыми или нет.

[Хакер]

Ага. А теперь вопрос: какая проблема возникла у тебя на пути решения этой задачи?

[Lotreck]

Да я вообще не знаю с какой стороны подступиться!
Специальной функции нет.
Сколько файлов будет в момент считывания тоже неизвестно.

[Хакер]

Специальной функции нет.

Как же ты пишешь программы, если у тебя любой замысел обламывается на том, что "специальной фукнкции" нет? Нет функции -- напиши.

Сколько файлов будет в момент считывания тоже неизвестно.

Что мешает определить?

[Lotreck]

Ничего не мешает. Просто сталкиваюсь с этим впервые и хотел узнать мнение других.

[Хакер]

Нуу... мнение других зависит от многих факторов. Например от того, сколько файлов, как часто происходят изменения и т.п.

[Sebas]

Хакер
*yf ghfdf[ ghj[j;tuj*
yfcnjzobq ghjuhfvvbcn dctuj ,jbncz b ybxtuj yt endth;lftn)

[SLIM]

Хакер ну не разводи ты парню палемику.
Просит же помоги. Покажи какой-нть объект, работающий с файлами, их размером и т.д.
Я не силен в VB но на VBA писал такое с легкостью. Использовал FileSystemObject и File. Если в VB вс также, то помоги ты просто ему и все.

[Хакер]

Писать готовый код за него никто не будет. Да и неполезно это, давать людям готовый код. Привыкают, и потом вообще отучивают делать что-либо самостоятельное.

[oskolok_vatbI]

Я не очень хорошо разбираюсь в вопросах программирования, но мне кажется я бы делал что-то следующее:
1) Рекурсией искал в папке файлы по маске (на форуме примеры точно есть).
2) Наверняка есть функция определения размера файла, использовал бы ее для каждого файла, найденого в предыдущем шаге.
3) Сложил бы все полученные размеры.
Если я не прав - более опытные люди меня поправят.

[SLIM]

Писать готовый код за него никто не будет. Да и неполезно это, давать людям готовый код. Привыкают, и потом вообще отучивают делать что-либо самостоятельное.

Да никто и не говорит писать за него код. НАПРАВЬ куда надо.
Говорю же ищите по FILESYSTEMOBJECT. НА воруме куча примеров.
В нем точно есть рзмерыфайлов.
Для начала создай объект FSO, далее получи папку GETFolder, далее
for each file in folder
размер=размер + размер
next file
При необходимости можно добавить файлы по маске. В любом случае f1 всегда, повторяю ВСЕГДА помогал. Набросай чтонть, а вот с готовым кодом все помогут.
Да ХАКЕР?

[Lotreck]

Интересующий меня пример не является уникальным, и наверняка уже давным давно разработан, опробован и вылизан и место ему в фаге. Тратить неделю времени на создание того что уже есть и сделано лучше чем это получится у меня не вижу смысла. А фаг в одну страницу это издевательство над новичками.

[SLIM]

Lotreck
Не, так не пойдет.
Если ты реально

Да я вообще не знаю с какой стороны подступиться!
Специальной функции нет.
Сколько файлов будет в момент считывания тоже неизвестно.

То и изучать надо САМОМУ.
Когданть, когда будешь писать проэкт более громкий тоже будешь все кирпичики собирать??? Пиши сам. САМ! САМ! САМ!

[Alexanbar]

Интересующий меня пример не является уникальным, и наверняка уже давным давно разработан, опробован и вылизан и место ему в фаге. Тратить неделю времени на создание того что уже есть и сделано лучше чем это получится у меня не вижу смысла. А фаг в одну страницу это издевательство над новичками.

Эта задача не является типовой, и поэтому врядли кем-либо решена и выложена в виде кирпича.

Но, на мой взгляд, неверна сама постановка задачи. Это что же, ничего не известно, какие у файлов имена, куда они пишутся, при каких условиях меняются?

А заставить юзверей писать файлы под определёнными именами в определенное место никак нельзя?

Кстати, есть несколько функций, которые отлавливают уведомления об изменениях в папке, в том числе, и во вложенных:

Код: Выделить всё


Public Const FILE_NOTIFY_CHANGE_ATTRIBUTES = &H4
Public Const FILE_NOTIFY_CHANGE_DIR_NAME = &H2
Public Const FILE_NOTIFY_CHANGE_FILE_NAME = &H1
Public Const FILE_NOTIFY_CHANGE_SIZE = &H8
Public Const FILE_NOTIFY_CHANGE_LAST_WRITE = &H10
Public Const FILE_NOTIFY_CHANGE_SECURITY = &H100
Public Const FILE_NOTIFY_CHANGE_ALL = &H4 Or &H2 Or &H1 Or &H8 Or &H10 Or &H100

Public Declare Function FindFirstChangeNotification Lib "kernel32" Alias "FindFirstChangeNotificationA" (ByVal lpPathName As String, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long) As Long
Public Declare Function FindCloseChangeNotification Lib "kernel32" (ByVal hChangeHandle As Long) As Long
Public Declare Function FindNextChangeNotification Lib "kernel32" (ByVal hChangeHandle As Long) As Long
Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Public Declare Function ResetEvent Lib "kernel32" (ByVal hEvent As Long) As Long



[Lotreck]

Есть такой вариант. Правда не работает, ни результата, ни сообщений об ошибке, то ли сам подход неверный, то ли где ошибка.
Пока не разобрался. Как уже говорил впервые с этим сталкиваюсь, и знаний недостаточно.

Код: Выделить всё

Private Sub Form_Load()
Dim a$
If Dir("c:\folder\*.txt") = vbNullString Then
MkDir ("c:\folder")
ChDir ("c:\folder")
a = "aaaaaa"
Open "c:\folder\file_1.txt" For Output As #1
Print #1, a
Close #1
Open "c:\folder\file_2.txt" For Output As #2
Print #2, a
Close #2
End If
End Sub

Private Sub Command1_Click()
Dim a() As String
Dim dirs$
Dim tipe$
Dim summa%
Dim count%
dirs = "c:folder\"
tipe = "*.txt"
i = Dir(dirs & tipe)
Do While i <> ""
    i = Dir
    ReDim Preserve a(Counter)
    a(Counter) = i
    summa = summa + FileSystem.FileLen(dirs & a(Counter))
    Counter = Counter + 1
Loop
MsgBox "Сумма всех файлов с расширением " & Mid(tipe, 2, Len(tipe)) & " в папке " & dirs & " равна " & summa & " байт ", , "отчет"
End Sub

[Alexanbar]

Есть такой вариант. Правда не работает, ни результата, ни сообщений об ошибке, то ли сам подход неверный, то ли где ошибка.
Пока не разобрался. Как уже говорил впервые с этим сталкиваюсь, и знаний недостаточно.

Код: Выделить всё

Private Sub Form_Load()
Dim a$
If Dir("c:\folder\*.txt") = vbNullString Then
MkDir ("c:\folder")
ChDir ("c:\folder")
a = "aaaaaa"
Open "c:\folder\file_1.txt" For Output As #1
Print #1, a
Close #1
Open "c:\folder\file_2.txt" For Output As #2
Print #2, a
Close #2
End If
End Sub

Private Sub Command1_Click()
Dim a() As String
Dim dirs$
Dim tipe$
Dim summa%
Dim count%
dirs = "c:folder"
tipe = "*.txt"
i = Dir(dirs & tipe)
Do While i <> ""
    i = Dir
    ReDim Preserve a(Counter)
    a(Counter) = i
    summa = summa + FileSystem.FileLen(dirs & a(Counter))
    Counter = Counter + 1
Loop
MsgBox "Сумма всех файлов с расширением " & Mid(tipe, 2, Len(tipe)) & " в папке " & dirs & " равна " & summa & " байт ", , "отчет"
End Sub

Код: Выделить всё

If Dir("c:\folder\*.txt") = vbNullString Then
MkDir ("c:\folder")
....
end if


А если dir("c:\folder"\*.doc)<>vbnullstring тоже папку создавать, хоть она уже есть?

[Хакер]

Как уже говорил впервые с этим сталкиваюсь, и знаний недостаточно.

Если знаний недостаточно - задавай соответсвующие вопросы. Не выпрашивай готовый код и не выкладывай готовый неработающий, а именно задавай вопросы.

[Lotreck]

Код: Выделить всё

If Dir("c:\folder\*.txt") = vbNullString Then
MkDir ("c:\folder")

Это упрощенный вариант для данного примера. с этим я разберусь.
Насчет вопросов. не работает и все, какие могут быть вопросы.

[dr.MIG]

На беглый взнляд:
dirs = "c:folder\", а надо dirs = "c:\folder\". И i = Dir в цикле вставь не первой, а последней строчкой.

[Lotreck]

Диагноз доктора оказался верным. Лечение закончилось успешно.
Всем спасибо!