[madars1]

что у меня получилось

Код:

Option Explicit

Const strParentPath = "c:\Мои проекты\0248\"

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)
		
		WScript.Echo "[" & strSourceFolder & "]"
		
		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

1. теперь после запуска скрипта выскакивает сначала это:



2. а затем вот это: