作者：绿色风
分类：
时间：2022-08-17
浏览：158
楼主
罗刚君 |
每天都新建一文件夹，或者每个月都需要建立29或者30、31个文件夹，手工创建是费力的事
利用程序可以瞬间完成，而且重点是与WINDOWS无缝连结，
可以在文件或者文件夹右键执行“新建”工作，
程序具有智能，可以判断当前月的月份和当前月的天数。
瞬间完成1个月的工作。
动心了？看看演示吧
提示：必须安装在C盘根目录下
优点：
1.集成在WINDOWS中，使用方便。借助任何文件夹、文件都可以调用命令。而不用从开始菜单找子菜单
2.且1KB的体积
3.智能化判断当前月的天数和月份
这是其它安装软件无法比拟的，
（如果仅仅从功能上讲的，自然用VB或者VBA编一个专用工具最好，本贴只重与WINDOWS的结合性）
 批量创建文件夹（VBS）.rar
可以单击放大，查看清晰版本
|
2楼
罗刚君 |
- dim Nums,MyVar,i,days
- MyVar = Month(Now)
- if myvar=1 or myvar=3 or myvar=5 or myvar=7 or myvar=8 or myvar=10 or myvar=12 then
- days = 31
- elseif myvar=2 then
- days = DAY(date+29-DAY(date+29))
- else
- days = 30
- end if
- Nums=inputbox("请输入文件夹数量,为1到" &days&"之间" & vbCrLf & "当前月份为"&Myvar&"月"& vbCrLf &"程序将创建"&Myvar&"月1日到"&Myvar&"月"&days&"日之文件夹" ,"文件夹数量 "&" "&now,days)
- Set WshShell=wscript.CreateObject("WScript.Shell")
- Set objShell = CreateObject("Shell.Application")
- Set objFolder = objShell.BrowseForFolder (0, "您请选择一个文件夹吧:", 0)
- If objFolder Is Nothing Then Wscript.Quit
- Set objFolderItem = objFolder.Self
- if nums*1 <=days*1 and nums*1>0 then
- for i=1 to Nums
- Set objFolder =CreateObject("Scripting.FileSystemObject").CreateFolder(objFolderItem.Path&"\"&MyVar&"月"&i&"日")
- next
- end If
- set wshshell=nothing
|
3楼
monvzhilei |
罗版。我还是的问问，您的录制工具是啥啊？ |
4楼
maybeyy |
做的这个帅呆了 |
5楼
yangkd2011 |
Camtasia Studio屏幕录像捕捉破解中文,有兴趣的可以安装试试。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一