ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / закрыть файл програмно
23 сообщений из 223, страница 9 из 9
  9  все
закрыть файл програмно
    #36734673
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
VSVLAD,

что всё работает??
...
Рейтинг: 0 / 0
11.07.2010, 14:55
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734677
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Проверяется существование папки. А если ли там файлы или нет - ваша забота проверять и проверять. Это не 100% код для вставки в Ваш проект, это показательный пример. Хотите используйте, хотите - нет, дело ваше. Но выполнять полностью Вашу работу никто не будет.
...
Рейтинг: 0 / 0
11.07.2010, 15:00
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734682
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
VSVLAD,

А кроме
Проверяется существование папки
Вы ничего не заметили?
...
Рейтинг: 0 / 0
11.07.2010, 15:05
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734685
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Я сейчас писал код с нуля. Используя MkDir я создаю путь, при этом я имею в виду:
1. Диск D у Вас СУЩЕСТВУЕТ
2. Вы пользователь имеющий соответствующие Permissions для выполнения операции.
3. Диск не переполнен
4. Диск не защищен от записи
5. Вместо моих комментариях в коде - вы пишите СВОИ дополнительные обработчики.
А то что у Вас появляются аномалии в работе - это проверка на Вас.
...
Рейтинг: 0 / 0
11.07.2010, 15:13
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734686
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Я сейчас писал код с нуля. Используя MkDir я создаю путь, при этом я имею в виду:
1. Диск D у Вас СУЩЕСТВУЕТ
2. Вы пользователь имеющий соответствующие Permissions для выполнения операции.
3. Диск не переполнен
4. Диск не защищен от записи
5. Вместо моих комментариях в коде - вы пишите СВОИ дополнительные обработчики.
А то что у Вас появляются аномалии в работе - это проверка на Вас.
...
Рейтинг: 0 / 0
11.07.2010, 15:13
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734690
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
VSVLAD,

когда у Васв папке есть файлы Ворд и их нет открывая файл разницу видите??????????
...
Рейтинг: 0 / 0
11.07.2010, 15:14
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734695
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
VSVLAD,

Где Вы всё разницу смотрите?
У меня не появляются аномалии в работе этого шаблона только надо чтобы ничего если я не меняю ничего меня не спрашивало
...
Рейтинг: 0 / 0
11.07.2010, 15:26
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734714
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

ТО есть это Вам важно:
Есть разница между проверкой на ноль выражения Len(Dir$("Y:", vbDirectory)) и выходом на ошибку по этому опросу. Если выражение равно 0, то значит такое устройство в системе не зарегестририровано. Если генерируется ошибка, то устройство в системе есть, но по каким-то причинам не готово к работе (например СД/ДВД без диска)

Sub nodisk()
On Error GoTo er
If Len(Dir$("Y:", vbDirectory)) = 0 Then Beep 'устройства нет в системе
Exit Sub
er:
'устройство есть, но не готово
End Sub
СОООООООООООгласен
Но соглайтесь, что и сообщений должно быть ТТТТТТТТТТРРРРРРРРРРИИИИИИИИИИИ
...
Рейтинг: 0 / 0
11.07.2010, 15:50
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734744
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Яснее выражайтесь. Нихрена не понятно ничего. При том какой DVD, если я уже сказал что проверок на такое я не делал. Смотрите на мои пункты в предыдущих сообщениях.
...
Рейтинг: 0 / 0
11.07.2010, 16:44
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734756
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
VSVLAD,

Яснее выражайтесь. Нихрена не понятно ничего. О DVD я не говорил
...
Рейтинг: 0 / 0
11.07.2010, 16:52
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734773
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Ципихович ЭндрюShocker.Pro,

ТО есть это Вам важно:
Есть разница между проверкой на ноль выражения Len(Dir$("Y:", vbDirectory)) и выходом на ошибку по этому опросу. Если выражение равно 0, то значит такое устройство в системе не зарегестририровано. Если генерируется ошибка, то устройство в системе есть, но по каким-то причинам не готово к работе (например СД/ДВД без диска)

Sub nodisk()
On Error GoTo er
If Len(Dir$("Y:", vbDirectory)) = 0 Then Beep 'устройства нет в системе
Exit Sub
er:
'устройство есть, но не готово
End Sub
СОООООООООООгласен
Но соглайтесь, что и сообщений должно быть ТТТТТТТТТТРРРРРРРРРРИИИИИИИИИИИ

Это не ваши слова? Я про внешний диск

