Физический или логический диск?

04.02.2008, 21:25. **Показов** 3283. **Ответов** 10

Студворк — интернет-сервис помощи студентам

Спецы, помогите с решением проблемы...

Условие задачи:
два физических диска разбиты на несколько логических. Как программе определить на каком физическом диске она находится?

Заранее благодарен.

@vladeD · 06.02.2008, 12:08

Есть например два жестких диска ... но комп видит наверное такое:
A,B,C,D,E,F,G,H
A - флоппи
B - уже никто не использует почти
С, D и Е - например на одном жестком диске
F, G и H - на другом жестком диске
Так я понял !!??

Тогда я сделал бы так:

If Left(App.Path, 1)=C Or Left(App.Path, 1)=D or Left(App.Path, 1)=E Then Msgbox 'Это первый жесткий диск'

If Left(App.Path, 1)=F Or Left(App.Path, 1)=G or Left(App.Path, 1)=H Then Msgbox 'Это второй жесткий диск'

Ну как я понял так и отвечаю

Пока

@Alexey · 06.02.2008, 12:30

в бэйсике этого не определить

@vladeD · 06.02.2008, 13:17

Даже обидно стало за VB5 (Visual Basic ver. 5)
И так, положи на чистую форму:

Option Explicit

Private Sub Form_Load()
'Если 1-й жесткий диск разбит на C, D и E, а приложение находится на одном из них:

'Установи логические диски в коде по факту сам
If Left(App.Path, 1) = 'C' Or Left(App.Path, 1) = 'D' Or Left(App.Path, 1) = 'E' Then MsgBox 'Это первый жесткий диск'

' То же самое для второго жесткого диска,
'Установи логические диски в коде по факту сам:

If Left(App.Path, 1) = 'F' Or Left(App.Path, 1) = 'G' Or Left(App.Path, 1) = 'H' Then MsgBox 'Это второй жесткий диск'

'Если диск 'F' окажется сетевой, то можно так:
If InStr(App.Path, 'F') Then MsgBox 'Это второй жесткий диск'

End Sub

@Alexey · 06.02.2008, 13:20

Voldemar, ты, конечно, правильный код приводишь, только твоя программа будет работать только на том компьютере, диски которого ты забьешь в коде. А, например, на моем компе, который имеет всего один винт и один логический диск, она сообщит о наличии аж 6 дисков... круто конечно.

@vladeD · 06.02.2008, 13:47

Спецы, помогите с решением проблемы...

Условие задачи:
два физических диска разбиты на несколько логических. Как программе определить на каком физическом диске она находится?
Это твой вопрос???????????????

'--------------------------
А так как ты ставишь в итоге вопрос - тогда в коде надо сделать коррекцию по факту сколько логических дисков.
...гм

)
У тебя оказался один диск и он же один лигический!!!
Программа сама в приведенном мною коде не определит сколько логических и сколько жестких дисков!!!! Она определить програмно где ты находишься в данный момент для решения каких-то вопросов при программировании.

Если это тебя волнует: как программно определить где какой логический диск или к какому жесткому относится данный логический - то это уже совсем другая постановка вопроса и методы решения, т.е. написания кодов.
И так нужно четко ставить волпрос и никогда не стесняйся, коль взялся за перо написать вопрос, никто не осудит. Все так начинали

@Alexey · 06.02.2008, 13:51

>> Это твой вопрос?

как видишь - не мой, мне просто прикольно было читать твое решение проблемы, с таким же успехом можно сразу забить в код, что программа находится на диске 'C:', тогда вообще ничего рассчитывать не придется

@Alexey · 06.02.2008, 13:52

P.S.

хотя в принципе я согласен, что автор мог бы немного подругому сформулировать свой вопрос для более полного разъяснения задачи.

@vladeD · 06.02.2008, 13:55

P.S.
Как программе определить на каком физическом диске она находится?
'----------------
Ну вот и надо оказывается ещо и грамотно читать вопросы

(Это уже я о себе)

Просто:

Msgbox Left(App.Path, 3)
или Переменная=Left(App.Path, 3)

06.02.2008, 21:25

Простите, господа, если я не очень точно сформулировал свой вопрос.
Попробую объяснить подробнее:

Я хочу привязать свой программный продукт к серийному номеру HDD.
Но если программа будет установлена не на диск С: (тут все ясно), то может возникнуть вопрос - к какому диску мне привязаться, ведь если у пользователя три физических диска разбиты на 8 логических и он запихал программу к черту на кулички, то на каком диске оказалась программа?
Привязываться к номеру логического диска не хочу...

Буду благодарен любой идее.
alex_begunov@chat.ru

06.02.2008, 21:36

P.S. На сколько я знаю, в системе показываются сначала все физические диски, а уж потом логические по порядку. Так что разложить буквы дисков по полочкам не получится.
Если первый диск разбит на два, второй - на три, а третий на два диска, то мы получим следующую последовательность:
C: (1HDD)
D: (2HDD)
E: (3HDD)
F: (1HDD)
G: (2HDD)
H: (2HDD)
I: (3HDD)

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

