Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - создание папки с текущей датой, помогите подправить для текстового файла

Ответить
Настройки темы
VBS/WSH/JS - создание папки с текущей датой, помогите подправить для текстового файла

Новый участник


Сообщения: 9
Благодарности: 0


Конфигурация

Профиль | Отправить PM | Цитировать


Изменения
Автор: balzaman
Дата: 02-10-2019
здравствуйте
---
есть скрипт - 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
Благодарности: 8087

Профиль | Отправить PM | Цитировать


Цитата balzaman:
в принципе, для чего это надо мне »
Опишите словами, что Вам надо (забыв про имеющийся скрипт).

Цитата balzaman:
есть модификатор проводника - qttabbar (очень крутая штука) »
Очень на любителя.

Отправлено: 21:14, 01-10-2019 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 9
Благодарности: 0

Профиль | Отправить PM | Цитировать


нужно, чтобы скрипт выполнял следующие действия:
---
создание документа, например .txt, или .rtf
с вызовом диалогового окна, для внесения имени
в окне автоматом прописывается текущая дата (именно это интересно)
жмём OK и файл открывается
всё в принципе
---
попробуйте запустить скрипт из темы
там всё наглядно будет понятно
---
скрипты без вставки даты у меня есть (и каталог и блокнот)
http://forum.oszone.net/thread-202807.html
надо с авто вставкой текущей даты

Последний раз редактировалось balzaman, 01-10-2019 в 23:07.


Отправлено: 23:00, 01-10-2019 | #3


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить 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
Благодарности: 0

Профиль | Отправить 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
Благодарности: 8087

Профиль | Отправить 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
Благодарности: 0

Профиль | Отправить PM | Цитировать


всё работает
премного благодарен Вам за помощь!

Отправлено: 01:20, 02-10-2019 | #7


Новый участник


Сообщения: 9
Благодарности: 0

Профиль | Отправить 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



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - создание папки с текущей датой, помогите подправить для текстового файла

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
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




 
Переход