Страница 1 из 2
Создание папки с текущей датой, временем и текстовым файлом
Добавлено: Пт июн 17, 2016 18:06
sibirnik
Нужен скрипт или кнопка:
Создание папки с текущей датой, временем и текстовым файлом с содержимым из буфера обмена во внутри. Спасибо.
Добавлено: Пт июн 17, 2016 18:11
Flasher
Добавлено: Пт июн 17, 2016 18:15
sibirnik
Flasher
Вчера и сегодня искал - не нашёл того, что нужно к моему сожаленью.
Добавлено спустя 3 минуты:
Flasher
Нужна папка с описанием во внутри из буфера обмена. Открывать ничего не надо.
Добавлено: Пт июн 17, 2016 18:17
Flasher
sibirnik
По ссылке перейти не судьба? Вот
вторая.
Добавлено спустя 2 минуты:
sibirnik писал(а):Нужна папка с описанием во внутри из буфера обмена.
Невнятица какая-то. Описание - это что? Комментарий (аля Ctrl+Z)?
Добавлено: Пт июн 17, 2016 18:19
sibirnik
Flasher
Перешёл и по первой и по второй ссылке, я их вчера видел. Мне надо другое. Прочитайте внимательно мою просьбу. Если нужно я её повторю. Спасибо.
Добавлено: Пт июн 17, 2016 18:22
Flasher
sibirnik
Повторять не нужно, нужно объяснить как следует. Я выше вопрос задал.
Второй вопрос - внутри чего? Файла внутри папки или буферного текста внутри файла?
Третий вопрос: если имя папки - дата_время, то имя файла?
Добавлено: Пт июн 17, 2016 18:28
sibirnik
Объясняю как умею: Выделяю любой текст - нажимаю на кнопку. Создаётся папка в АП с текущей датой, временем и с текстовым файлом во внутри папки с выделенным текстом из буфера обмена. Открывать ничего не надо.
Да так: имя папки - дата_время, описание - имя файла.
Добавлено: Пт июн 17, 2016 18:37
Avada
sibirnik
А расширение этому файлу не положено?
Добавлено: Пт июн 17, 2016 18:39
sibirnik
Avada
Расширение .txt
Добавлено: Пт июн 17, 2016 18:42
Flasher
sibirnik
В
этом скрипте заменить 5 снизу строку на:
Код: Выделить всё
Folder = FSO.BuildPath(WSH.CurrentDirectory, Replace(Now, ":", "-")) & "\"
If Not FSO.FolderExists(Folder) Then FSO.CreateFolder Folder
F = Folder & FSO.GetBaseName(Name) : FN = F & "." & Ext
Чтобы не было перехода, последнюю закомментировать или удалить.
Добавлено: Пт июн 17, 2016 18:55
sibirnik
Flasher
Вылетает ошибка:
Строка: 18
Символ: 12
Ошибка: Индекс выходит за пределы допустимого диапазона
Код: 800A0009
Источник: Ошибка выполнения Microsoft VBScript
Добавлено: Пт июн 17, 2016 18:56
Flasher
sibirnik
Отправляемся опять в памятку и перечитываем.
Добавлено: Пт июн 17, 2016 19:04
sibirnik
Прошу прощения был невнимателен. Не задал параметр. Всё заработало. Но есть одно НО: Папка создаётся там где и скрипт, а нужно в активной панели. Спасибо.
Добавлено: Пт июн 17, 2016 19:05
Flasher
Мой предыдущий пост касается и этого.
Добавлено: Пт июн 17, 2016 19:08
sibirnik
Flasher
Пожалейте меня, я инвалид и мне это трудно даётся...Не посылайте меня в памятку. Будьте Добрее и Вам Зачтётся.