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