获取剪切板的vbs

'获取剪切板的内容
Dim Form, TextBox
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
If TextBox.CanPaste Then
    TextBox.Paste
    WScript.Echo TextBox.Text
End If

调用vbs的bat

for /f %%a in ('cscript //nologo C:\Users\getclip.vbs') do set gclip=%%a
echo %gclip%
if not exist %gclip% (
  md %gclip%  
)
if not exist %gclip% (
  md %gclip%
)

在注册表中给右键添加功能

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\Shell\clipfolder]
"MUIVerb"="新建剪切板文件夹"
"Icon"="shell32.dll,21"
"Position"="top"

[HKEY_CLASSES_ROOT\Directory\Background\Shell\clipfolder\command]
@="C:\\Users\\新建剪切板文件夹.bat"
;注意将上面这行的bat文件路径修改为你实际存放的路径，斜线为两个

实现功能的bat

set mydate