|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - создание папки с текущей датой, помогите подправить для текстового файла |
|
VBS/WSH/JS - создание папки с текущей датой, помогите подправить для текстового файла
|
Новый участник Сообщения: 9 |
здравствуйте
--- есть скрипт - create a folder with the date and open her.vbs --- Set WshShell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Dim fldr one=date 'получаем текущую дату one=Mid(one,1,4)&Mid(one,6,2)&Mid(one,9,2) 'удаляем точки 2019.10.01 = 20191001 (если нужен оригинал убираем эту строку), (если нужна модификация вашего формата - корректируем значения "Mid" - логика отображения № сивола и количество знаков от этого номера вправо) ' наше название папки (текущая дата - по умолчанию) result = InputBox("введите имя","создание папки",one) if Not IsEmpty(result) then ' если не нажата отмена то делаем: Set fldr=FSO.CreateFolder ("" & result) ' создаем папку с датой и нашим названием WshShell.Run "Explorer " & """" & fldr & """" ' открываем папку в проводнике WshShell.Run "cmd.exe /c echo "&result&"| clip", 0, TRUE 'копируем в буфер название папки End if WScript.Quit ' пути windows неисповедимы --- помогите пожалуйста подправить скрипт vbs чтобы вместо папки, создавать например текстовой файл, или RTF - Rich Text Format заранее благодарю --- в принципе, для чего это надо мне есть модификатор проводника - qttabbar (очень крутая штука) но, у меня версия os - windows xp на новых системах я не пробовал кому интересно, можете скачать дополнение с инструкциями загрузить архив здесь не вышло (выдаёт ошибку объёма, архив весит 5 мб) вот ссылка с гуглодиска https://drive.google.com/open?id=1kZ...7u0JViZVA9zAW_ |
|
Отправлено: 20:51, 01-10-2019 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать |
Отправлено: 21:14, 01-10-2019 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 9
|
Профиль | Отправить PM | Цитировать нужно, чтобы скрипт выполнял следующие действия:
--- создание документа, например .txt, или .rtf с вызовом диалогового окна, для внесения имени в окне автоматом прописывается текущая дата (именно это интересно) жмём OK и файл открывается всё в принципе --- попробуйте запустить скрипт из темы там всё наглядно будет понятно --- скрипты без вставки даты у меня есть (и каталог и блокнот) http://forum.oszone.net/thread-202807.html надо с авто вставкой текущей даты |
Последний раз редактировалось balzaman, 01-10-2019 в 23:07. Отправлено: 23:00, 01-10-2019 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Пробуйте (без проверок):
Скрытый текст
Option Explicit
Dim strSourceFile
With WScript.CreateObject("Scripting.FileSystemObject")
strSourceFile = Trim(InputBox("Enter file name:", "Enter file name", .GetAbsolutePathName(GetLocalDate() & ".txt")))
If Not .FileExists(strSourceFile) Then
.CreateTextFile(strSourceFile).Close
WScript.CreateObject("Shell.Application").NameSpace(.GetParentFolderName(strSourceFile)).ParseName(.GetFileName(strSourceFile)).InvokeVerb "open"
End If
End With
WScript.Quit 0
Function GetLocalDate()
Dim objSWbemObjectEx
For Each objSWbemObjectEx In WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecQuery("SELECT LocalDateTime FROM Win32_OperatingSystem WHERE Primary = 'True'")
GetLocalDate = Left(objSWbemObjectEx.LocalDateTime, 8)
Exit For
Next
End Function
|
Отправлено: 23:42, 01-10-2019 | #4 |
Новый участник Сообщения: 9
|
Профиль | Отправить PM | Цитировать да работает - прописывает полный путь
при длинном пути всё нормально показывает хвост адереса благодарю --- но, при отмене создания файла, возникает ошибка --------------------------- Windows Script Host --------------------------- Сценарий: C:\Program Files\qttabbar_source\qttabbar_launcherbutton_new_text.vbs Строка: 10 Символ: 3 Ошибка: Недопустимый вызов или аргумент процедуры Код: 800A0005 Источник: Ошибка выполнения Microsoft VBScript --------------------------- ОК --------------------------- --- пардон за беспокойство а можно такой же скрипт для создания каталога (папки) |
|
Отправлено: 00:31, 02-10-2019 | #5 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата balzaman:
Скрытый текст
Option Explicit Dim strSourceFile With WScript.CreateObject("Scripting.FileSystemObject") strSourceFile = Trim(InputBox("Enter file name:", "Enter file name", .GetAbsolutePathName(GetLocalDate() & ".txt"))) If Len(strSourceFile) > 0 Then If Not .FileExists(strSourceFile) Then .CreateTextFile(strSourceFile).Close WScript.CreateObject("Shell.Application").NameSpace(.GetParentFolderName(strSourceFile)).ParseName(.GetFileName(strSourceFile)).InvokeVerb "open" End If End If End With WScript.Quit 0 Function GetLocalDate() Dim objSWbemObjectEx For Each objSWbemObjectEx In WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecQuery("SELECT LocalDateTime FROM Win32_OperatingSystem WHERE Primary = 'True'") GetLocalDate = Left(objSWbemObjectEx.LocalDateTime, 8) Exit For Next End Function Цитата balzaman:
Скрытый текст
Option Explicit Dim strSourceFolder With WScript.CreateObject("Scripting.FileSystemObject") strSourceFolder = Trim(InputBox("Enter folder name:", "Enter folder name", .GetAbsolutePathName(GetLocalDate()))) If Len(strSourceFolder) > 0 Then If Not .FolderExists(strSourceFolder) Then .CreateFolder strSourceFolder WScript.CreateObject("Shell.Application").Open strSourceFolder End If End If End With WScript.Quit 0 Function GetLocalDate() Dim objSWbemObjectEx For Each objSWbemObjectEx In WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecQuery("SELECT LocalDateTime FROM Win32_OperatingSystem WHERE Primary = 'True'") GetLocalDate = Left(objSWbemObjectEx.LocalDateTime, 8) Exit For Next End Function |
||
Отправлено: 00:59, 02-10-2019 | #6 |
Новый участник Сообщения: 9
|
Профиль | Отправить PM | Цитировать всё работает
премного благодарен Вам за помощь! |
Отправлено: 01:20, 02-10-2019 | #7 |
Новый участник Сообщения: 9
|
Профиль | Отправить PM | Цитировать qttabbar (проверено только на windows xp sp3) - кому интересно расширение
обновил архив новыми скриптами (благодарность Iska) qttabbar_1.3.0.1_japanese_version_source_new_20191002.exe https://drive.google.com/open?id=1kZ...7u0JViZVA9zAW_ --- QTTabBar - это удобное расширение Проводника Windows, значительно упрощающее работу, т.к. дает возможность открывать вкладки внутри одного диалогового окна Проводника. Это приложение действительно полезно, работа в Проводнике становится подобна работе в браузере, когда новая страница открывается во вкладке, а не отдельном окне. Кроме того, утилита позволяет запоминать открытые вкладки, имеет свой фильтр и горячие клавиши, поддерживает различные плагины, а также дает возможность предпросмотра содержимого текстовых и графических файлов. |
Отправлено: 03:14, 02-10-2019 | #8 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - создание паки с датой и копирование туда файла из другой папки | zippo_smr | Скриптовые языки администрирования Windows | 8 | 20-09-2019 14:40 | |
CMD/BAT - Копирование на ftp файла с текущей датой | Gooks | Скриптовые языки администрирования Windows | 0 | 14-06-2018 14:38 | |
CMD/BAT - [решено] батник для создания папки с текущей датой + время | aggressor_ | Скриптовые языки администрирования Windows | 23 | 08-02-2018 16:02 | |
CMD/BAT - архивирование файла с текущей датой | mcintosh55 | Скриптовые языки администрирования Windows | 1 | 22-12-2014 20:09 | |
CMD/BAT - Сранение даты из файла с текущей датой | InVariable | Скриптовые языки администрирования Windows | 0 | 07-02-2012 11:53 |
|