|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Контекстное меню -> Новый текстовый документ. |
|
VBS/WSH/JS - [решено] Контекстное меню -> Новый текстовый документ.
|
Пользователь Сообщения: 60 |
Профиль | Отправить PM | Цитировать Здравствуйте. Вот здесь набросок твика реестра для добавления пункта в контекстное меню "Новый txt" можно сделать его без окон командной строки, добавить открытие в блокноте (или асоциированном для txt приложении) и запрос на действие если файл с таким именем уже существует? Спасибо.
|
|
Отправлено: 00:44, 30-10-2011 |
Пользователь Сообщения: 60
|
Профиль | Отправить PM | Цитировать Спасибо, то что надо.
|
Отправлено: 12:50, 09-11-2011 | #11 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 60
|
Профиль | Отправить PM | Цитировать Можно убрать запрос на перезапись, чтоб было как в Windows, просто добавление номера? Спасибо.
|
Отправлено: 15:32, 29-01-2012 | #12 |
Пользователь Сообщения: 78
|
Профиль | Отправить PM | Цитировать Sta1917, послушайте, в предыдущем примере всё расписано. Неужели так трудно, подумав удалить ненужные строки?
Option Explicit Call CreateFile WScript.Quit 0 Function CreateFile Dim FSO, WshShell, sFile, PathName, i, strName, N Set FSO = CreateObject("Scripting.FileSystemObject") Set WshShell = CreateObject("WScript.Shell") sFile = "Readme" 'Определяем,где находимся(только для контекстного меню) If WScript.Arguments.Count = 1 Then PathName = WScript.Arguments.Item(0) End if 'Создание If FSO.FileExists(PathName & "\" & sFile & ".txt") Then With FSO i = 0 Do i = i + 1 If i <> 0 Then strName = sFile & " _" & CStr(i) & ".txt" If Not .FileExists(.BuildPath(PathName, strName)) Then fso.CreateTextFile(PathName & "\" & strName) Exit Do End If Loop End With WshShell.Run("%windir%\notepad " & PathName & "\" & strName) Else 'Если ещё нет файла с ук.названием fso.CreateTextFile(PathName & "\" & sFile & ".txt") WshShell.Run("%windir%\notepad " & PathName & "\" & sFile & ".txt") End if End Function |
Отправлено: 22:24, 29-01-2012 | #13 |
Пользователь Сообщения: 60
|
Профиль | Отправить PM | Цитировать OSArev, я совсем далек даже простейшего программирования. Попробовал методом тыка убрать строки, получилось создание только первого файла, вот и обратился к профи.
|
Отправлено: 00:11, 31-01-2012 | #14 |
Пользователь Сообщения: 78
|
Профиль | Отправить PM | Цитировать Sta1917, я далеко не профи, сам многому учусь, разбирая скрипты старейшин этого форума. Им огромноё, человеческое спасибо!
|
Отправлено: 20:08, 01-02-2012 | #15 |
Пользователь Сообщения: 67
|
Профиль | Отправить PM | Цитировать Цитата OSArev:
Dim FSO, MyFile Set FSO = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") Set FSO = WScript.CreateObject("Scripting.FileSystemObject") clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text") Randomize() FileName=Inputbox("Введите имя:","FolderCreator","Введите имя") 'Проверка на существование файла и создание. 'Добавил открытие файла If FSO.FileExists(FileName & ".txt") Then WScript.Echo "Документ ''"& FileName & ".txt" & "'' - уже существует." WshShell.Run("Explorer" &" " & FileName & ".txt") WScript.Quit 0 Else End If set oFile = CreateObject("Scripting.FileSystemObject").OpenTextFile("" & FileName & ".txt", 2, True) ofile.WriteLine(clipboard) |
|
Отправлено: 20:17, 26-12-2023 | #16 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - [решено] Возвращение в меню "Создать" пункта "Текстовый документ", ассоциирование с TXT | Pavla | Microsoft Windows 7 | 16 | 10-07-2012 07:47 | |
Интерфейс - Из контекстного меню в пункте "Создать", пропала команда "Текстовый документ". | QUMATOZ | Microsoft Windows 2000/XP | 1 | 23-10-2011 18:07 | |
Разное - [решено] Как задать свое название вместо "Новый текстовый документ" при создании | oldim | Microsoft Windows 7 | 3 | 25-09-2011 14:07 | |
Разное - [решено] Не могу создать новый текстовый документ | Artesmann | Microsoft Windows Vista | 2 | 24-12-2008 19:24 | |
Разное - в меню под правой кнопкой мыши исчезла опция создать текстовый документ | fnm | Microsoft Windows 2000/XP | 1 | 07-10-2008 15:15 |
|