[Iska]

madars1, ага, теперь ясно — заранее известный каталог, это другое дело.

Особого смысла в:

что бы в этот текстовый файл вставился полный путь в свежесозданную папку »

я не вижу, но как скажете:

Скрытый текст

"C:\Мои проекты\0248\0003.vbs"

Код:

Option Explicit

Const strParentPath = "C:\Мои проекты\0248"
'Const strParentPath = "F:\модели\машины\коллекция"

Dim strClipboardContent

Dim strSourceFolder
Dim objFolder

Dim strSourceFile


With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strParentPath) Then
		strClipboardContent = Trim(WScript.CreateObject("htmlfile").parentWindow.clipboardData.getData("text"))
		strSourceFolder = .BuildPath(strParentPath, strClipboardContent)
		
		If Not .FolderExists(strSourceFolder) Then
			Set objFolder = .CreateFolder(strSourceFolder)
		Else
			Set objFolder = .GetFolder(strSourceFolder)
		End If
		
		strSourceFile = .BuildPath(objFolder.Path, strClipboardContent & ".txt")
		
		If Not .FileExists(strSourceFile) Then
			With .CreateTextFile(strSourceFile)
				.WriteLine objFolder.Path
				.Close
			End With
		End If
		
		With WScript.CreateObject("Shell.Application")
			.Explore objFolder.Path
			.NameSpace(objFolder.Path).Items.Item(strClipboardContent & ".txt").InvokeVerb("Open")
			WScript.Sleep 1000
		End With
		
		Set objFolder = Nothing
	Else
		WScript.Echo "Can't find source path [" & strParentPath & "]."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

Замените мои пути своими.