Проверка размера файла

Сергей125

Гость

10.02.2011 21:21:53

Здравствуйте уважаемые форумчане.
Скажите пожалуйста, у меня такой вопрос, например есть код который считывает из закрытой книги с определенных ячеек данные. Процесс реализован с помощью формы, по нажатии на кнопку открыть, выбираешь путь к файлу, и уже из этого файла в форму вставляются искомые значения. Существует ли код, с помощью которого можно было бы проверить какой размер имеет тот документ из которого нужно получить значения? Тоесть,
Если Документ С:\1.xls размер его 100kb То
msgbox "OK"
Else
msgbox "Великовато будет"
Конец Если
Если можете подскажите пожалуйста как реализовать задуманное?
Спасибо.

Guest

Гость

10.02.2011 21:31:47

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("C:\autoexec.bat")
Str = vbNullString
Str = Str & "Дата создания - " & File.DateCreated & vbCrLf
Str = Str & "Дата последнего доступа - " & File.DateLastAccessed & vbCrLf
Str = Str & "Дата последней модификации - " & File.DateLastModified & vbCrLf
Str = Str & "Диск - " & File.Drive.DriveLetter & vbCrLf
Str = Str & "Имя - " & File.Name & vbCrLf
Str = Str & "Родительский каталог - " & File.ParentFolder.Path & vbCrLf
Str = Str & "Путь - " & File.Path & vbCrLf
Str = Str & "Короткое имя - " & File.ShortName & vbCrLf
Str = Str & "Путь в формате 8.3 - " & File.ShortPath & vbCrLf
Str = Str & "Размер - " & File.Size & vbCrLf
Str = Str & "Тип файла - " & File.Type
MsgBox Str

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#3 10.02.2011 21:36:03 Ещё: Sub qqq() iFullName = "C:\Temp\Test.xls" iFileSize = FileLen(iFullName) MsgBox "Размер файла составляет : " & iFileSize & " байт", , "" End Sub

Сергей125 Гость	#4 10.02.2011 21:41:25 Ух, друзья, столько информации и в такие короткие сроки, Спасибо Вам. Думаю дальше уже сам разберусь. Спасибо!

Читают тему