[Iska]

Пакетный файл

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set /p "sProjectNames=Enter project names: "

if defined sProjectNames for %%i in (%sProjectNames%) do >nul copy /y nul "%%~i.html" && echo Create file [%%~i.html].|| echo Can't create file [%%~i.html].

endlocal
exit /b 0

Скрипт WSH

Код:

Option Explicit

Dim strProjectNames
Dim strProjectName


With WScript.CreateObject("Scripting.FileSystemObject")
	If StrComp(.GetFileName(WScript.FullName), "wscript.exe", vbTextCompare) = 0 Then
		strProjectNames = Trim(InputBox("Enter project names:", "Enter project names"))
	Else
		WScript.StdOut.Write "Enter project names:"
		strProjectNames = Trim(WScript.StdIn.ReadLine())
	End If
	
	If Len(strProjectNames) > 0 Then
		For Each strProjectName In Split(strProjectNames)
			.CreateTextFile(strProjectName & ".html", True).Close
			WScript.Echo "Create file [" & strProjectName & ".html]."
		Next
	End If
End With

WScript.Quit 0

но у меня специальная команда "code ." »

Расскажите про это подробнее.