Войти
NeoBooker.ru
Добро пожаловать к нам в гости!
Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
  • Страница 3 из 4
  • «
  • 1
  • 2
  • 3
  • 4
  • »
Модератор форума: Peter, DEMBEL, YURIY  
Форум NeoBook » Всё о программе NeoBook » Общие вопросы по NeoBook » Вопрос по копированию файлов (Проблемка с индикацией)
Вопрос по копированию файлов
PeterДата: Сб, 16 Мая 2009, 02:35 | Сообщение # 61
Админ NeoBook
Quote (DEMBEL)
есть, но извратные...

DEMBEL, я вот что подумал: необушная функция на VB это ведь со стороны NB "функция", а для VB - простой скрипт. Если описать VB-скрипт как процедуру Sub с параметрами, ведь можно тогда просто применить ExitSub.... (?)
- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (DEMBEL)
есть, но извратные...

DEMBEL, я вот что подумал: необушная функция на VB это ведь со стороны NB "функция", а для VB - простой скрипт. Если описать VB-скрипт как процедуру Sub с параметрами, ведь можно тогда просто применить ExitSub.... (?)
Автор - Peter
Дата добавления - 16 Мая 2009 в 02:35
DEMBELДата: Сб, 16 Мая 2009, 02:43 | Сообщение # 62
Наш дизайнер
да можно конечно, вот про подобные извраты я и говорю...
циклы... Exit Do, Exit Loop все из той же оперы...

Добавлено (16 Май 2009, 02:43)
---------------------------------------------
можно еще код (или часть) в функцию "обернуть", Exit function...

Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
 
Сообщениеда можно конечно, вот про подобные извраты я и говорю...
циклы... Exit Do, Exit Loop все из той же оперы...

Добавлено (16 Май 2009, 02:43)
---------------------------------------------
можно еще код (или часть) в функцию "обернуть", Exit function...

Автор - DEMBEL
Дата добавления - 16 Мая 2009 в 02:43
PeterДата: Сб, 16 Мая 2009, 02:47 | Сообщение # 63
Админ NeoBook
Quote (DEMBEL)
нет, только "игнорирование ошибок"
On Error Resume Next - переход к следующей строке кода при ошибке

И это всё? scared
Да, весьма печально... :(
Вот так и понимаешь красоту и силу Delphi !

Даже в NB GoTo есть...

Добавлено (16 Май 2009, 02:47)
---------------------------------------------

Quote (DEMBEL)
да можно конечно, вот про подобные извраты я и говорю...

Quote (DEMBEL)
можно еще код (или часть) в функцию "обернуть", Exit function...

Так давай попробуем!
Поизвращаемся! ... :)
- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (DEMBEL)
нет, только "игнорирование ошибок"
On Error Resume Next - переход к следующей строке кода при ошибке

И это всё? scared
Да, весьма печально... :(
Вот так и понимаешь красоту и силу Delphi !

Даже в NB GoTo есть...

Добавлено (16 Май 2009, 02:47)
---------------------------------------------

Quote (DEMBEL)
да можно конечно, вот про подобные извраты я и говорю...

Quote (DEMBEL)
можно еще код (или часть) в функцию "обернуть", Exit function...

Так давай попробуем!
Поизвращаемся! ... :)
Автор - Peter
Дата добавления - 16 Мая 2009 в 02:47
DEMBELДата: Сб, 16 Мая 2009, 02:54 | Сообщение # 64
Наш дизайнер
просто код надо переписать так чтобы необходимости в выходе посреди скрипта отпала, например "завернуть" копирование в отдельную функцию или процедуру, а в условиях поставить что либо вызов процедуры, либо ничего. Либо везде строить такие условия If... Then, Else чтобы при ошибке они "приводили" к концу файла, т.н. "каскадное" написание...

Добавлено (16 Май 2009, 02:54)
---------------------------------------------
поизвращаюсь, но завтра, седня вечером нагулялся, пивка так натяпался что уже голова не соображает...

Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
 
Сообщениепросто код надо переписать так чтобы необходимости в выходе посреди скрипта отпала, например "завернуть" копирование в отдельную функцию или процедуру, а в условиях поставить что либо вызов процедуры, либо ничего. Либо везде строить такие условия If... Then, Else чтобы при ошибке они "приводили" к концу файла, т.н. "каскадное" написание...

Добавлено (16 Май 2009, 02:54)
---------------------------------------------
поизвращаюсь, но завтра, седня вечером нагулялся, пивка так натяпался что уже голова не соображает...

Автор - DEMBEL
Дата добавления - 16 Мая 2009 в 02:54
PeterДата: Сб, 16 Мая 2009, 03:09 | Сообщение # 65
Админ NeoBook
Quote (DEMBEL)
седня вечером нагулялся

Эх, а у нас в Питере - холодина, 5 градусов!
Тут не до гуляний.
Да, не май месяц... :D
- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (DEMBEL)
седня вечером нагулялся

Эх, а у нас в Питере - холодина, 5 градусов!
Тут не до гуляний.
Да, не май месяц... :D
Автор - Peter
Дата добавления - 16 Мая 2009 в 03:09
DEMBELДата: Сб, 16 Мая 2009, 10:53 | Сообщение # 66
Наш дизайнер
Ну вот вроде переписал все без WScript.Quit, проверил - вроде работает все... если нету исходной папки - выходит, нету целевой - создает или тоже выходит... надо еще проверить, верно ли возвращаются переменные ошибок.

Да, теперь вроде все чотко работает... Выход посреди скрипта не требуется, да и вообще это дурной тон, также как и GoTo... :)

Добавлено (16 Май 2009, 10:53)
---------------------------------------------
P.S: а вчера млин хохма вышла, гуляем значит с товарисчем поздно вечером по набережной, пивко сосем, дует теплый ветерок, народ тусуется, дефки снимаются... Я говорю: смотри какие юные прелестные создания слоняются без дела, давай подвалим... Подкатываем свои яйцца к ним, и в разговоре одна брякнула что-то типа "Да куда млин вы щемитесь, вы же уже старперы типа"... Мы: "Че? да пошли вы на..." все настроение подгадили...

Прикрепления: copy3.vbs (1.0 Kb)

Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Сообщение отредактировано
DEMBEL - Сб, 16 Мая 2009, 10:44
 
СообщениеНу вот вроде переписал все без WScript.Quit, проверил - вроде работает все... если нету исходной папки - выходит, нету целевой - создает или тоже выходит... надо еще проверить, верно ли возвращаются переменные ошибок.

Да, теперь вроде все чотко работает... Выход посреди скрипта не требуется, да и вообще это дурной тон, также как и GoTo... :)

Добавлено (16 Май 2009, 10:53)
---------------------------------------------
P.S: а вчера млин хохма вышла, гуляем значит с товарисчем поздно вечером по набережной, пивко сосем, дует теплый ветерок, народ тусуется, дефки снимаются... Я говорю: смотри какие юные прелестные создания слоняются без дела, давай подвалим... Подкатываем свои яйцца к ним, и в разговоре одна брякнула что-то типа "Да куда млин вы щемитесь, вы же уже старперы типа"... Мы: "Че? да пошли вы на..." все настроение подгадили...

Автор - DEMBEL
Дата добавления - 16 Мая 2009 в 10:53
DEMBELДата: Сб, 16 Мая 2009, 13:32 | Сообщение # 67
Наш дизайнер
Вот еще интересный скрипт копирования + демонстрация использования обьекта InternetExplorer
Выводится окошко браузера с сообщением и gif-анимацией прогресс-бара...
Переменные:
objSourceFolder = "C:\Folder1" - исходная папка
objDestinationFolder = "C:\Folder2\" - целевая папка
Чтобы скопировать не папку а файлы - написать "C:\Folder1\*.*"
Проверка на ошибки не производится.
Блок переменных oIE:
oIE.AddressBar, oIE.StatusBar,oIE.ToolBar... - настройки окна IE
sMsg - содержимое окна (надписи и прогресс-бар)
Прикрепления: copy4IE.vbs (1.1 Kb)

Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
 
СообщениеВот еще интересный скрипт копирования + демонстрация использования обьекта InternetExplorer
Выводится окошко браузера с сообщением и gif-анимацией прогресс-бара...
Переменные:
objSourceFolder = "C:\Folder1" - исходная папка
objDestinationFolder = "C:\Folder2\" - целевая папка
Чтобы скопировать не папку а файлы - написать "C:\Folder1\*.*"
Проверка на ошибки не производится.
Блок переменных oIE:
oIE.AddressBar, oIE.StatusBar,oIE.ToolBar... - настройки окна IE
sMsg - содержимое окна (надписи и прогресс-бар)
Автор - DEMBEL
Дата добавления - 16 Мая 2009 в 13:32
PeterДата: Сб, 16 Мая 2009, 15:07 | Сообщение # 68
Админ NeoBook
Quote (DEMBEL)
Да, теперь вроде все чотко работает...

Работает, если только Auto равно True, т.е единице. А если нет?
В первую очередь, там косяк с количеством IF и ENDIF. Это я даже до запуска скрипта увидел...
Quote (DEMBEL)
да и вообще это дурной тон, также как и GoTo...

Да, такое мнение я не раз слышал, но бывают ситуации, когда без "аварийного" выхода - никак! Кстати, даже сама Borland СОВЕТУЕТ в таких случаях применять этот прием!!!
В общем, попробую вечером (если время будет) сам покавырять...
Да тут можно было уже плагин сделать, пока с этой VB-функцией возимся! :)

Добавлено (16 Май 2009, 14:56)
---------------------------------------------
Да, WScript.echo, по-прежнему не пашет!
Но эту "проблему" можно заменить необушным сообщением об ошибке.

Добавлено (16 Май 2009, 15:07)
---------------------------------------------
И вообще, DEMBEL, чего мы тут с тобой, напрягаемся?
Похоже, что кроме нас, это никому не интересно! :)

- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (DEMBEL)
Да, теперь вроде все чотко работает...

Работает, если только Auto равно True, т.е единице. А если нет?
В первую очередь, там косяк с количеством IF и ENDIF. Это я даже до запуска скрипта увидел...
Quote (DEMBEL)
да и вообще это дурной тон, также как и GoTo...

Да, такое мнение я не раз слышал, но бывают ситуации, когда без "аварийного" выхода - никак! Кстати, даже сама Borland СОВЕТУЕТ в таких случаях применять этот прием!!!
В общем, попробую вечером (если время будет) сам покавырять...
Да тут можно было уже плагин сделать, пока с этой VB-функцией возимся! :)

Добавлено (16 Май 2009, 14:56)
---------------------------------------------
Да, WScript.echo, по-прежнему не пашет!
Но эту "проблему" можно заменить необушным сообщением об ошибке.

Добавлено (16 Май 2009, 15:07)
---------------------------------------------
И вообще, DEMBEL, чего мы тут с тобой, напрягаемся?
Похоже, что кроме нас, это никому не интересно! :)

Автор - Peter
Дата добавления - 16 Мая 2009 в 15:07
DEMBELДата: Сб, 16 Мая 2009, 15:12 | Сообщение # 69
Наш дизайнер
Quote (Peter)
Работает, если только Auto равно True, т.е единице. А если нет? В первую очередь, там косяк с количеством IF и ENDIF. Это я даже до запуска скрипта увидел...

Да где? все работает! вот запускаю с auto=0 он говорит что целевой папки нет и выходит, с endIf все нормально тоже (3if и 3end if), вот запускаю:

Option Explicit
Dim strSourceFolder, strSourceFiles, strTargetFolder, TFolder, ChkSFolder, Auto, Nfolder
Dim objShell, objFolder, ChkTFolder
strSourceFolder = "C:\Folder1"
strSourceFiles = "C:\Folder1\*.*"
strTargetFolder = "C:\Folder2"
Set TFolder = CreateObject("Scripting.FileSystemObject")
If TFolder.FolderExists(strSourceFolder) Then
Auto=0
If Auto=1 then
Set TFolder = CreateObject("Scripting.FileSystemObject")
If Not TFolder.FolderExists(strTargetFolder) Then
Nfolder = TFolder.CreateFolder(strTargetFolder)
WScript.echo "Целевая папка создана, продолжаю копировать"
End If
Const FOF_CREATEPROGRESSDLG = &H0&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(strTargetFolder)
objFolder.CopyHere (strSourceFiles), FOF_CREATEPROGRESSDLG
Else
WScript.echo "Выход, целевой папки нет"
ChkTFolder=0
End If
Else
ChkSFolder=0
Set TFolder = Nothing
WScript.echo "Выход, исходной папки нет"
End If
Set TFolder = Nothing
Set objShell = Nothing
Set objFolder = Nothing

Добавлено (16 Май 2009, 15:10)
---------------------------------------------

Quote (Peter)
И вообще, DEMBEL, чего мы тут с тобой, напрягаемся?

да интересно просто пока что...

Добавлено (16 Май 2009, 15:12)
---------------------------------------------
переустанови windows script 5.7 мож ты там со своими сносами системы че сломал, вот и глючит

Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Сообщение отредактировано
DEMBEL - Сб, 16 Мая 2009, 15:13
 
Сообщение
Quote (Peter)
Работает, если только Auto равно True, т.е единице. А если нет? В первую очередь, там косяк с количеством IF и ENDIF. Это я даже до запуска скрипта увидел...

Да где? все работает! вот запускаю с auto=0 он говорит что целевой папки нет и выходит, с endIf все нормально тоже (3if и 3end if), вот запускаю:

Option Explicit
Dim strSourceFolder, strSourceFiles, strTargetFolder, TFolder, ChkSFolder, Auto, Nfolder
Dim objShell, objFolder, ChkTFolder
strSourceFolder = "C:\Folder1"
strSourceFiles = "C:\Folder1\*.*"
strTargetFolder = "C:\Folder2"
Set TFolder = CreateObject("Scripting.FileSystemObject")
If TFolder.FolderExists(strSourceFolder) Then
Auto=0
If Auto=1 then
Set TFolder = CreateObject("Scripting.FileSystemObject")
If Not TFolder.FolderExists(strTargetFolder) Then
Nfolder = TFolder.CreateFolder(strTargetFolder)
WScript.echo "Целевая папка создана, продолжаю копировать"
End If
Const FOF_CREATEPROGRESSDLG = &H0&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(strTargetFolder)
objFolder.CopyHere (strSourceFiles), FOF_CREATEPROGRESSDLG
Else
WScript.echo "Выход, целевой папки нет"
ChkTFolder=0
End If
Else
ChkSFolder=0
Set TFolder = Nothing
WScript.echo "Выход, исходной папки нет"
End If
Set TFolder = Nothing
Set objShell = Nothing
Set objFolder = Nothing

Добавлено (16 Май 2009, 15:10)
---------------------------------------------

Quote (Peter)
И вообще, DEMBEL, чего мы тут с тобой, напрягаемся?

да интересно просто пока что...

Добавлено (16 Май 2009, 15:12)
---------------------------------------------
переустанови windows script 5.7 мож ты там со своими сносами системы че сломал, вот и глючит

Автор - DEMBEL
Дата добавления - 16 Мая 2009 в 15:12
PeterДата: Сб, 16 Мая 2009, 15:22 | Сообщение # 70
Админ NeoBook
Пардон! Я не тот скрипт смотрел! redface
Сейчас попробую...
- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
СообщениеПардон! Я не тот скрипт смотрел! redface
Сейчас попробую...
Автор - Peter
Дата добавления - 16 Мая 2009 в 15:22
DEMBELДата: Сб, 16 Мая 2009, 15:35 | Сообщение # 71
Наш дизайнер
а WScript.echo в топку (это было для дебага), можно нормальные форматированные диалоговые окна выводить через MsgBox.
Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
 
Сообщениеа WScript.echo в топку (это было для дебага), можно нормальные форматированные диалоговые окна выводить через MsgBox.
Автор - DEMBEL
Дата добавления - 16 Мая 2009 в 15:35
PeterДата: Сб, 16 Мая 2009, 17:22 | Сообщение # 72
Админ NeoBook
Quote (DEMBEL)
а WScript.echo в топку

Само-собой!
Quote (DEMBEL)
можно нормальные форматированные диалоговые окна выводить через MsgBox.

Не зачем. Сообщения об ошибках (и не только) можно выводить из vbs средствами и в стиле NB-проекта.
Но главное другое: у меня по-прежнему ни-в-какую НЕ РАБОТАЕТ vbs-функция при Auto=0 (False)!
Где-то косяк..
Сейчас времени разбираться нет!
Может вечером...
- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (DEMBEL)
а WScript.echo в топку

Само-собой!
Quote (DEMBEL)
можно нормальные форматированные диалоговые окна выводить через MsgBox.

Не зачем. Сообщения об ошибках (и не только) можно выводить из vbs средствами и в стиле NB-проекта.
Но главное другое: у меня по-прежнему ни-в-какую НЕ РАБОТАЕТ vbs-функция при Auto=0 (False)!
Где-то косяк..
Сейчас времени разбираться нет!
Может вечером...
Автор - Peter
Дата добавления - 16 Мая 2009 в 17:22
DEMBELДата: Сб, 16 Мая 2009, 17:56 | Сообщение # 73
Наш дизайнер
Блин, что за бред... приведенный выше скрипт у меня отрабатывает как надо, при
Auto=0 выдает то, что должен по условию Else из If Auto=1 then, а именно переход к строке
Else
WScript.echo "Выход, целевой папки нет"
и в результате

Ничего не понимаю... в чем выражается неработание? Если убрал строку WScript с выводом месседжа, то ты ничего и не увидишь, папка же не создастся и ничего не скопируется... или ошибки вылазиют какието?

Прикрепления: 8116466.gif (2.3 Kb)

Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Сообщение отредактировано
DEMBEL - Сб, 16 Мая 2009, 18:09
 
СообщениеБлин, что за бред... приведенный выше скрипт у меня отрабатывает как надо, при
Auto=0 выдает то, что должен по условию Else из If Auto=1 then, а именно переход к строке
Else
WScript.echo "Выход, целевой папки нет"
и в результате

Ничего не понимаю... в чем выражается неработание? Если убрал строку WScript с выводом месседжа, то ты ничего и не увидишь, папка же не создастся и ничего не скопируется... или ошибки вылазиют какието?

Автор - DEMBEL
Дата добавления - 16 Мая 2009 в 17:56
PeterДата: Сб, 16 Мая 2009, 18:31 | Сообщение # 74
Админ NeoBook
Quote (DEMBEL)
Блин, что за бред... приведенный выше скрипт у меня отрабатывает как надо, при
Auto=0 выдает то, что должен по условию Else из If Auto=1 then, а именно переход к строке
Else
WScript.echo "Выход, целевой папки нет"
и в результате

У меня то же самое!
:)
В том-то и дело, что выдает "Папки НЕТ", а она ЕСТЬ!
Автосоздание папки должно работать если папки нет!
А если папка существует, то должно быть по-барабану Auto, а этого не происходит!

DEMBEL, глянь ЛС.

Добавлено (16 Май 2009, 18:23)
---------------------------------------------

Quote (DEMBEL)
Если убрал строку WScript с выводом месседжа, то ты ничего и не увидишь,

Для этого есть необушный "vb-код". ;)
Всё выводится!

Добавлено (16 Май 2009, 18:31)
---------------------------------------------
Всё! Ухожу "в подполье" до лучших времен!
С таким сервером, который нихрена не может отобразить, мучаться больше желания нет!

- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (DEMBEL)
Блин, что за бред... приведенный выше скрипт у меня отрабатывает как надо, при
Auto=0 выдает то, что должен по условию Else из If Auto=1 then, а именно переход к строке
Else
WScript.echo "Выход, целевой папки нет"
и в результате

У меня то же самое!
:)
В том-то и дело, что выдает "Папки НЕТ", а она ЕСТЬ!
Автосоздание папки должно работать если папки нет!
А если папка существует, то должно быть по-барабану Auto, а этого не происходит!

DEMBEL, глянь ЛС.

Добавлено (16 Май 2009, 18:23)
---------------------------------------------

Quote (DEMBEL)
Если убрал строку WScript с выводом месседжа, то ты ничего и не увидишь,

Для этого есть необушный "vb-код". ;)
Всё выводится!

Добавлено (16 Май 2009, 18:31)
---------------------------------------------
Всё! Ухожу "в подполье" до лучших времен!
С таким сервером, который нихрена не может отобразить, мучаться больше желания нет!

Автор - Peter
Дата добавления - 16 Мая 2009 в 18:31
DEMBELДата: Сб, 16 Мая 2009, 18:57 | Сообщение # 75
Наш дизайнер
вон оно че, как ты извратился... целевую папку создал, а Auto выставил в ноль... тээкс, тут логику скрипта надо подправить... да, я ступил.
Пришлось воткнуть лишнее условие, теперь если целевая папка существует, а Auto=0, то происходит копирование.
Прикрепления: copy5.vbs (1.2 Kb)

Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Сообщение отредактировано
DEMBEL - Сб, 16 Мая 2009, 20:16
 
Сообщениевон оно че, как ты извратился... целевую папку создал, а Auto выставил в ноль... тээкс, тут логику скрипта надо подправить... да, я ступил.
Пришлось воткнуть лишнее условие, теперь если целевая папка существует, а Auto=0, то происходит копирование.
Автор - DEMBEL
Дата добавления - 16 Мая 2009 в 18:57
PeterДата: Вс, 17 Мая 2009, 07:00 | Сообщение # 76
Админ NeoBook
Quote (DEMBEL)
Пришлось воткнуть лишнее условие, теперь если целевая папка существует, а Auto=0, то происходит копирование.

DEMBEL, называй меня хоть извращенцем, хоть занудой (как угодно!), но если нужно в какой-то программе найти баг, я найду!
Это уже все знают! :)
Всё, вроде, душевно работает, но...
Если не указано имя целевой папки, а "автосоздание" папки отмечено (моё любимое True, твое любимое 1), то мы получаем вот-такое-вот забавное сообщение:

Из "пустоты" папку, увы, не создать... :'(

Нужен встроенный в функцию парсер "на пустоту" всех входных параметров!
А их, я предполагаю, будет четыре (4).

Прикрепления: 2863801.jpg (12.5 Kb)

- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (DEMBEL)
Пришлось воткнуть лишнее условие, теперь если целевая папка существует, а Auto=0, то происходит копирование.

DEMBEL, называй меня хоть извращенцем, хоть занудой (как угодно!), но если нужно в какой-то программе найти баг, я найду!
Это уже все знают! :)
Всё, вроде, душевно работает, но...
Если не указано имя целевой папки, а "автосоздание" папки отмечено (моё любимое True, твое любимое 1), то мы получаем вот-такое-вот забавное сообщение:

Из "пустоты" папку, увы, не создать... :'(

Нужен встроенный в функцию парсер "на пустоту" всех входных параметров!
А их, я предполагаю, будет четыре (4).

Автор - Peter
Дата добавления - 17 Мая 2009 в 07:00
DEMBELДата: Вс, 17 Мая 2009, 12:00 | Сообщение # 77
Наш дизайнер
Quote (Peter)
но если нужно в какой-то программе найти баг, я найду!

блин, ну это уж точно...
Quote (Peter)
Если не указано имя целевой папки, а "автосоздание" папки отмечено (моё любимое True, твое любимое 1), то мы получаем вот-такое-вот забавное сообщение:

как это не указано? должно быть указано, а как же. Я думал что этими проблемами займется нб. А если парсер еще пихать, код разбухнет еще и еще... кроме того, родительская папка для целевой папки должна существовать обязательно. А если делать создание "многоуровневых" новых папок, то опять парсинг... совсем код раздует... тогда уж совсем скрипт всю работу делать будет...
Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Сообщение отредактировано
DEMBEL - Вс, 17 Мая 2009, 12:05
 
Сообщение
Quote (Peter)
но если нужно в какой-то программе найти баг, я найду!

блин, ну это уж точно...
Quote (Peter)
Если не указано имя целевой папки, а "автосоздание" папки отмечено (моё любимое True, твое любимое 1), то мы получаем вот-такое-вот забавное сообщение:

как это не указано? должно быть указано, а как же. Я думал что этими проблемами займется нб. А если парсер еще пихать, код разбухнет еще и еще... кроме того, родительская папка для целевой папки должна существовать обязательно. А если делать создание "многоуровневых" новых папок, то опять парсинг... совсем код раздует... тогда уж совсем скрипт всю работу делать будет...
Автор - DEMBEL
Дата добавления - 17 Мая 2009 в 12:00
PeterДата: Вс, 17 Мая 2009, 23:00 | Сообщение # 78
Админ NeoBook
Quote (DEMBEL)
как это не указано? должно быть указано, а как же. Я думал что этими проблемами займется нб.

Да в NB-то все это сделать пара пустяков, но только функция должна быть "готова к употреблению" без всяких дополнительных условий!
Вот так:


выглядит окошко редактирования параметров функции в IDE NB/
Как видим, можно указывать параметры через переменные, а можно и напрямую.
После определения параметров, команда вызова функции будет выглядеть в редакторе кода NB вот так:

И в скомпилированном проекте в этих переменных, определяющих папраметры функции, может потенциально оказаться что угодно в зависимости от фантазии пользователя.
Можно конечно устроить проверку валидности параметров и в самой NB (как я и указал выше), но это уже какой-то недолекой выглядит!
Хотя с другой стороны, DEMBEL, похоже на то, что акромя нас двоих эта тема больше никого не интересует, даже автора вопроса!
Чего мы тут напрягаемся-то, а?
Была у меня мысль плагин забацать, тут собственно все просто, но коли никому не надо, тему отправляем в космос! :)
В принципе, всего того, что здесь было озвучено по данному вопросу вполне достаточно, чтобы жаждущие (если таковые найдутся) получили желаемый результат при помощи vbs-функции самостоятельно!
:p

Прикрепления: 8988029.jpg (39.4 Kb) · 9287010.jpg (18.2 Kb)

- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (DEMBEL)
как это не указано? должно быть указано, а как же. Я думал что этими проблемами займется нб.

Да в NB-то все это сделать пара пустяков, но только функция должна быть "готова к употреблению" без всяких дополнительных условий!
Вот так:


выглядит окошко редактирования параметров функции в IDE NB/
Как видим, можно указывать параметры через переменные, а можно и напрямую.
После определения параметров, команда вызова функции будет выглядеть в редакторе кода NB вот так:

И в скомпилированном проекте в этих переменных, определяющих папраметры функции, может потенциально оказаться что угодно в зависимости от фантазии пользователя.
Можно конечно устроить проверку валидности параметров и в самой NB (как я и указал выше), но это уже какой-то недолекой выглядит!
Хотя с другой стороны, DEMBEL, похоже на то, что акромя нас двоих эта тема больше никого не интересует, даже автора вопроса!
Чего мы тут напрягаемся-то, а?
Была у меня мысль плагин забацать, тут собственно все просто, но коли никому не надо, тему отправляем в космос! :)
В принципе, всего того, что здесь было озвучено по данному вопросу вполне достаточно, чтобы жаждущие (если таковые найдутся) получили желаемый результат при помощи vbs-функции самостоятельно!
:p

Автор - Peter
Дата добавления - 17 Мая 2009 в 23:00
DEMBELДата: Вс, 17 Мая 2009, 23:46 | Сообщение # 79
Наш дизайнер
Quote (Peter)
Чего мы тут напрягаемся-то, а?

Ну так вроде тебе же нужен контент для сайта? А тут такая тема, и не раскрыта. Тут можно еще покопаться... Да и плагин, он что лишним будет? Всю байду что тут сооружаем, доводим до ума и отправляем не в космос, а к тебе на сайт!
Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
 
Сообщение
Quote (Peter)
Чего мы тут напрягаемся-то, а?

Ну так вроде тебе же нужен контент для сайта? А тут такая тема, и не раскрыта. Тут можно еще покопаться... Да и плагин, он что лишним будет? Всю байду что тут сооружаем, доводим до ума и отправляем не в космос, а к тебе на сайт!
Автор - DEMBEL
Дата добавления - 17 Мая 2009 в 23:46
PeterДата: Пн, 18 Мая 2009, 00:08 | Сообщение # 80
Админ NeoBook
Quote (DEMBEL)
Всю байду что тут сооружаем, доводим до ума и отправляем не в космос, а к тебе на сайт!

Да! Мудро!
Чего-то я тормознул... redface
У меня сейчас башка занята ремонтом! %)

Ну тогда давай будем доводить до ума vb-функцию.

- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (DEMBEL)
Всю байду что тут сооружаем, доводим до ума и отправляем не в космос, а к тебе на сайт!

Да! Мудро!
Чего-то я тормознул... redface
У меня сейчас башка занята ремонтом! %)

Ну тогда давай будем доводить до ума vb-функцию.

Автор - Peter
Дата добавления - 18 Мая 2009 в 00:08
DEMBELДата: Пн, 18 Мая 2009, 00:41 | Сообщение # 81
Наш дизайнер
Quote (Peter)
У меня сейчас башка занята ремонтом!

вот за лето уж закончишь ремонт наверное, да я вернусь с летнего "отдыха", разовьем тему интеграции скриптов в neobook как следует... Да и другие темы тоже.
Quote (Peter)
Можно конечно устроить проверку валидности параметров и в самой NB

Ладно я попытаюсь, придумаю чтоб в скрипте все было... Что значит, мне лепить скрипт как функцию? Короче, придется мне nb поставить чувствую, а то разговор глухого со слепым...
Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
 
Сообщение
Quote (Peter)
У меня сейчас башка занята ремонтом!

вот за лето уж закончишь ремонт наверное, да я вернусь с летнего "отдыха", разовьем тему интеграции скриптов в neobook как следует... Да и другие темы тоже.
Quote (Peter)
Можно конечно устроить проверку валидности параметров и в самой NB

Ладно я попытаюсь, придумаю чтоб в скрипте все было... Что значит, мне лепить скрипт как функцию? Короче, придется мне nb поставить чувствую, а то разговор глухого со слепым...
Автор - DEMBEL
Дата добавления - 18 Мая 2009 в 00:41
PeterДата: Пн, 18 Мая 2009, 01:05 | Сообщение # 82
Админ NeoBook
Quote (DEMBEL)
вот за лето уж закончишь ремонт наверное

Ремонт это не процесс, а - состояние.
Можно только войти в ремонт, и выйти из него.
Закончить - НЕТ!
:)
Quote (DEMBEL)
я вернусь с летнего "отдыха", разовьем тему интеграции скриптов в neobook как следует...

Серьезная подготовка, однако...
Лето, карты, вино, девочки...
Quote (DEMBEL)
придется мне nb поставить

Вот-вот, давно пора! ;)
Вот уж тогда на пару с vb пооттягиваешься! ;)
Quote (DEMBEL)
разговор глухого со слепым...

"Слушай, француз! Если хочешь, чтобы я тебя понимал, говори по-русски!" (Трактир на Пятницкой).
:)
- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (DEMBEL)
вот за лето уж закончишь ремонт наверное

Ремонт это не процесс, а - состояние.
Можно только войти в ремонт, и выйти из него.
Закончить - НЕТ!
:)
Quote (DEMBEL)
я вернусь с летнего "отдыха", разовьем тему интеграции скриптов в neobook как следует...

Серьезная подготовка, однако...
Лето, карты, вино, девочки...
Quote (DEMBEL)
придется мне nb поставить

Вот-вот, давно пора! ;)
Вот уж тогда на пару с vb пооттягиваешься! ;)
Quote (DEMBEL)
разговор глухого со слепым...

"Слушай, француз! Если хочешь, чтобы я тебя понимал, говори по-русски!" (Трактир на Пятницкой).
:)
Автор - Peter
Дата добавления - 18 Мая 2009 в 01:05
mishemДата: Пн, 18 Мая 2009, 01:19 | Сообщение # 83
Эксперт форума
Quote (Peter)
И вообще, DEMBEL, чего мы тут с тобой, напрягаемся?
Похоже, что кроме нас, это никому не интересно!

Интересно.! Только не понятно. :D
Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
Сообщение
Quote (Peter)
И вообще, DEMBEL, чего мы тут с тобой, напрягаемся?
Похоже, что кроме нас, это никому не интересно!

Интересно.! Только не понятно. :D
Автор - mishem
Дата добавления - 18 Мая 2009 в 01:19
DEMBELДата: Пн, 18 Мая 2009, 19:28 | Сообщение # 84
Наш дизайнер
Короче, начинаю писАть красиво, как следует... Весь дебаг будет происходить не по идиотски в куче условий if... then (которые и не предназначены для этого), а в функциях, которые и будут возвращать есть или нет ошибки (0/1). В условиях лишь будут проверяться их значения. Вот я вкурил-то тему...
--
Логика скрипта переписана, теперь в функциях. Только функции пока что не возвращают значения (закомментировано), потому что я не увидел в этом особого смысла - функции вызываются "по цепочке" одна из другой при совпадении требуемых условий, если условие не подходит, выводится предупреждение (теперь через MsgBox, надеюсь будут работать). Хотя ничто не мешает сделать дополнительный анализ возвращаемых значений функций дебага, но я пока не стал... Если значения функций все же потребуются, их можно вставить вместо соответствующих MsgBox и анализировать отдельно. Хотя тут надо еще продумать логику их извлечения.
Это пока версия для дебага,так что если эта байда будет работать, то слушаю вопросы и пожелания... сделаем как надо.
--
Quote (Peter)
Если не указано имя целевой папки, а "автосоздание" папки отмечено (моё любимое True, твое любимое 1), то мы получаем вот-такое-вот забавное сообщение:

Взял на заметку, следует проверить непустые ли исходные значения. А оно надо, мож нб разберется?
--
Также не проверяется наличие исходных файлов (если один конкретный файл, то можно - но в таком случае проще написать отдельный скрипт, он будет проще и меньше) потому что задание множества файлов по маске типа *.jpg приведет к жосткому парсингу... Пока оставим это на совести юзера. Проверяется только в принципе не пустая ли исходная папка.

Quote (Peter)
Да в NB-то все это сделать пара пустяков, но только функция должна быть "готова к употреблению" без всяких дополнительных условий!
--
Как видим, можно указывать параметры через переменные, а можно и напрямую.

Это означает, что весь код скрипта надо завернуть в функцию?

Function CopyFileBig (strSource, StrTarget, Auto)
...
...
End Function

Только пока так не делай, будут ошибки...

Добавлено (18 Май 2009, 19:28)
---------------------------------------------
А что, в neobook встроенный интерпретатор VB или используется виндосовский WScript? И будет ли это все работать в Windows Vista/Seven ?

Прикрепления: copy6-2.vbs (1.6 Kb)

Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Сообщение отредактировано
DEMBEL - Пн, 18 Мая 2009, 17:19
 
СообщениеКороче, начинаю писАть красиво, как следует... Весь дебаг будет происходить не по идиотски в куче условий if... then (которые и не предназначены для этого), а в функциях, которые и будут возвращать есть или нет ошибки (0/1). В условиях лишь будут проверяться их значения. Вот я вкурил-то тему...
--
Логика скрипта переписана, теперь в функциях. Только функции пока что не возвращают значения (закомментировано), потому что я не увидел в этом особого смысла - функции вызываются "по цепочке" одна из другой при совпадении требуемых условий, если условие не подходит, выводится предупреждение (теперь через MsgBox, надеюсь будут работать). Хотя ничто не мешает сделать дополнительный анализ возвращаемых значений функций дебага, но я пока не стал... Если значения функций все же потребуются, их можно вставить вместо соответствующих MsgBox и анализировать отдельно. Хотя тут надо еще продумать логику их извлечения.
Это пока версия для дебага,так что если эта байда будет работать, то слушаю вопросы и пожелания... сделаем как надо.
--
Quote (Peter)
Если не указано имя целевой папки, а "автосоздание" папки отмечено (моё любимое True, твое любимое 1), то мы получаем вот-такое-вот забавное сообщение:

Взял на заметку, следует проверить непустые ли исходные значения. А оно надо, мож нб разберется?
--
Также не проверяется наличие исходных файлов (если один конкретный файл, то можно - но в таком случае проще написать отдельный скрипт, он будет проще и меньше) потому что задание множества файлов по маске типа *.jpg приведет к жосткому парсингу... Пока оставим это на совести юзера. Проверяется только в принципе не пустая ли исходная папка.

Quote (Peter)
Да в NB-то все это сделать пара пустяков, но только функция должна быть "готова к употреблению" без всяких дополнительных условий!
--
Как видим, можно указывать параметры через переменные, а можно и напрямую.

Это означает, что весь код скрипта надо завернуть в функцию?

Function CopyFileBig (strSource, StrTarget, Auto)
...
...
End Function

Только пока так не делай, будут ошибки...

Добавлено (18 Май 2009, 19:28)
---------------------------------------------
А что, в neobook встроенный интерпретатор VB или используется виндосовский WScript? И будет ли это все работать в Windows Vista/Seven ?

Автор - DEMBEL
Дата добавления - 18 Мая 2009 в 19:28
PeterДата: Пн, 18 Мая 2009, 23:08 | Сообщение # 85
Админ NeoBook
Quote (DEMBEL)
Короче, начинаю писАть красиво, как следует...

Вообще-то, ДАВНО ПОРА! :)
Или ты просто до этого прикалывался надо мною?
Скачал...
Вот сейчас уже начинает походить на что-то вразумительное!
Кое-какие мелочи подправил (под нужлы NB), проверил...

Тестовый экзешник .

Я там в скрипт добавил необушные сообщения об ошибках (их можно отключить) вслед некоторым твоим мессагам, которые пока удалять не стал. Потом вырежу, т.к. их можно совершенно спокойно заменить на необушные, которые смогут работать гармонично со всеми остальными NB-сообщениями, а грамотный в VB юзер всегда сможет отредактировать функцию под свои нужды.
Что нужно добавить (на ПЕРВЫЙ :) взгляд)...
1.Опцию отключения подтверждения перезаписи.
2.Опцию отключения анимации.
и ГЛАВНОЕ...

Quote (DEMBEL)
следует проверить непустые ли исходные значения. А оно надо, мож нб разберется?

Уже в ТРЕТИЙ раз: НАДО!!!
NeoBook МОЖЕТ с этим легко "разобраться", но нужна "защита от дурака".
Мой старший брат любит говорить: "Делай хорошо, плохо само получиться!"

Погоняй экзешник, проверь в работе, может и сам ещё чего надумаешь добавить.
А уж я-то точно ещё "надумаю"!
Не сумневайся! :)

Quote (DEMBEL)
А что, в neobook встроенный интерпретатор VB или используется виндосовский WScript? И будет ли это все работать в Windows Vista/Seven ?

Гм...
Можно подумать, что я знаток VB. :)
Не рискну, во всяком случае сейчас, утверждать что-либо, кроме того, что WScript в NB работает частично и через ж..., если вообще работает.
А что касаемо Висты и Семерки, то первую можно проверить, а вот со второй пока туманно...

Добавлено (18 Май 2009, 23:08)
---------------------------------------------
По-поводу этого:

Quote (DEMBEL)
Также не проверяется наличие исходных файлов (если один конкретный файл, то можно - но в таком случае проще написать отдельный скрипт, он будет проще и меньше) потому что задание множества файлов по маске типа *.jpg приведет к жосткому парсингу... Пока оставим это на совести юзера.

я ещё не думал.
Надо будет проверить...
- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (DEMBEL)
Короче, начинаю писАть красиво, как следует...

Вообще-то, ДАВНО ПОРА! :)
Или ты просто до этого прикалывался надо мною?
Скачал...
Вот сейчас уже начинает походить на что-то вразумительное!
Кое-какие мелочи подправил (под нужлы NB), проверил...

Тестовый экзешник .

Я там в скрипт добавил необушные сообщения об ошибках (их можно отключить) вслед некоторым твоим мессагам, которые пока удалять не стал. Потом вырежу, т.к. их можно совершенно спокойно заменить на необушные, которые смогут работать гармонично со всеми остальными NB-сообщениями, а грамотный в VB юзер всегда сможет отредактировать функцию под свои нужды.
Что нужно добавить (на ПЕРВЫЙ :) взгляд)...
1.Опцию отключения подтверждения перезаписи.
2.Опцию отключения анимации.
и ГЛАВНОЕ...

Quote (DEMBEL)
следует проверить непустые ли исходные значения. А оно надо, мож нб разберется?

Уже в ТРЕТИЙ раз: НАДО!!!
NeoBook МОЖЕТ с этим легко "разобраться", но нужна "защита от дурака".
Мой старший брат любит говорить: "Делай хорошо, плохо само получиться!"

Погоняй экзешник, проверь в работе, может и сам ещё чего надумаешь добавить.
А уж я-то точно ещё "надумаю"!
Не сумневайся! :)

Quote (DEMBEL)
А что, в neobook встроенный интерпретатор VB или используется виндосовский WScript? И будет ли это все работать в Windows Vista/Seven ?

Гм...
Можно подумать, что я знаток VB. :)
Не рискну, во всяком случае сейчас, утверждать что-либо, кроме того, что WScript в NB работает частично и через ж..., если вообще работает.
А что касаемо Висты и Семерки, то первую можно проверить, а вот со второй пока туманно...

Добавлено (18 Май 2009, 23:08)
---------------------------------------------
По-поводу этого:

Quote (DEMBEL)
Также не проверяется наличие исходных файлов (если один конкретный файл, то можно - но в таком случае проще написать отдельный скрипт, он будет проще и меньше) потому что задание множества файлов по маске типа *.jpg приведет к жосткому парсингу... Пока оставим это на совести юзера.

я ещё не думал.
Надо будет проверить...
Автор - Peter
Дата добавления - 18 Мая 2009 в 23:08
DEMBELДата: Пн, 18 Мая 2009, 23:45 | Сообщение # 86
Наш дизайнер
Глумишься надо мной ) :D :D

Ну вроде все что должно работать - работает.
кстати, если ввожу недействительный путь исходной папки выскакивает системное предупреждение "Путь не найден" со страшным звуком, чето в скрипте там не работает свое окошко выходит... или это ты подправил чтото...
Quote (Peter)
1.Опцию отключения подтверждения перезаписи. 2.Опцию отключения анимации. и ГЛАВНОЕ... Quote (DEMBEL)следует проверить непустые ли исходные значения. А оно надо, мож нб разберется?

Это легко сделать, щас перепишем.
Прикрепления: 3573172.gif (6.5 Kb)

Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
 
СообщениеГлумишься надо мной ) :D :D

Ну вроде все что должно работать - работает.
кстати, если ввожу недействительный путь исходной папки выскакивает системное предупреждение "Путь не найден" со страшным звуком, чето в скрипте там не работает свое окошко выходит... или это ты подправил чтото...
Quote (Peter)
1.Опцию отключения подтверждения перезаписи. 2.Опцию отключения анимации. и ГЛАВНОЕ... Quote (DEMBEL)следует проверить непустые ли исходные значения. А оно надо, мож нб разберется?

Это легко сделать, щас перепишем.
Автор - DEMBEL
Дата добавления - 18 Мая 2009 в 23:45
PeterДата: Вт, 19 Мая 2009, 03:38 | Сообщение # 87
Админ NeoBook
Quote (DEMBEL)
кстати, если ввожу недействительный путь исходной папки выскакивает системное предупреждение "Путь не найден" со страшным звуком, чето в скрипте там не работает свое окошко выходит... или это ты подправил чтото...

