Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB Script: узнать размер файла / 7 сообщений из 7, страница 1 из 1
31.01.2006, 17:31:55
    #33514058
Paranoik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB Script: узнать размер файла
Подскажите, что-то никак немогу найти как определить размер файла.
Пишу скрипт в 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
31.01.2006, 17:54:53
    #33514172
Олег Щербина
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB Script: узнать размер файла
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
31.01.2006, 18:06:21
    #33514209
Paranoik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB Script: узнать размер файла
2 Олег Щербина
Спасибо!
...
Рейтинг: 0 / 0
01.02.2006, 11:00:09
    #33515272
Paranoik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB Script: узнать размер файла
Видел этот пример на 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
01.02.2006, 11:26:40
    #33515385
VB Script: узнать размер файла
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
06.02.2006, 10:02:35
    #33524975
Paranoik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB Script: узнать размер файла
Спасибо! Ща попробую )
...
Рейтинг: 0 / 0
06.02.2006, 10:19:24
    #33525011
Paranoik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB Script: узнать размер файла
Ещё раз спасибо, всё отлично работает.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB Script: узнать размер файла / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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