Страница 2 из 7
Добавлено: Ср ноя 07, 2007 22:23:33
\\Sergey//
На счет первого кода - поставь вместо
На счет второго - в произвольном доступе чтение файла производится с помощью
GET
Добавлено: Чт ноя 08, 2007 07:38:06
P-cad
Насколько я понимаю, line input считывает каждую строчку в отдельную переменную?
Добавлено: Чт ноя 08, 2007 10:08:00
\\Sergey//
Да. Это так и есть.
Добавлено: Чт ноя 08, 2007 22:46:34
P-cad
Фу, я сейчас написал последнюю строчку. Мучался около месяца. Я файловый менеджер сделал!
Кажется, еще и работает...
Добавлено: Чт ноя 08, 2007 23:09:01
\\Sergey//
Интересно посмотреть. Вложить в заархивированном виде можешь?
Добавлено: Пт ноя 09, 2007 07:16:05
P-cad
Постараюсь вечером залить.
EFM
Добавлено: Пт ноя 09, 2007 17:28:42
P-cad
Вот...
EFM 1.0 beta.
Код прилагается.
Не стесняйся критиковать - не обижусь
Может что интересное посоветуешь.
это же Бета версия.
Добавлено: Пт ноя 09, 2007 18:48:45
\\Sergey//
Что ж, не плохо. Только уж больно скудная информация о файлах там дается. Мой тебе совет - используй модель FSO. Тогда о файле можно будет узнать столько инфы - мама не горюй.
Вот не полный список:
1 Атрибуты файла
2 Дата создания
3 Дата последнего использования
4 Дата последнего изменения
5 Путь к файлу
6 Краткое имя
7 Краткий путь
8 Полный размер
9 Тип
Также в FSO существует большое количество функций по работе с папками.
Кстати, а как долго ты уже VB изучаешь?
Добавлено: Пт ноя 09, 2007 19:08:13
P-cad
Около двух лет, просто меня раньше интересовало решение задач, а сейчас вот решил расширить знания... Так что я FSO пробовал, но как то не врубился в эту тему. Если можешь, поподробнее объяснишь?(а ведь тему-то я создал из-за проблем с данной прогой)
Добавлено: Пт ноя 09, 2007 19:16:31
\\Sergey//
Что именно ты не понял в FSO?
Добавлено: Пт ноя 09, 2007 22:29:24
P-cad
Как создать объект FSO. А без него, сам понимаешь, я пока и попробовать ничего не могу в FSO. Вроде смотрел в самоучителе VВ - все равно ничего не получается.
Добавлено: Пт ноя 09, 2007 23:25:10
\\Sergey//
Открываешь меню Project, выполняешь команду References, в появившемся окне устанавливаешь галочку напротив Microsoft Scripting Runtime и, наконец нажимаешь OK.
Теперь пишешь код:
Код: Выделить всё
Dim fso As New FileSystemObject ' Объявляем переменную
' типа FSO
Dim drv As Drive ' Объявляем переменную для работы с диском
Set drv = fso.GetDrive(fso.GetDriveName("C:\")) ' Получаем
' доступ к диску
With drv
Form1.Caption = .FileSystem ' Получаем и выводим в заголовке
' формы файловую систему диска C:\
End With
Добавлено: Сб ноя 10, 2007 07:46:53
P-cad
Ясно. Моя ошибка в том, что я не подключал данный файл к проге. Попробую. А что насчет файлов?
Добавлено: Сб ноя 10, 2007 22:15:10
\\Sergey//
Блин, целый день в инет выйти не могу!
Вот код для получения основной информации о файле:
Код: Выделить всё
Dim fso As New FileSystemObject
Dim fil As File
Set fil = fso.GetFile("C:\1.txt")
With fil
Print .Attributes
Print .DateCreated
Print .DateLastAccessed
Print .DateLastModified
Print .Drive
Print .Name
Print .Path
Print .ShortName
Print .ShortPath
Print .Size
Print .Type
End With
Добавлено: Вс ноя 11, 2007 08:25:56
P-cad
With fill значит, что действие происходит над объектом fil?
Добавлено: Вс ноя 11, 2007 21:34:53
\\Sergey//
Конструкция With...End With по своей сути просто уменьшает длину кода. Вместо fil ты ставишь любой объект, имеющий свойства и методы и в дальнейшем, задавая свойство объекта ты не пишешь сам объект, а ставишь точку и указываешь свойство. Очень удобно.
Следующие два кода выполняют одинаковые функции, однако размер второго кода меньше:
Код: Выделить всё
Print fil.Attributes
Print fil.DateCreated
Print fil.DateLastAccessed
Print fil.DateLastModified
Print fil.Drive
Print fil.Name
Print fil.Path
Print fil.ShortName
Print fil.ShortPath
Print fil.Size
Print fil.Type
Код: Выделить всё
With fil
Print .Attributes
Print .DateCreated
Print .DateLastAccessed
Print .DateLastModified
Print .Drive
Print .Name
Print .Path
Print .ShortName
Print .ShortPath
Print .Size
Print .Type
End With
Добавлено: Вс ноя 11, 2007 22:09:52
P-cad
Мда... Пробовал такую фишку?
--
randomize timer
for i = 1 to 10000
form1.top = rnd * 5000
form1.left = rnd * 5000
next i
--
я сейчас просто работаю над такой прогой - разные глюки в компе делает. Не подскажешь, как сделать, чтобы прога сама загружалась,без
разрешения пользователя, планировщик не считается?
Добавлено: Вс ноя 11, 2007 22:25:47
ARV
Visual BASIC: где ошибка? - ошибка в выборе системы программирования...
И потом, какое отношение все эти проблемы имеют к "интеграции с ПК"? тем более, что речь уже пошла о всяких вредных программах...
Добавлено: Вс ноя 11, 2007 22:54:34
P-cad
АRV, отвечаю. Во-первых, в пояснении к "интеграция с ПК" написано:"обсуждаем драйвера, протоколы, ЯЗЫКИ ПРОГРАММИРОВАНИЯ". Во-вторых, эта "вредоносная программа" не уйдет ни на чей комп и создается для прикола, а не вреда. Просто глюки не отслеживаются по контролалтделит;-). В- третьих, мы тут не флудим, а общаемся и обсуждаем VВ, так что, господа модераторы, не к чему вам и придраться - все по ГОСТу
.
Добавлено: Пн ноя 12, 2007 19:45:51
\\Sergey//
я сейчас просто работаю над такой прогой - разные глюки в компе делает. Не подскажешь, как сделать, чтобы прога сама загружалась,без
разрешения пользователя, планировщик не считается?
То-есть ты хочешь, чтобы программа сама запускалась при включении компьютера?
Тут есть два способа:
1) Поместить программу в папку "Автозагрузка"
2) В системном реестре по адресу HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run создать параметр типа REG_SZ и указать в этом параметре путь к программе.