| ← Июль 2018 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
|
9
|
10
|
11
|
13
|
14
|
15
|
|
|
16
|
17
|
18
|
19
|
20
|
21
|
22
|
|
23
|
24
|
25
|
26
|
27
|
28
|
29
|
|
30
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/basic
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Basic / VBA
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Basic
Консультация # 18603: Здравствуйте уважаемые эксперты. Возник такой вопрос, как мне на VB6.0 сделать так, чтобы при нажатии на кнопку загаралась или погасала любая из заранее выбранных лампочек Num Lock, Caps Loock, Scroll Lock? Пожалуйста пришлите пример.... Консультация # 159917: Здравствуйте! У меня проблема: мне надо узнать размер файла, а у больших файлов (>1Гб) функция FileLen находит его неправильно, она часто выводит отрицательное значение. Скажите, пожалуйста, как еще можно узнать размер файла? Я программирую на VB6 (Visual Basic 6). ОЧЕНЬ надеюсь на помощь! Большое спасибо!... Привет!!!
Дата отправки: 16.05.2005, 14:17 Консультирует DSota: Здравствуйте, prn! Приложение:
Консультирует Александр Шевченко: Здравствуйте, prn! Приложение:
Консультирует Puma: Здравствуйте, prn! Приложение:
Здравствуйте уважаемые эксперты. Возник такой вопрос, как мне на VB6.0 сделать так, чтобы при нажатии на кнопку загаралась или погасала любая из заранее выбранных лампочек Num Lock, Caps Loock, Scroll Lock? Пожалуйста пришлите пример.
Дата отправки: 22.03.2005, 13:42 Консультирует Licvidator: Здравствуйте, Oleinik D.V!
Здравствуйте!
Дата отправки: 08.02.2009, 12:18 Консультирует Megaloman (Академик): Здравствуйте, AkaProc! Не программирую в VB6. Для VBA нашел описание функции © Цитата: В справке по VBA прочел: FileLen Function Returns a Long specifying the length of a file in bytes. Long data type A 4-byte integer ranging in value from -2,147,483,648 to 2,147,483,647. The ampersand (&) type-declaration character represents a Long in Visual Basic. Повторюсь: Не программирую в VB6, под руками нет ни литературы, ни хелпов. Наверное, можно поискать другую функцию, возвращающую не Long, a Double (если и в самом деле в VB6 функция FileLen возвращает значение Long, а не просто у Вас ошибка - пытаетесь значение функции присвоить переменной типа не Double). © Цитата: В справк
е по VBA прочел: Double data type A data type that holds double-precision floating-point numbers as 64-bit numbers in the range -1.79769313486231E308 to -4.94065645841247E-324 for negative values; 4.94065645841247E-324 to 1.79769313486232E308 for positive values. The number sign (#) type-declaration character represents the Double Код :: выделить код Dim Z1 As Double, Z2 As Double
MyFile1 = "W:\MOV01970.MPG"
MyFile2 = "E:\Virtual.CD\Painting_Big.iso"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File1 = FSO.GetFile(MyFile1)
Z1 = File1.Size
Set File2 = FSO.GetFile(MyFile2)
Z2 = File2.Size
Z1 = 1 287 071 917 Z2 = 4 603 215 872 (пробелы в число вставил для читаемости) Надеюсь этот способ получится и у Вас, разве что придётся добавить описания типов в Dim
Консультирует Тесленко Евгений Алексеевич: Здравствуйте, AkaProc! Код :: выделить код Sub fileSize()
Debug.Print Format(iLenFile("E:\Disks\FileImage.nrg"), "#,##0")
End Sub
Function iLenFile(sFileName$) As Double
Dim FSO, f
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.GetFile(sFileName)
iLenFile = FSO.GetFile(sFileName).Size
Set FSO = Nothing
End Function
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
