powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB Script: узнать размер файла
7 сообщений из 7, страница 1 из 1
VB Script: узнать размер файла
    #33514058
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите, что-то никак немогу найти как определить размер файла.
Пишу скрипт в DTS вроде этого:
Код: plaintext
1.
2.
3.
4.
Const ForReading =  1 
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\file.txt", ForReading)
...
f.Close

Как определить размер файла?
...
Рейтинг: 0 / 0
VB Script: узнать размер файла
    #33514172
Олег Щербина
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SIZE
For files, returns the size, in bytes, of the specified file. For folders, returns the size, in bytes, of all files and subfolders contained in the folder.

object.Size
The object is always a File or Folder object.

Remarks
The following code illustrates the use of the Size property with a Folder object:

[JScript]
function ShowFolderSize(filespec)
{
var fso, f, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder(filespec);
s = f.Name + " uses " + f.size + " bytes.";
return(s);
}
[VBScript]
Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & " uses " & f.size & " bytes."
ShowFolderSize = s
End Function
PS:Скачайте себе help по WSH (microsoft.com) - все вопросы отпадут
...
Рейтинг: 0 / 0
VB Script: узнать размер файла
    #33514209
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 Олег Щербина
Спасибо!
...
Рейтинг: 0 / 0
VB Script: узнать размер файла
    #33515272
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Видел этот пример на VB в хелпе, но он же для определения размера папки?
И когда пытаюсь изобразить что-то навроде
Код: plaintext
1.
2.
3.
4.
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder( "c:\message.html" )
s = f.size & " bytes."
MsgBox s
то получаю сообщение о том, что путь не найден.
...
Рейтинг: 0 / 0
VB Script: узнать размер файла
    #33515385
GetFolder поменяй на GetFile. :)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    Dim objFso
    Dim f

    Set objFso = CreateObject("Scripting.FileSystemObject")

    Set f = objFso.GetFile("c:\message.html")
    
    MsgBox f.Size
...
Рейтинг: 0 / 0
VB Script: узнать размер файла
    #33524975
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо! Ща попробую )
...
Рейтинг: 0 / 0
VB Script: узнать размер файла
    #33525011
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ещё раз спасибо, всё отлично работает.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB Script: узнать размер файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]