BaoBab

	Физический или логический диск? 04.02.2008, 21:25. Показов 3283. Ответов 10 Метки нет (Все метки) Спецы, помогите с решением проблемы... Условие задачи: два физических диска разбиты на несколько логических. Как программе определить на каком физическом диске она находится? Заранее благодарен.

@vladeD 0 / 0 / 0 Регистрация: 26.06.2007 Сообщений: 59
	06.02.2008, 12:08
	Есть например два жестких диска ... но комп видит наверное такое: A,B,C,D,E,F,G,H A - флоппи B - уже никто не использует почти С, D и Е - например на одном жестком диске F, G и H - на другом жестком диске Так я понял !!?? Тогда я сделал бы так: If Left(App.Path, 1)=C Or Left(App.Path, 1)=D or Left(App.Path, 1)=E Then Msgbox 'Это первый жесткий диск' If Left(App.Path, 1)=F Or Left(App.Path, 1)=G or Left(App.Path, 1)=H Then Msgbox 'Это второй жесткий диск' Ну как я понял так и отвечаю Пока 0

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	06.02.2008, 12:30
	в бэйсике этого не определить 0

@vladeD 0 / 0 / 0 Регистрация: 26.06.2007 Сообщений: 59
	06.02.2008, 13:17
	Даже обидно стало за VB5 (Visual Basic ver. 5) И так, положи на чистую форму: Option Explicit Private Sub Form_Load() 'Если 1-й жесткий диск разбит на C, D и E, а приложение находится на одном из них: 'Установи логические диски в коде по факту сам If Left(App.Path, 1) = 'C' Or Left(App.Path, 1) = 'D' Or Left(App.Path, 1) = 'E' Then MsgBox 'Это первый жесткий диск' ' То же самое для второго жесткого диска, 'Установи логические диски в коде по факту сам: If Left(App.Path, 1) = 'F' Or Left(App.Path, 1) = 'G' Or Left(App.Path, 1) = 'H' Then MsgBox 'Это второй жесткий диск' 'Если диск 'F' окажется сетевой, то можно так: If InStr(App.Path, 'F') Then MsgBox 'Это второй жесткий диск' End Sub 0

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	06.02.2008, 13:20
	Voldemar, ты, конечно, правильный код приводишь, только твоя программа будет работать только на том компьютере, диски которого ты забьешь в коде. А, например, на моем компе, который имеет всего один винт и один логический диск, она сообщит о наличии аж 6 дисков... круто конечно. 0

@vladeD 0 / 0 / 0 Регистрация: 26.06.2007 Сообщений: 59
	06.02.2008, 13:47
	Спецы, помогите с решением проблемы... Условие задачи: два физических диска разбиты на несколько логических. Как программе определить на каком физическом диске она находится? Это твой вопрос??????????????? '-------------------------- А так как ты ставишь в итоге вопрос - тогда в коде надо сделать коррекцию по факту сколько логических дисков. ...гм ) У тебя оказался один диск и он же один лигический!!! Программа сама в приведенном мною коде не определит сколько логических и сколько жестких дисков!!!! Она определить програмно где ты находишься в данный момент для решения каких-то вопросов при программировании. Если это тебя волнует: как программно определить где какой логический диск или к какому жесткому относится данный логический - то это уже совсем другая постановка вопроса и методы решения, т.е. написания кодов. И так нужно четко ставить волпрос и никогда не стесняйся, коль взялся за перо написать вопрос, никто не осудит. Все так начинали 0

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	06.02.2008, 13:51
	>> Это твой вопрос? как видишь - не мой, мне просто прикольно было читать твое решение проблемы, с таким же успехом можно сразу забить в код, что программа находится на диске 'C:', тогда вообще ничего рассчитывать не придется 0

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	06.02.2008, 13:52
	P.S. хотя в принципе я согласен, что автор мог бы немного подругому сформулировать свой вопрос для более полного разъяснения задачи. 0

@vladeD 0 / 0 / 0 Регистрация: 26.06.2007 Сообщений: 59
	06.02.2008, 13:55
	P.S. Как программе определить на каком физическом диске она находится? '---------------- Ну вот и надо оказывается ещо и грамотно читать вопросы (Это уже я о себе) Просто: Msgbox Left(App.Path, 3) или Переменная=Left(App.Path, 3) 0

BaoBab
	06.02.2008, 21:25
	Простите, господа, если я не очень точно сформулировал свой вопрос. Попробую объяснить подробнее: Я хочу привязать свой программный продукт к серийному номеру HDD. Но если программа будет установлена не на диск С: (тут все ясно), то может возникнуть вопрос - к какому диску мне привязаться, ведь если у пользователя три физических диска разбиты на 8 логических и он запихал программу к черту на кулички, то на каком диске оказалась программа? Привязываться к номеру логического диска не хочу... Буду благодарен любой идее. alex_begunov@chat.ru

BaoBab
	06.02.2008, 21:36
	P.S. На сколько я знаю, в системе показываются сначала все физические диски, а уж потом логические по порядку. Так что разложить буквы дисков по полочкам не получится. Если первый диск разбит на два, второй - на три, а третий на два диска, то мы получим следующую последовательность: C: (1HDD) D: (2HDD) E: (3HDD) F: (1HDD) G: (2HDD) H: (2HDD) I: (3HDD)