Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Независимый от буквы диска путь к файлу Добавлено: 04.11.08 14:32  

Автор вопроса:  Evgenatrix
Я в VB и VBA новичок.

1) Есть 40 утилит (exe-файлы), нужно было их объединить.

2) Я создал простую форму (своего рода меню) и на ней 41 кнопку.(40 кнопок через Shell на exe-файлы, лежащие в папке на диске С: и 1 кнопка - Выход). Может не очень симпатично это выглядит - 40 кнопок в 4-х колонках, но всё работает, НО!!!

3) Дело в том, что эти утилиты предполагаемо должны находиться на CD-диске. CD-привод у меня дома имеет букву E:.
Но на другом компе CD-привод на букве D:.

Как можно описать так, чтобы програма на CD-диске работала, вне зависимости от буквы CD-привода?

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


Ответить

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

Номер ответа: 1
Автор ответа:
 Djon



Вопросов: 61
Ответов: 471
 Web-сайт: www.vk-book.ru
 Профиль | | #1
Добавлено: 04.11.08 14:49
app.path & "имя твоей утилиты"

Ответить

Номер ответа: 2
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
 Web-сайт: winandfx.narod.ru
 Профиль | | #2
Добавлено: 04.11.08 19:15
я бы даже сделал так:
iif(right(app.path,1)="\",app.path,app.path & "\";) & "имя твоей утилиты"
иначе теоретически может отсутствовать слеш перед "имя твоей утилиты"

Ответить

Номер ответа: 3
Автор ответа:
 Evgenatrix



Вопросов: 1
Ответов: 1
 Профиль | | #3 Добавлено: 05.11.08 01:32
Спасибо большое за советы...буду пробовать.

Ответить

Номер ответа: 4
Автор ответа:
 Шпион



ICQ: 250543104 

Вопросов: 13
Ответов: 118
 Профиль | | #4 Добавлено: 05.11.08 05:22
  1.  
  2. cstMyRelativePath="\UTILS\"
  3. strMyUtilShortName="1.exe"
  4. strMyPath=Right(App.Path,2) & cstMyRelativePath
  5. Msgbox (strMyPath & strMyUtilShortName)



Сообразишь?
P.S. Tip: перед запуском утилиты, проверь ее наличие на диске - мало ли чего

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам