VBNet - Форум - Метка диска

Вопрос: Метка диска Добавлено: 21.11.06 09:37

Автор вопроса: Боцман | Web-сайт: Rus-Skipper.narod.ru | ICQ: 295725312

Как узнать метку диска. Ненайду функцию.
Можно конечно и так...

Private Sub Form_Load()
Text1.Text = Asc(CurDir)
Text2.Text = Chr(Text1.Text)
End Sub

Это просто код без Dim(ов)
Может есть попроще?
Ответить

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

Номер ответа: 1 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| Цитата \| #1	Добавлено: 21.11.06 10:20
	Dim fso As New FileSystemObject Dim drv As Drive For Each drv In fso.Drives With drv Debug.Print .DriveLetter, .DriveType, .FileSystem End With Next 2 = HDD 3 = network drive 4 = CDROM Ответить

Номер ответа: 2 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru Профиль \| Цитата \| #2	Добавлено: 21.11.06 10:40
	Так еще длинне, мне ведь просто метку где запущена программа. Поросто обидно если есть все одной строчкой, а я незнаю. Через Dim-ы можно так Dim a As Long, c As String a = Asc(CurDir) c = Chr'это метка, но ведь три строчки? Ответить

Номер ответа: 3 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| Цитата \| #3	Добавлено: 21.11.06 10:49
	Тебе этих 30 байтов кода жалко? Chr(Asc(CurDir)) Ответить

Номер ответа: 4 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru Профиль \| Цитата \| #4	Добавлено: 21.11.06 10:57
	Вот это уже ОТВЕТ. Private Sub Form_Load() Form1.Caption = Chr(Asc(CurDir)) End Sub СПАСИБОооооооо. (иногда очевидное где-то рядом а нас клинит) Ответить

Номер ответа: 5 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| Цитата \| #5	Добавлено: 21.11.06 12:08
	Тебе этих 30 байтов кода жалко? Chr(Asc(CurDir)) Если б 30 байтов, а то ему бедному с собой ф сетупе таскать всю fso надо будет Ответить

Номер ответа: 6 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| Цитата \| #6	Добавлено: 21.11.06 12:19
	Люди, а чего вы чудите? Left(CurDir, 1) Ответить

Номер ответа: 7 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru Профиль \| Цитата \| #7	Добавлено: 21.11.06 13:28
	Left(CurDir, 1) тоже хороший вариант Спасибо Вот ведь сколько вариантов, на один вопрос, есть из чего выбирать. Ответить

Номер ответа: 8 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| Цитата \| #8	Добавлено: 22.11.06 16:43
	Люди, а чего вы чудите? Left(CurDir, 1) Ааа, только не мой моск, ***ные пришельцы! Тему в юмор, срочно Ответить

Номер ответа: 9 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| Цитата \| #9	Добавлено: 22.11.06 16:44
	И, кстати, CurDir совсем не обязательно находится на том же диске, что и программа Ответить

Номер ответа: 10 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru Профиль \| Цитата \| #10	Добавлено: 22.11.06 21:00
	Вообщето проблема снята. Sharp а как же правильно, хотя бы на будущее знать? Ответить

Номер ответа: 11 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| Цитата \| #11	Добавлено: 23.11.06 01:26
	Left$(App.Path, 1) ? Ответить

Номер ответа: 12 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru Профиль \| Цитата \| #12	Добавлено: 23.11.06 09:36
	Left$(App.Path, 1) тоже вариант. Кстати я проверил из другой операционки все три предложения работат правильно. Теперь в Яндексе надеюсь появится ссылка на (метка диска) и небудет подобных вопросов. ВСЕМ СПАСИБО Ответить

Номер ответа: 13 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| Цитата \| #13	Добавлено: 23.11.06 10:32
	Боцман, а я вот очень надеюсь, что ссылка в Яндексе на этот тупейший топик не появится... Ты даже не понял отличие метки диска от буквы диска, не говоря уже обо всём остальном... Ответить

Номер ответа: 14 Автор ответа: Viper ICQ: 249094859 Вопросов: 0 Ответов: 310	Профиль \| Цитата \| #14	Добавлено: 23.11.06 10:37
	Это ж надо столько бреда написать в ответ на абсолютно бредовы вопрос Ответить

Номер ответа: 15 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru Профиль \| Цитата \| #15	Добавлено: 23.11.06 10:47
	Какая разница пусть будет буква диска если название есть метка, а что мне надо я понял. А понял следуещее у каждого здесь есть свое решение на одну тему и свой вопрос, это радует, а слова?- они остаются словами. Ответить

Страница: 1 |