Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как открыть фаил? Открыть НЕ из фиксированной папки!!!! 
V
    Опции темы
ruslan_rx
Дата 14.12.2006, 08:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



Всем Привет!!

    Понимаю что эта тема рассмотренна уже со всех сторон, но везде говорится про фаил который имеет контретный путь!! 
У меня следующая проблема как открыть фаил который находится в тойже папки что и ЕХЕ программа (или в подпапке), без указания конкретного диска и без указания сколько папок было до этого ???

 smile 
PM MAIL ICQ   Вверх
boevik
Дата 14.12.2006, 08:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35



App.Path - возвращает папку в которой находится exe.

Код

OpenFile (App.Path &"\myfile.dat")



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
ruslan_rx
Дата 14.12.2006, 09:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



boevik,  Спасибо! 
PM MAIL ICQ   Вверх
ruslan_rx
Дата 14.12.2006, 10:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



При написании OpenFile (App.Path &"\РК-1.xls") пишет ошибк: Sub or Function not defined!

Пишу тогда по другому Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE App.path РК-1.xls" ссылка выполняется но так же всплывают ошипки:

Цитата
Не удалость найти 'App.path'.Проверте задание имени и местоположения файла. 


и

Цитата
Не удалость найти '&.xls'.Проверте задание имени и местоположения файла. 


В чем дело???  smile 
PM MAIL ICQ   Вверх
Voldemar2004
Дата 14.12.2006, 10:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23



ruslan_rx
Цитата(ruslan_rx @  14.12.2006,  11:10 Найти цитируемый пост)
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE App.path РК-1.xls"
А ты так попробуй:
Код
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" & App.path & "\РК-1.xls"


Добавлено @ 10:24 
А лучше так:
Код
Option Explicit

Private Sub Command1_Click()

CommonDialog1.ShowOpen

Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " & CommonDialog1.FileName

End Sub



--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
ruslan_rx
Дата 14.12.2006, 10:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



Цитата
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" & App.path & "\РК-1.xls" 

Вообще не открывает, ОШИБКА!

а при 
Цитата

Option Explicit
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " & CommonDialog1.FileName
End Sub

Ругается на CommonDialog1

 smile

Добавлено @ 11:03 
Все я ее все таки добил!!!

Цитата
Private Sub РК1_Click()

Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " + App.Path & "\РК-1.xls"

End Sub

PM MAIL ICQ   Вверх
Voldemar2004
Дата 14.12.2006, 11:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23



В Project->Components->Controls - поставь галочку напротив Microsoft Common Dialog Control и нажми Ok.


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
antiQuark
Дата 30.12.2006, 21:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 30.12.2006

Репутация: нет
Всего: нет



извините за офтоп , но у меня Visual Studio 2005 и я не могу найти Microsoft Common Dialog Control - очень нужно, и кстати как сделать exe'шник в VS 2005, в отличии от Бэйсик  6.0 там нет Маке .exe , или я не нашел! smile Помогите плз!

Это сообщение отредактировал(а) antiQuark - 30.12.2006, 21:22
PM MAIL   Вверх
ruslan_rx
Дата 10.1.2007, 15:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



У меня еще вопрос! если в пути к файлу имеются пробелы то фаил не запускается!!! т.е. он разбивает путь как на два пути  smile !!!! Как сделать что бы фаил запустился т.к. в пути есть пробелы??

 smile 
PM MAIL ICQ   Вверх
boevik
Дата 10.1.2007, 15:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35



взять имя файла в кавычки


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
ruslan_rx
Дата 10.1.2007, 15:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



Неа, этот вариант не годится, у меня путь не конкретный!!!

Цитата
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " + App.Path & "\T_File\name.xls"


так вот в пути до файла есть пробелы, допустим "Program Files" но не обезательно!

и по данной команде (приведенной выше) он не находит файл!


PM MAIL ICQ   Вверх
Akina
Дата 10.1.2007, 19:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Код

Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE """ + App.Path & "\T_File\name.xls"""



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Тутанхамец
Дата 10.1.2007, 20:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6



Есть еще один момент насчет App.Path. На нем редко когда, но все-таки можно лохануться. 
Обычно путь App.Path НЕ оканчивается на "\". Но если прога лежит прямо в корневухе (C:\), то путь оканчивается на слэш. 

Поэтому я в начале проги делаю так:

Код

progpath=app.path 'progpath - глобальная переменная
if right$(progpath,1)<>"\" then progpath=progpath+"\"

 
PM MAIL   Вверх
Akina
Дата 10.1.2007, 22:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



а вообще почему бы не плясать от текущего каталога?

Код

chdir app.path
shell "EXCEL .\T_File\name.xls"



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
ruslan_rx
Дата 11.1.2007, 06:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



Akina,  Спасибо!!
 вариант с
Цитата
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE """ + App.Path & "\T_File\name.xls"""

Работает!!!

А вот последний нехочет!!!
PM MAIL ICQ   Вверх
Страницы: (3) Все [1] 2 3 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.1046 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.