"генерируется ошибка, то устройство в системе есть, но по каким-то причинам не готово к работе (например СД/ДВД без диска)"
...
Рейтинг: 0 / 0
11.07.2010, 17:19
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734775
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
VSVLAD,

Я ещё до сообщения в сегодня, 15:50
С Вами не дошёл
Вы ещё на это не ответили:
когда у Вас в папке есть файлы Ворд и их нет открывая файл разницу видите??????????
Я думал всё смотрите
Так увидели???
...
Рейтинг: 0 / 0
11.07.2010, 17:23
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734791
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Ципихович Эндрю,

Я работал в VB6 и в ваш шаблон не вставлял и не проверял. Правьте код под себя
...
Рейтинг: 0 / 0
11.07.2010, 17:31
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734792
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
VSVLAD,

Вся переписка коту под хвост, зачем тогда всякие заявления делать
Досвидания, с Вашей переписки толку нет
...
Рейтинг: 0 / 0
11.07.2010, 17:34
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734807
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
А с вашими ответами толк есть?

ВЫ НЕ ПОЛУЧИТЕ НА ФОРУМЕ ГОТОВОГО РЕШЕНИЯ

Учитесь думать головой, конвертировать VBA<>VB6 не собираюсь
...
Рейтинг: 0 / 0
11.07.2010, 17:59
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734860
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
VSVLAD,

+100000000000000

Сколько раз говорили, а Эндрю все равно продолжает упорствовать.
Мне кажется он просто не понимает что уже САМ может и из-за этого не делает. Т.с. боится разочароваться в собственных силах и ждет подтверждения правильности своего кода со стороны.
Эндрю, смелее :)
Твой код может быть не оптимальным, но это приходит с опытом :)
...
Рейтинг: 0 / 0
11.07.2010, 19:09
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36734917
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Игорь Горбонос,

Я и так был уверен, но злые языки всё мне доказывают обратное, как будто я сам придумал скрипт
Приехали, я уже мол не знаю как определить наличие диска
...
Рейтинг: 0 / 0
11.07.2010, 20:23
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36741732
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Подскажите если в документе есть элемент ActiveX, и он меняется, то значение свойства Saved уже роль играет?, запрос на сохранение всё равно будет задан?
...
Рейтинг: 0 / 0
14.07.2010, 19:23
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36741777
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюПодскажите если в документе есть элемент ActiveX, и он меняется, то значение свойства Saved уже роль играет?, запрос на сохранение всё равно будет задан?
Что значит - элемент меняется?
Если какие-то его свойства или, скажем, размеры - скорее всего да.
Если у него внутри происходили песни и пляски, не поменявшие его свойства - скорее всего нет.
...
Рейтинг: 0 / 0
14.07.2010, 19:52
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36741815
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,
Например такие:
1.ActiveDocument.Frame.Controls("Label").Visible = False
2.ActiveDocument.Frame.Controls("ComboBox").Left = 387.5
3.ActiveDocument.Frame.Controls("ComboBox").Value = "Имя"
...
Рейтинг: 0 / 0
14.07.2010, 20:14
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36741828
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюShocker.Pro,
Например такие:
1.ActiveDocument.Frame.Controls("Label").Visible = False
2.ActiveDocument.Frame.Controls("ComboBox").Left = 387.5
3.ActiveDocument.Frame.Controls("ComboBox").Value = "Имя"
Как я ответил выше - да
...
Рейтинг: 0 / 0
14.07.2010, 20:21
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36741861
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

Сам тупо спросил:
Если элемент ActiveX меняется, то значение свойства Saved уже роль играет?, запрос на сохранение всё равно будет задан?
Надо было так:
Если элемент ActiveX меняется, то значение свойства Saved уже роль не играет и запрос на сохранение всё равно будет задан?
И Ваш ответ, по этим строкам:
1.ActiveDocument.Frame.Controls("Label").Visible = False
2.ActiveDocument.Frame.Controls("ComboBox").Left = 387.5
3.ActiveDocument.Frame.Controls("ComboBox").Value = "Имя"
Да.
Да?
...
Рейтинг: 0 / 0
14.07.2010, 20:40
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36741867
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
1) Saved скорее всего станет False при изменении этих свойств ActiveX-элемента.
2) Saved можно поставить самостоятельно в True
3) Вопрос о сохранении документа задается, если Saved=False
...
Рейтинг: 0 / 0
14.07.2010, 20:43
| Ответить | Цитировать | Написать  
23 сообщений из 223, страница 9 из 9
  9  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / закрыть файл програмно
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]