VBNet - Форум - размер папки

Вопрос: размер папки Добавлено: 17.02.09 15:53

Автор вопроса: veibert | Web-сайт: keysled.narod.ru | ICQ: 470733077

Люди добрые подскажите как в VB6 узнать размер папки CurrentFolder(Dir1.Path)
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: dushv Вопросов: 1 Ответов: 1	Профиль \| \| #1	Добавлено: 17.02.09 16:29
	Посмотри здесь: http://www.vbnet.ru/faq/showtopic.asp?id=432 Ответить

Номер ответа: 2 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #2	Добавлено: 18.02.09 00:30
	Мозг в коме Шо за дотнетчик такой код туда всунул? Veibert может тебе так легче будет? войди в проект \ референсы поставь галку перед Microsoft Scripting Runtime Dim fso, fld, s Set fso = CreateObject("Scripting.FileSystemObject") Set fld = fso.GetFolder("c:\мои документы") s = fld.Name & " занимает " & fld.Size & " байт" MsgBox s пример из справочника по File System Object Ответить

Номер ответа: 3 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #3	Добавлено: 18.02.09 00:32
	Dim FSO As Object Dim Fld As Object Dim S As String это если по правильному Ответить

Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #4	Добавлено: 18.02.09 17:39
	а помоему, для этого и не нужно ставить галку в "проект \ референсы ", или я чего не помню? Ответить

Номер ответа: 5 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #5	Добавлено: 19.02.09 08:40
	Эт я туплю. Для креат обжекта ссылка действительно ненужна. Но удобнее именно ссылкой и Dim FSO As New FileSystemObject кажись так это было Ответить

Номер ответа: 6 Автор ответа: veibert ICQ: 470733077 Вопросов: 17 Ответов: 18	Web-сайт: keysled.narod.ru Профиль \| \| #6	Добавлено: 19.02.09 17:56
	Спасибо огромное всем за помощь, проблема решена не стал писать Set fso = CreateObject("Scripting.FileSystemObject" а подключил Microsoft Scripting Runtime, думаю разницы нет Ответить

Страница: 1 |