размер backupa

[panchos]

Можно ли написать макрос, чтобы записывал размер папок и файлов в Excel? Спасибо.

[GSerg]

Да, можно.

[panchos]

А как, можете подсказать с алгоритмом.

[Viper]

Алгоритм говоришь...
1. Определится размеры каких папок и файлов должнв быть посчитаны.
2. Перебрать все файлы в папке. Если в заданоой папке есть вложенные папки, то сей пункт выполнить рекурсивно. При переборе файлов определять их размер и суммировать.
3. Записать полученную цифирь в нужное автору место Excel.

[panchos]

А как считать размер папок и файлов??? И как перебирать все папки и файлы?

[Wolfie]

FileLen(FileName) размер файла в байтах
или
LOF(FileNumber) размер открытого файла в байтах
это VB6 функции

А перебирать циклом Do или For и т.п.

[Matew]

panchos, поищи каждый пункт на форуме и поймешь, что это не так все сложно и бОльая часть уже написана за тебя

[Хакер]

Wolfie
Ну-ка расскажи как ты циклом For собрался перебирать файлы и папки?

[Wolfie]

Хакер а вообще-то иногда вот известно заранее сколько файлов лежит там-то и там-то, особенно если еще какой-нить FileList лежит )) к тому же это я для разнообразия предложил, можно вообще без цикла а при помощи GoTo реализовать тут свобода автора...

[Хакер]

Нет, я про GoTo вообще ничего не говорил. Я прошу привести пример перечисления (а не получаения из готового источника, где всё уже перечислено, и остётся лишь получить оттуда информацию). У тебя в распоряжении функция Dir() FindFirstFile() FindNextFile(), может быть что-то ещё, но никаких готовых коллекций и списков (т.е. FSO* и всяческих FileListBox-ов) использовать нельзя.

[tyomitch]

Ну, это легко -- сначала формируем список файлов, а потом по этому списку проходим For-ом

[Wolfie]

... Я прошу привести пример перечисления (а не получаения из готового источника, где всё уже перечислено, и остётся лишь получить оттуда информацию).

а получая информацию придется как раз ее перечислять

У тебя в распоряжении функция Dir() FindFirstFile() FindNextFile(), может быть что-то ещё, но никаких готовых коллекций и списков (т.е. FSO* и всяческих FileListBox-ов) использовать нельзя.

А не надо додумывать условия Спросил как - я сказал как Но если уж совсем невтерпеж то вот, пожалуйста, как заказывали, образчик:

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

Dim X As Byte, Fil() As String, Tmp As String, UBnd As Integer

ReDim Fil(0)
Fil(0) = Dir("*.*")

For X = 1 To 1
    Tmp = Dir()
    If Len(Tmp) Then
        UBnd = UBnd + 1
        ReDim Preserve Fil(UBnd)
        Fil(UBnd) = Tmp
        X = X - 1
    End If
Next X

MsgBox Join(Fil, vbNewLine)

[Хакер]

вцитаты.

[Wolfie]

верно, Хакер, верно, туда

WARNING! ёжику понятно, что использовать стоит Do, For тут приведен для жутко-любознательного хакера, использовать его не рекомендуется для решения поставленной задачи ! преписка: "его" означает "цикл For", но хакера тоже не используйте =)

[panchos]

А файлы все указывать надо??? для FileLen(FileName)

[Wolfie]

Не совсем втянул вопрос, но - да для каждого файла вызывать FileLen("FileName"), точнее как там было? FileLen(List1.List(X))

[panchos]

А можно как - нибудь посчитать размер папки? А то замучаюсь писать название файлов. И еще можно в VBA подсчитать количество файлов и папок?

[panchos]

tyomitch а как формировать список файлов???

[Viper]

panchos, дык это вот же и далее по всем полезным постам... Dir и FileLen тебе в помощь Ну и цикл Do

[panchos]

Написал вот так но что - то помоему не правильно

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

Sub LenFile()

Dim Fil(0) As String
Dim Tmp As String
Dim Ch As Integer
Dim X As Byte

'ReDim Fil(0)
Fil(0) = Dir("*.*")

While "\\Newmail\BACKUP\backup\Êèòàé" <> ""

Tmp = Dir("*.*")
    If Len(Tmp) Then
        Ch = Ch + 1
        'ReDim Preserve Fil(Ch)
        Fil(Ch) = Tmp
        X = X - 1
    End If
'Next X
Wend
End Sub

[GSerg]

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

While "\\Newmail\BACKUP\backup\Êèòàé" <> ""

Что курим? Где берём?

[panchos]

Если по файлам то получается, а если папку что-то не очень.

[djalex777]

Как же можно начинать писать на каком либо языке, не зная основ??? И не понимая, как что работает (в смысле алгоритма хотя бы). А если хочется просто выдрать код набери в поиске "поиск файлов в папке". Ужас...

[panchos]

GSerg Мы проверяем, если папка Êèòàé"(Китай) не пуста то проходим цикл.

[GSerg]

GSerg Мы проверяем, если папка Êèòàé"(Китай) не пуста то проходим цикл.

Следовательно, msgbox "Китай" выведет количество людей в Китае, ну а msgbox "4638 5647 3904 8594" выведет количество денег, имеющихся на счету кредитной карты Visa Classic с номером 4638 5647 3904 8594...

[panchos]

А как через FOR перебирать файлы в папке. И еще как сформировать файлы которые нужно будет перебирать? Спасибо.

[alibek]

1. Перечитать двенадцатый пост.
2. Повторять пункт 1 до просветления.

[Wolfie]

panchos нет, лучше перечитай 14 пост, что там красным выделено, так просветление быстрее снизайдет.

И еще как сформировать файлы которые нужно будет перебирать?

Э, это уже круто. Ну можно их писать в блокноте, в MS Word, можно их нарисовать в MS Paint, можно накопировать их откуда угодно... А как список формируется этих файлов уже описано в этой теме, причем 2 способами, как минимум. Взять и функцией Dir в цикле Do все перебрать и запихать в ListBox или Array() As String (если в модуле обработка идет), тока вот пока список будет формироваться, можно сразу функцией FileLen размер у всех посчитать
Боюсь, что прослыву попугаем...

[panchos]

Написал такую прноцедуру, а как её сделать рекурсивно не знаю

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

Sub ZAKUPKI()
Directory = "\\Newmail\BACKUP\backup\Закупки\Заявки поставщикам\"
i = 1

    ' Вставка заголовка
    Sheets("Закупки").Cells(i, 1) = "Имя Файла"
    Sheets("Закупки").Cells(i, 2) = "Размер"
    Sheets("Закупки").Cells(i, 3) = "Дата/Время"
   
    ' Получение первого файла
    Zak = Dir(Directory, 7)
   
    Do While Zak <> ""
    i = i + 1
    Sheets("Закупки").Cells(i, 1) = Zak
    Sheets("Закупки").Cells(i, 2) = FileLen(Directory & Zak)
    Sheets("Закупки").Cells(i, 3) = FileDateTime(Directory & Zak)
   
    ' Получение последнего файла
    Zak = Dir()
   
Loop

End Sub

[Wolfie]

Рекурсия это когда функция саму себя вызывает,

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

Так я понимаю решение поставленной задачи