Там не только это не работает, а ещё много чего. Включай/отключай разные опции и попробуй изменить пути к папкам, в функцию пути передаются из полей ввода текста напрямую.
Я практически ничего не менял в твоем скрипте: только кое-где добавил вывод необушных сообщений об ошибках. См.прикрепление.
Прикрепления: CopyFilesExBeta.rar (0.7 Kb)

- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (DEMBEL)
кстати, если ввожу недействительный путь исходной папки выскакивает системное предупреждение "Путь не найден" со страшным звуком, чето в скрипте там не работает свое окошко выходит... или это ты подправил чтото...

Там не только это не работает, а ещё много чего. Включай/отключай разные опции и попробуй изменить пути к папкам, в функцию пути передаются из полей ввода текста напрямую.
Я практически ничего не менял в твоем скрипте: только кое-где добавил вывод необушных сообщений об ошибках. См.прикрепление.
Автор - Peter
Дата добавления - 19 Мая 2009 в 03:38
DEMBELДата: Вт, 19 Мая 2009, 03:49 | Сообщение # 88
Наш дизайнер
Quote (Peter)
Там не только это не работает, а ещё много чего.

а чего там еще не работает? я все потыкал давно, пути перепробовал разные... ну вылазиет системная ошибка только если пустые пути или белиберда там написана. Есть еще чтото?

Добавлено (19 Май 2009, 03:49)
---------------------------------------------
я имею в виду логику работы скрипта, если все как надо, то и скрипт работает как надо...

Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
 
Сообщение
Quote (Peter)
Там не только это не работает, а ещё много чего.

а чего там еще не работает? я все потыкал давно, пути перепробовал разные... ну вылазиет системная ошибка только если пустые пути или белиберда там написана. Есть еще чтото?

Добавлено (19 Май 2009, 03:49)
---------------------------------------------
я имею в виду логику работы скрипта, если все как надо, то и скрипт работает как надо...

Автор - DEMBEL
Дата добавления - 19 Мая 2009 в 03:49
PeterДата: Вт, 19 Мая 2009, 04:10 | Сообщение # 89
Админ NeoBook
Quote (DEMBEL)
ну вылазиет системная ошибка только если пустые пути или белиберда там написана. Есть еще чтото?

Да вроде пока (ПОКА) нет! Про системные ошибки я и говорил, их надо "обходить".
Quote (DEMBEL)
я имею в виду логику работы скрипта, если все как надо, то и скрипт работает как надо...

Да, если все как надо. А если нет?
А вообще, DEMBEL, по большому счету всю эту байду по обработке и отображению ошибок, созданию папки можно вполне легко сделать и в самой NB, а VB-скрипту оставить только сам процесс копирования, ну, может добавить опции отмены запроса перезаписи и отображения анимации (как я и говорил). Забацать в таком упрощенном виде VB-функцию, приложить к ней "инструкцию пользователя" с примером и... готово!
Как думаешь?
Конечно, если по-уму, то нужно делать функцию максимально удобной и универсальной, но с другой стороны напрягать тебя на все эти дела мне не очень-то нравится.
Ведь главного мы добились: файлы копируются, анимация отображается!
Раньше в NB функции копирования целиком содержимого папки не было, а теперь есть!
:)
- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (DEMBEL)
ну вылазиет системная ошибка только если пустые пути или белиберда там написана. Есть еще чтото?

Да вроде пока (ПОКА) нет! Про системные ошибки я и говорил, их надо "обходить".
Quote (DEMBEL)
я имею в виду логику работы скрипта, если все как надо, то и скрипт работает как надо...

Да, если все как надо. А если нет?
А вообще, DEMBEL, по большому счету всю эту байду по обработке и отображению ошибок, созданию папки можно вполне легко сделать и в самой NB, а VB-скрипту оставить только сам процесс копирования, ну, может добавить опции отмены запроса перезаписи и отображения анимации (как я и говорил). Забацать в таком упрощенном виде VB-функцию, приложить к ней "инструкцию пользователя" с примером и... готово!
Как думаешь?
Конечно, если по-уму, то нужно делать функцию максимально удобной и универсальной, но с другой стороны напрягать тебя на все эти дела мне не очень-то нравится.
Ведь главного мы добились: файлы копируются, анимация отображается!
Раньше в NB функции копирования целиком содержимого папки не было, а теперь есть!
:)
Автор - Peter
Дата добавления - 19 Мая 2009 в 04:10
DEMBELДата: Вт, 19 Мая 2009, 06:35 | Сообщение # 90
Наш дизайнер
Quote (Peter)
А вообще, DEMBEL, по большому счету всю эту байду по обработке и отображению ошибок, созданию папки можно вполне легко сделать и в самой NB, а VB-скрипту оставить только сам процесс копирования, ну, может добавить опции отмены запроса перезаписи и отображения анимации (как я и говорил).

Вот ты знаешь, что то я о том же думал с самого начала... Код все раздувается и раздувается. Иначе это уже получится урок программирования по визуалбейсику, чем урок интеграции скрипта и копирования.
Quote (Peter)
ну, может добавить опции отмены запроса перезаписи и отображения анимации (как я и говорил).

Без проблем
В код добавлять больше дебага не будем - самый геморрой с ним, добавим еще опции, оптимизируем еще и порядок.
Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
 
Сообщение
Quote (Peter)
А вообще, DEMBEL, по большому счету всю эту байду по обработке и отображению ошибок, созданию папки можно вполне легко сделать и в самой NB, а VB-скрипту оставить только сам процесс копирования, ну, может добавить опции отмены запроса перезаписи и отображения анимации (как я и говорил).

Вот ты знаешь, что то я о том же думал с самого начала... Код все раздувается и раздувается. Иначе это уже получится урок программирования по визуалбейсику, чем урок интеграции скрипта и копирования.
Quote (Peter)
ну, может добавить опции отмены запроса перезаписи и отображения анимации (как я и говорил).

Без проблем
В код добавлять больше дебага не будем - самый геморрой с ним, добавим еще опции, оптимизируем еще и порядок.
Автор - DEMBEL
Дата добавления - 19 Мая 2009 в 06:35
Форум NeoBook » Всё о программе NeoBook » Общие вопросы по NeoBook » Вопрос по копированию файлов (Проблемка с индикацией)
  • Страница 3 из 4
  • «
  • 1
  • 2
  • 3
  • 4
  • »
Поиск: