| Вопрос: Метка диска | Добавлено: 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-сайт: Профиль | | #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-сайт: Профиль | | #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-сайт: Профиль | | #7 | Добавлено: 21.11.06 13:28 |
|
Left(CurDir, 1) тоже хороший вариант
Спасибо Вот ведь сколько вариантов, на один вопрос, есть из чего выбирать. |
||
|
Номер ответа: 8 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #8 | Добавлено: 22.11.06 16:43 |
|
Люди, а чего вы чудите?
Ааа, только не мой моск, ***ные пришельцы! Left(CurDir, 1)  Тему в юмор, срочно
|
||
|
Номер ответа: 9 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #9 | Добавлено: 22.11.06 16:44 |
| И, кстати, CurDir совсем не обязательно находится на том же диске, что и программа | ||
|
Номер ответа: 10 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #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-сайт: Профиль | | #12 | Добавлено: 23.11.06 09:36 |
|
Left$(App.Path, 1)
тоже вариант. Кстати я проверил из другой операционки все три предложения работат правильно. Теперь в Яндексе надеюсь появится ссылка на (метка диска) и небудет подобных вопросов. ВСЕМ СПАСИБО |
||
|
Номер ответа: 13 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #13 | Добавлено: 23.11.06 10:32 |
|
Боцман, а я вот очень надеюсь, что ссылка в Яндексе на этот тупейший топик не появится...
Ты даже не понял отличие метки диска от буквы диска, не говоря уже обо всём остальном... |
||
|
Номер ответа: 14 Автор ответа: ViperICQ: 249094859 Вопросов: 0 Ответов: 310 |
Профиль | | #14 | Добавлено: 23.11.06 10:37 |
| Это ж надо столько бреда написать в ответ на абсолютно бредовы вопрос | ||
|
Номер ответа: 15 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #15 | Добавлено: 23.11.06 10:47 |
|
Какая разница пусть будет буква диска
если название есть метка, а что мне надо я понял. А понял следуещее у каждого здесь есть свое решение на одну тему и свой вопрос, это радует, а слова?- они остаются словами. |
||
Страница: 1 |