VB и PDF

[Mefody]

Вопрос такой.
Есть некий каталог, в котором лежат файлы, в том числе несколько формата PDF. Пользователь должен сам найти этот каталог и указать его программе. Требуется программно вычислить длины всех PDF-файлов из этого каталога и сохранить их в виде массива. Как это реализовать на VB6 или в VBA 2000/XP? Самое главное - как из-под VB вычислить длины PDF-файлов?

[Джон]

Что значит "длина PDF-файла"?

[Sla]

Джон, размер файла

[Sla]

Код:

Sub ShowFileList(folderspec)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 in fc
        s = s & f1.name 
        s = s &  vbCrLf
    Next
    MsgBox s
End Sub

Mefody, ракрути дальше

[Джон]

Джон, размер файла

Круто!

[Mefody]

Sla, спасибо, будем думать.

[Mefody]

Джон, а если не секрет, что крутого в том, что я размер назвал длиной? Ты разве сам так не говоришь?

[Алексей++]

Mefody, длина здесь может обозначать и количество страниц вообще то

[Джон]

Джон, а если не секрет, что крутого в том, что я размер назвал длиной? Ты разве сам так не говоришь?

НИКОГДА!!! Первый раз такое слышу. Если честно. "Размер", даже "сайз". Но не "длина". Длина обычно бывает у текста (длинный или короткий текст), у строки. Те в том случае, когда это текстовый файл, то можно скзать, что размер файла совпадает с длиной при выполнении некоторых условий (например это НЕ UNICODE ну и тп). Но в самом общем случае - НЕТ. Особенно когда речь идёт о текстовых документах. Может тебя именно интересовала длина текста в PDF документах, что абсолютно не совпадает с размером файла.

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

А "круто" - как это Славка сразу понял, что это размер файла. 

[HandKot]

2 Mefody
для получения файлов в каталоге использовать можно Dir
для получения размеров (длины) использовать FileLen

Приимущества: никаких сторонних приблуд
Недостатки: тоже есть 

 
PS: 2 Джон и  Sla

FileLen Function
Returns a Long specifying the length of a file in bytes.

 

[Джон]

PS: 2 Джон и  Sla

FileLen Function
Returns a Long specifying the length of a file in bytes.

 

В АПИ такой ф-ции нет. А враппер я могу назвать как угодно например DajRazmerFajla() - запаришься искать.

 

[Sla]

Джон, ВАСИК появился раньше
"Длина" строки - Len, а где-то length()

трудности перевода

[Джон]

ВАСИК - да, а VB никак не раньше.

Глянуть бы на исходники FileLen.

[HandKot]

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

ЗЫЖ кстати, VB поддерживает ф-ции Васика, точнее часть ф-ций остались неизменными от ...

[Джон]

Сила привычки. Меня минула чаша сия. Да и size короче чем length.

А хотя ты прав. Я ща не помню, но  в какой-то мультимедийной среде ф-я filelen возвращает длину звукового файла в секундах.

[Mefody]

Блин я дико ошибся. Мне нужно найти не размер файла, а количество страниц в PDF документе. Может кто-нибудь подсказать?

[Sla]

Mefody, ВОТ!

Джон! Ты знал!

Ну что? будем курить Adobe API ?

[Sla]

могу только ссылочкой помочь
http://www.adobe.com/devnet/acrobat/javascript.html

[Джон]

Блин я дико ошибся. Мне нужно найти не размер файла, а количество страниц в PDF документе.

Тогда "длина" - правильный термин. Беру все свои слова обратно.

Может кто-нибудь подсказать?

К сожалению ничем не могу помочь.

Джон! Ты знал!

А то! Мне просто доставляет удовольствие всех помучить. Да подольше. Бармалей просто какой-то. )