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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Операции с файлами 
:(
    Опции темы
DrNemo
Дата 29.1.2006, 19:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 193
Регистрация: 7.12.2005
Где: Не пейте ракетное топливо! :-)

Репутация: нет
Всего: 1
есть несколько вопросов:
1. Как открыть файл в приложении к которому он приписан: т.е. *.doc - в Word; *.txt в Блакноте и т.д.
2. Как удалить файл
3. Переименовать
4. надо создать файл, например Word, но так чтобы он создался в нужном месте, с нужным именим и сразу же открылся для редактирования в Word-е

Зарание спасибо, да и если можно, то с примерами
--------------------
На свете есть только две вещи которые сносят башню - космос и женщины (К.Ю.Бунин)Самый мастдаевский сакс в том, что рулезные фичи глючат :))
PM MAIL WWW ICQ   Вверх
cardinal
Дата 29.1.2006, 19:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Модератор: Пожалуйста, один топик - один вопрос.

А по поводу первого вопроса:
http://forum.vingrad.ru/index.php?showtopic=80319
http://forum.vingrad.ru/index.php?showtopic=37828
http://forum.vingrad.ru/index.php?showtopic=15514
http://forum.vingrad.ru/index.php?showtopic=12057
и т.д.
ну то есть понял, что поиск надо использовать, да?


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
DrNemo
Дата 29.1.2006, 22:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 193
Регистрация: 7.12.2005
Где: Не пейте ракетное топливо! :-)

Репутация: нет
Всего: 1
проблема: при открытии файла:
Код

Shell "c:\Program Files\Microsoft Office\Office\WINWORD.EXE " + pOpen 'pOpen - содержит полный путь к файлу

он выдает ошибку о неверном пути, если в адрессе есть пробелы: т.е. если путь:
Код

 e:\Новая папка\файл.doc
- он ищет файл по адресу
Код

e:\Новая.doc
Если пробелов нет то все работает, как исправить этот баг?

Это сообщение отредактировал(а) DrNemo - 29.1.2006, 22:03
--------------------
На свете есть только две вещи которые сносят башню - космос и женщины (К.Ю.Бунин)Самый мастдаевский сакс в том, что рулезные фичи глючат :))
PM MAIL WWW ICQ   Вверх
Exception
Дата 29.1.2006, 22:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 7
Всего: 186
1. Так не выйдет открыть именно вордовский в ворде, а рисунок в пэйнте. ShellExecute + поиск тебе в руки.
2.
Код
Kill "e:\file"

3. Вроде бы
Код
Rename "e:\old", "e:\new"

4. Не понял вопроса.
Добавлено @ 23:01
3. Правильно
Код
Name "e:\old", "e:\new"
PM   Вверх
СВА
Дата 30.1.2006, 06:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
если тебе нужно создать документ Office то сначала получаешь объект например Excel

Объявляешь переменную AppExcel

Код


     Set AppExcel = CreateObject("Excel.Application")


или для Word

Код

Set AppWord = CreateObject("Word.Application")


незабудь ее сделать видимой

Код

AppExcel.Visible = True



Дальше работаешь с AppExcel на VBA Получая практически все свойства и методы, Если не знаешь как то открой Excel и запиши макрос создания документа, открой редактор VBA и просто перед каждой строчкой кода добавь переменную AppWord ,AppExcel

вот тебе пример создания документ Word

Код

Set AppWord = CreateObject("Word.Application")
'новый документ
AppWord.Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
' Изменям место дислокации файла
  AppWord.ChangeFileOpenDirectory "C:\Documents and Settings\N\Рабочий стол\"

'сохраняем новй документ
    AppWord.SaveAs FileName:="Doc1.doc", FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
PM MAIL   Вверх
Exception
Дата 30.1.2006, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 7
Всего: 186
СВА, это про конкретный файл. А ему нужно в зависимости от выбора.
PM   Вверх
kulibin
Дата 30.1.2006, 23:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 2
Всего: 3
Цитата(Exception @ 30.1.2006, 17:35 Найти цитируемый пост)

это про конкретный файл. А ему нужно в зависимости от выбора.


однако это открыть можно "неконкретный" файл - а создать можно только конкретный smile - нельзя же создать файл не зная какого он должен при этом быть типа smile - а зная нужно выбрать каким приложением его создавать
PM MAIL WWW ICQ   Вверх
СВА
Дата 31.1.2006, 05:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Покрайней мере этим способом можно создать любой документ из MS Office
PM MAIL   Вверх
kulibin
Дата 31.1.2006, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 2
Всего: 3
Цитата(СВА @ 31.1.2006, 05:59 Найти цитируемый пост)

Покрайней мере этим способом можно создать любой документ из MS Office

Ну да - я же об этом и говорил
А если просто открыть нужно - то это
Код

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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