右键添加新建剪切板文件夹 新建今天日期文件夹

获取剪切板的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=%DATE:~0,10%
REM 调整日期格式，将/替换为空，即2000/01/01调整为20000101
md %mydate:/=%

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

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\Shell\datefolder]
"MUIVerb"="新建日期文件夹"
"Icon"="shell32.dll,20"
"Position"="top"

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

顺便贴个设置剪切板

vbs版

'设置剪切板的内容
Dim Form, TextBox
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
TextBox.Text = "www.baidu.com"
TextBox.SelStart = 0
TextBox.SelLength = TextBox.TextLength
TextBox.Copy

bat版

echo www.baidu.com| clip