Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Вниз

Размер файла, не открывая.   Найти похожие ветки 

 
Zn   (2003-02-26 17:08) [0]

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


 
Clickmaker   (2003-02-26 17:15) [1]

FindFirst/FindNext


 
Zn   (2003-02-26 17:34) [2]


> Clickmaker © (26.02.03 17:15)

Остроумно...


 
Zn   (2003-02-26 17:50) [3]

Да неужели ж VB круче Дельфи? Даже там есть FileLen(filename)...


 
blackman   (2003-02-26 18:13) [4]

Ничего смешного. Правильно написано.
fi: TSHFileInfo;
....
ShGetFileInfo(PChar("*" + ext), 0, fi, SizeOf(fi),
SHGFI_SMALLICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME)
...


 
Clickmaker   (2003-02-26 18:16) [5]

Честно говоря, не пытался тебя рассмешить...
Если внимательно посмотреть хелп по FindFirst и структуре TSearchRec, то можно найти там поле Size, а если сказать так

var SR: TSearchRec;
FileSize: integer;
if (FindFirst("c:\folder\file.doc", faAnyFile, SR) = 0) then begin
FileSize := SR.Size;
FindClose(SR);
end;

то можно найти размер файла, не открывая его

PS. Подозреваю, что FileLen в VB делает тоже самое, только это скрыто от юзера


 
Zn   (2003-02-26 18:20) [6]

Вот теперь понятно, спасибо!



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.034 c
3-29697
Dracula2000
2003-02-18 10:38
2003.03.10
Есть проблемка с DLL & InterBase


14-30086
Nimda2000
2003-02-22 11:35
2003.03.10
---|Ветка была без названия|---


7-30162
pfar
2002-11-27 07:32
2003.03.10
Опрос модема


1-29831
ghg
2003-02-28 10:00
2003.03.10
Tbitmap


14-30109
Паша
2003-02-21 14:23
2003.03.10
Уже 6 лет не менял работу - личный рекорд!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский