文件和文件夹右键菜单复制副本

Strator

有时候文本件或文件夹要直接做个副本，懒得重命名，缝合了一个小工具，几个模块命令就直接拉了源码，编译模块文件会大100K左右。还记得源码来源的只有精易模块了，很是遗憾，其他的来源太多，不能一一感谢，都是众易友无私分享的代码。
效果图：
这是运行效果

运行效果

这是右键效果

右键效果

这是命名规则

命名规则效果

下面是源代码，后辍功能没有实现，以我的缝合水平估计得等好久了。哈哈！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
命令	文本型		0
文件右键菜单名称	文本型			文件右键菜单
文件夹右键菜单名称	文本型			文件夹右键菜单

文件右键菜单名称 ＝ “新建文件副本”
选择框1.选中 ＝ zc项是否存在 ( #根类, “*\shell\” ＋ 文件右键菜单名称 ＋ “\command\”)
文件夹右键菜单名称 ＝ “新建文件夹副本”
选择框2.选中 ＝ zc项是否存在 ( #根类, “Directory\shell\” ＋ 文件夹右键菜单名称 ＋ “\command\”)
取命令行 (命令)
如果真 (取数组成员数 (命令) ≠ 0)
载入 (窗口1, , 真)
' 信息框 (“文件路径：” ＋ 命令 [1], 0, , )

子程序名	返回值类型	公开	备 注
_选择框1_被单击

如果真 (选择框1.选中 ＝ 真)
如果真 (加入文件右键菜单 (“新建文件副本”, , ))
信息框 (“加入文件右键菜单成功！”, 0, , )
返回 ()
信息框 (“加入文件右键菜单失败！”, 0, , )
返回 ()
如果真 (加入文件右键菜单 (“新建文件副本”, , 真))
信息框 (“删除文件右键菜单成功！”, 0, , )
返回 ()
信息框 (“删除文件右键菜单失败！”, 0, , )

子程序名	返回值类型	公开	备 注
加入文件右键菜单	逻辑型		把目标程序加入到右键菜单中,成功=真
参数名	类 型	参考	可空	数组	备 注
菜单显示名	文本型				不能有符号，如“\”等
目标程序名称	文本型				填空为程序本身
是否删除	逻辑型				真=删除，假=不删除，默认为假，添加右键菜单

如果真 (是否删除 ＝ 真)
如果真 (删除zc项 ( #根类, “*\shell\” ＋ 菜单显示名 ＋ “\command”) ＝ 真)
删除zc项 ( #根类, “*\shell\” ＋ 菜单显示名)
返回 (真)
返回 (假)
如果真 (寻找文本 (菜单显示名, “\”, , 假) ＝ -1)
如果真 (是否为空 (目标程序名称) ＝ 真)
目标程序名称 ＝ 取运行目录 () ＋ “\” ＋ 取执行文件名 ()
如果真 (写zc项 ( #根类, “*\shell\” ＋ 菜单显示名 ＋ “\command\”, 目标程序名称 ＋ “ %1”) 且 写zc项 ( #根类, “*\shell\” ＋ 菜单显示名 ＋ “\Icon”, 目标程序名称) ＝ 真)
返回 (真)

返回 (假)

子程序名	返回值类型	公开	备 注
_选择框2_被单击

如果真 (选择框2.选中 ＝ 真)
如果真 (加入文件夹右键菜单 (“新建文件夹副本”, , ))
信息框 (“加入文件夹右键菜单成功！”, 0, , )
返回 ()
信息框 (“加入文件夹右键菜单失败！”, 0, , )
返回 ()
如果真 (加入文件夹右键菜单 (“新建文件夹副本”, , 真))
信息框 (“删除文件夹右键菜单成功！”, 0, , )
返回 ()
信息框 (“删除文件夹右键菜单失败！”, 0, , )

子程序名	返回值类型	公开	备 注
加入文件夹右键菜单	逻辑型		把目标程序加入到右键菜单中,成功=真
参数名	类 型	参考	可空	数组	备 注
菜单显示名	文本型				不能有符号，如“\”等
目标程序名称	文本型				填空为程序本身
是否删除	逻辑型				真=删除，假=不删除，默认为假，添加右键菜单

如果真 (是否删除 ＝ 真)
如果真 (删除zc项 ( #根类, “Directory\shell\” ＋ 菜单显示名 ＋ “\command”) ＝ 真)
删除zc项 ( #根类, “Directory\shell\” ＋ 菜单显示名)
返回 (真)
返回 (假)
如果真 (寻找文本 (菜单显示名, “\”, , 假) ＝ -1)
如果真 (是否为空 (目标程序名称) ＝ 真)
目标程序名称 ＝ 取运行目录 () ＋ “\” ＋ 取执行文件名 ()
如果真 (写zc项 ( #根类, “Directory\shell\” ＋ 菜单显示名 ＋ “\command\”, 目标程序名称 ＋ “ %1”) 且 写zc项 ( #根类, “Directory\shell\” ＋ 菜单显示名 ＋ “\Icon”, 目标程序名称) ＝ 真)
返回 (真)

返回 (假)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 命令, 文本型, , "0"<br /> .局部变量 文件右键菜单名称, 文本型, , , 文件右键菜单<br /> .局部变量 文件夹右键菜单名称, 文本型, , , 文件夹右键菜单<br /> <br /> <br /> 文件右键菜单名称 ＝ “新建文件副本”<br /> <br /> 选择框1.选中 ＝ zc项是否存在 (#根类, “*\shell\” ＋ 文件右键菜单名称 ＋ “\command\”)<br /> <br /> 文件夹右键菜单名称 ＝ “新建文件夹副本”<br /> <br /> 选择框2.选中 ＝ zc项是否存在 (#根类, “Directory\shell\” ＋ 文件夹右键菜单名称 ＋ “\command\”)<br /> <br /> 取命令行 (命令)<br /> .如果真 (取数组成员数 (命令) ≠ 0)<br />     载入 (窗口1, , 真)<br />     ' 信息框 (“文件路径：” ＋ 命令 [1], 0, , )<br /> .如果真结束<br /> <br /> <br /> .子程序 _选择框1_被单击<br /> <br /> .如果真 (选择框1.选中 ＝ 真)<br />     .如果真 (加入文件右键菜单 (“新建文件副本”, , ))<br />         信息框 (“加入文件右键菜单成功！”, 0, , )<br />         返回 ()<br />     .如果真结束<br />     信息框 (“加入文件右键菜单失败！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (加入文件右键菜单 (“新建文件副本”, , 真))<br />     信息框 (“删除文件右键菜单成功！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 信息框 (“删除文件右键菜单失败！”, 0, , )<br /> <br /> .子程序 加入文件右键菜单, 逻辑型, 公开, 把目标程序加入到右键菜单中,成功=真<br /> .参数 菜单显示名, 文本型, , 不能有符号，如“\”等<br /> .参数 目标程序名称, 文本型, 可空, 填空为程序本身<br /> .参数 是否删除, 逻辑型, 可空, 真=删除，假=不删除，默认为假，添加右键菜单<br /> <br /> .如果真 (是否删除 ＝ 真)<br />     .如果真 (删除zc项 (#根类, “*\shell\” ＋ 菜单显示名 ＋ “\command”) ＝ 真)<br />         删除zc项 (#根类, “*\shell\” ＋ 菜单显示名)<br />         返回 (真)<br />     .如果真结束<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (寻找文本 (菜单显示名, “\”, , 假) ＝ -1)<br />     .如果真 (是否为空 (目标程序名称) ＝ 真)<br />         目标程序名称 ＝ 取运行目录 () ＋ “\” ＋ 取执行文件名 ()<br />     .如果真结束<br />     .如果真 (写zc项 (#根类, “*\shell\” ＋ 菜单显示名 ＋ “\command\”, 目标程序名称 ＋ “ %1”) 且 写zc项 (#根类, “*\shell\” ＋ 菜单显示名 ＋ “\Icon”, 目标程序名称) ＝ 真)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 _选择框2_被单击<br /> <br /> .如果真 (选择框2.选中 ＝ 真)<br />     .如果真 (加入文件夹右键菜单 (“新建文件夹副本”, , ))<br />         信息框 (“加入文件夹右键菜单成功！”, 0, , )<br />         返回 ()<br />     .如果真结束<br />     信息框 (“加入文件夹右键菜单失败！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (加入文件夹右键菜单 (“新建文件夹副本”, , 真))<br />     信息框 (“删除文件夹右键菜单成功！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 信息框 (“删除文件夹右键菜单失败！”, 0, , )<br /> <br /> <br /> .子程序 加入文件夹右键菜单, 逻辑型, 公开, 把目标程序加入到右键菜单中,成功=真<br /> .参数 菜单显示名, 文本型, , 不能有符号，如“\”等<br /> .参数 目标程序名称, 文本型, 可空, 填空为程序本身<br /> .参数 是否删除, 逻辑型, 可空, 真=删除，假=不删除，默认为假，添加右键菜单<br /> <br /> .如果真 (是否删除 ＝ 真)<br />     .如果真 (删除zc项 (#根类, “Directory\shell\” ＋ 菜单显示名 ＋ “\command”) ＝ 真)<br />         删除zc项 (#根类, “Directory\shell\” ＋ 菜单显示名)<br />         返回 (真)<br />     .如果真结束<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (寻找文本 (菜单显示名, “\”, , 假) ＝ -1)<br />     .如果真 (是否为空 (目标程序名称) ＝ 真)<br />         目标程序名称 ＝ 取运行目录 () ＋ “\” ＋ 取执行文件名 ()<br />     .如果真结束<br />     .如果真 (写zc项 (#根类, “Directory\shell\” ＋ 菜单显示名 ＋ “\command\”, 目标程序名称 ＋ “ %1”) 且 写zc项 (#根类, “Directory\shell\” ＋ 菜单显示名 ＋ “\Icon”, 目标程序名称) ＝ 真)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (假)

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型
命令	文本型		0

_启动窗口.销毁 ()
' 取路径文件名并赋值到编辑框1
取命令行 (命令)
文件路径 ＝ 数组_合并文本 (命令, 字符 ( #空格键 ))
i ＝ 取文本长度 (文件路径)
' 确定全局变量值
path ＝ 取文本左边 (文件路径, 到数值 (到文本 (倒找文本 (文件路径, “\”, , 假))))
filename ＝ 取文本右边 (文件路径, i － 到数值 (到文本 (倒找文本 (文件路径, “\”, , 假))))
time ＝ 到文本 (取月份 (取现行时间 ())) ＋ “月” ＋ 到文本 (取日 (取现行时间 ())) ＋ “日” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “时” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “分” ＋ 到文本 (取秒 (取现行时间 ())) ＋ “秒”
Separator ＝ 符号.内容
num ＝ 序号.内容
' 建立默认规则文件名
副本文件名.内容 ＝ time ＋ Separator ＋ filename

子程序名	返回值类型	公开	备 注
_间隔符_被单击

判断 (间隔符.选中 ＝ 真)
副本文件名.内容 ＝ time ＋ Separator ＋ filename
副本文件名.内容 ＝ time ＋ filename

子程序名	返回值类型	公开	备 注
_符号_内容被改变

间隔符.选中 ＝ 真
Separator ＝ 符号.内容
副本文件名.内容 ＝ time ＋ Separator ＋ num ＋ Separator ＋ filename

子程序名	返回值类型	公开	备 注
_日期_被单击

判断 (日期.选中 ＝ 真)
副本文件名.内容 ＝ time ＋ Separator ＋ num ＋ Separator ＋ filename
副本文件名.内容 ＝ num ＋ Separator ＋ filename

子程序名	返回值类型	公开	备 注
_后辍_被单击

子程序名	返回值类型	公开	备 注
_加序号_被单击

判断 (加序号.选中 ＝ 真)
序号.内容 ＝ “1”
副本文件名.内容 ＝ time ＋ Separator ＋ num ＋ Separator ＋ filename
副本文件名.内容 ＝ time ＋ Separator ＋ filename

子程序名	返回值类型	公开	备 注
_序号_内容被改变

加序号.选中 ＝ 真
num ＝ 序号.内容
副本文件名.内容 ＝ time ＋ Separator ＋ num ＋ Separator ＋ filename

子程序名	返回值类型	公开	备 注
_确定_被单击

' 判断是否是文件夹
文件属性 ＝ 取文件属性 (文件路径)
判断 (位与 (文件属性, #子目录 ) ≠ 0)
目录_复制 (文件路径, path ＋ 副本文件名.内容)
判断 (目录是否存在_ (path ＋ 副本文件名.内容) ≠ 0)
信息框 (“文件夹副本新建成功”, 64, , )
结束 ()

信息框 (“文件夹副本新建失败，请检查文件名格式”, 16, , )
结束 ()

判断 (复制文件 (文件路径, path ＋ 副本文件名.内容))
信息框 (“文件副本新建成功”, 64, , )
结束 ()
信息框 (“文件副本新建失败，请检查文件名格式”, 16, , )
结束 ()

子程序名	返回值类型	公开	备 注
_取消_被单击

结束 ()

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _窗口1_创建完毕<br /> .局部变量 i, 整数型<br /> .局部变量 命令, 文本型, , "0"<br /> <br /> _启动窗口.销毁 ()<br /> ' 取路径文件名并赋值到编辑框1<br /> 取命令行 (命令)<br /> 文件路径 ＝ 数组_合并文本 (命令, 字符 (#空格键))<br /> i ＝ 取文本长度 (文件路径)<br /> ' 确定全局变量值<br /> path ＝ 取文本左边 (文件路径, 到数值 (到文本 (倒找文本 (文件路径, “\”, , 假))))<br /> filename ＝ 取文本右边 (文件路径, i － 到数值 (到文本 (倒找文本 (文件路径, “\”, , 假))))<br /> time ＝ 到文本 (取月份 (取现行时间 ())) ＋ “月” ＋ 到文本 (取日 (取现行时间 ())) ＋ “日” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “时” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “分” ＋ 到文本 (取秒 (取现行时间 ())) ＋ “秒”<br /> Separator ＝ 符号.内容<br /> num ＝ 序号.内容<br /> ' 建立默认规则文件名<br /> 副本文件名.内容 ＝ time ＋ Separator ＋ filename<br /> <br /> <br /> <br /> .子程序 _间隔符_被单击<br /> <br /> .判断开始 (间隔符.选中 ＝ 真)<br />     副本文件名.内容 ＝ time ＋ Separator ＋ filename<br /> .默认<br />     副本文件名.内容 ＝ time ＋ filename<br /> .判断结束<br /> <br /> <br /> .子程序 _符号_内容被改变<br /> <br /> 间隔符.选中 ＝ 真<br /> Separator ＝ 符号.内容<br /> 副本文件名.内容 ＝ time ＋ Separator ＋ num ＋ Separator ＋ filename<br /> <br /> .子程序 _日期_被单击<br /> <br /> .判断开始 (日期.选中 ＝ 真)<br />     副本文件名.内容 ＝ time ＋ Separator ＋ num ＋ Separator ＋ filename<br /> .默认<br />     副本文件名.内容 ＝ num ＋ Separator ＋ filename<br /> .判断结束<br /> <br /> <br /> .子程序 _后辍_被单击<br /> <br /> <br /> <br /> .子程序 _加序号_被单击<br /> <br /> .判断开始 (加序号.选中 ＝ 真)<br />     序号.内容 ＝ “1”<br />     副本文件名.内容 ＝ time ＋ Separator ＋ num ＋ Separator ＋ filename<br /> .默认<br />     副本文件名.内容 ＝ time ＋ Separator ＋ filename<br /> .判断结束<br /> <br /> <br /> .子程序 _序号_内容被改变<br /> <br /> 加序号.选中 ＝ 真<br /> num ＝ 序号.内容<br /> 副本文件名.内容 ＝ time ＋ Separator ＋ num ＋ Separator ＋ filename<br /> <br /> .子程序 _确定_被单击<br /> <br /> ' 判断是否是文件夹<br /> 文件属性 ＝ 取文件属性 (文件路径)<br /> .判断开始 (位与 (文件属性, #子目录) ≠ 0)<br />     目录_复制 (文件路径, path ＋ 副本文件名.内容)<br />     .判断开始 (目录是否存在_ (path ＋ 副本文件名.内容) ≠ 0)<br />         信息框 (“文件夹副本新建成功”, 64, , )<br />         结束 ()<br /> <br />     .默认<br />         信息框 (“文件夹副本新建失败，请检查文件名格式”, 16, , )<br />         结束 ()<br /> <br />     .判断结束<br /> <br /> .判断 (复制文件 (文件路径, path ＋ 副本文件名.内容))<br />     信息框 (“文件副本新建成功”, 64, , )<br />     结束 ()<br /> .默认<br />     信息框 (“文件副本新建失败，请检查文件名格式”, 16, , )<br />     结束 ()<br /> .判断结束<br /> <br /> <br /> <br /> .子程序 _取消_被单击<br /> <br /> 结束 ()

补充内容 (2022-4-29 18:14):
因为窗体设计问题，需要一个非激活自动退出。

.版本 2

.子程序 _窗口1_被取消激活


.如果 (窗口_是否激活 (窗口1.取窗口句柄 ()) ＝ 假)
    结束 ()

圆圈

这个不错

kissismiss

学习学习

fjgh

gaoqing

谢谢分享

sinewtec

支持开源~！感谢分享

凉城o

wuqingg

辛苦了............

xjshuaishuai

谢谢分享！

土豆W

好东西 正在找呢 谢谢

pjm123

谢谢分享