F1::
Send,!d
ControlGetText,当前目录,Edit1,A
formattime,目录名,,yyyy.M.d
最终目录名=%当前目录%\%目录名%
临时目录名=%最终目录名%
while InStr(FileExist(临时目录名), "D")
{
     a:=A_index+1
    临时目录名=%最终目录名%_%a%
}
最终目录名=%临时目录名%
FileCreateDir, %最终目录名%
Sleep,100
run %最终目录名%
WinClose,%当前目录%
return

 

声明：站内资源为整理优化好的代码上传分享与学习研究，如果是开源代码基本都会标明出处，方便大家扩展学习路径。请不要恶意搬运，破坏站长辛苦整理维护的劳动成果。本站为爱好者分享站点，所有内容不作为商业行为。如若本站上传内容侵犯了原著者的合法权益，请联系我们进行删除下架。