Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Автоматизация размножения файла под разным именем
Goto page Previous  1, 2
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Wed Nov 15, 2017 14:36    Post subject: Reply with quote

Zmy wrote:
Работает?
Конечно, нет. Это даже проверять не имеет смысла.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Zmy



Joined: 06 Apr 2015
Posts: 78

Post (Separately) Posted: Wed Nov 15, 2017 14:38    Post subject: Reply with quote

А я на вашем месте проверил бы, прежде чем что-либо утверждать.
Наверное, у вас что-то с системой не в порядке.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Wed Nov 15, 2017 14:42    Post subject: Reply with quote

Давайте не будем меня учить тому, чему я давно научен?
Убедитесь сами с простым запуском из файловой панели:
Code:
CreateObject("WScript.Shell").CurrentDirectory = "C:\"
File = "File Name.txt"
With CreateObject("Scripting.FileSystemObject")
   .CreateTextFile File, 1
   MsgBox .GetFile(File)
   MsgBox .GetFile("""" & File & """")
End With

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Zmy



Joined: 06 Apr 2015
Posts: 78

Post (Separately) Posted: Wed Nov 15, 2017 14:48    Post subject: Reply with quote

Так а зачем вы добавляете столько кавычек? Давайте уже по 8 кавычек с каждой стороны добавим. Двух достаточно.
Хоть с параметром, хоть без.

Code:
File = "C:\File Name.txt"
With CreateObject("Scripting.FileSystemObject")
   .CreateTextFile File, 1
   MsgBox .GetFile("" & File & "")
End With


Last edited by Zmy on Wed Nov 15, 2017 14:55; edited 3 times in total
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Wed Nov 15, 2017 14:51    Post subject: Reply with quote

Вам бы залатать пробелы в изучении VBScript. Кавычки так не экранируются. Это делается иначе.

Flasher wrote:
т. к. кавычки (запретные, кстати) передаются как часть имени.
Не в ту степь немного (недосып). Ничего там не передаётся. Забудьте про тестовые скрипты. Ошибка использования "%N" вместо %N в другом.
При сдваивании в поле "Параметры:" кавычки в отношении сепарации параметров съедаются, в итоге первым параметром пойдёт File, а не File Name.txt. Ругань возникает из-за отсутствия файла C:\File.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10236
Location: Россия, Саратов

Post (Separately) Posted: Wed Nov 15, 2017 17:58    Post subject: Reply with quote

Igor_Gurov
В дополнение к идущей дискуссии — получите замечание за нарушение правил форума. Включая оверквотинг и вопрос "как запускать скрипты" (да, вопиюще глупый и неуместный с учётом наличия хотя бы этой темы, которую не просто так в "Автоматизации" прикрепили). Столь же неуместное полное цитирование предыдущих постов удалено.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group