AHK_创建数字标记文件夹2

 SetTimer, ChangeButtonNames, 50 

    MsgBox, 4, 窗口中新建和桌面上新建,请选择，是新建在当前活动窗口内，还是在桌面上!


    IfMsgBox, YES 
        gosub 窗口
    else 
        gosub 桌面
    return 




    ChangeButtonNames: 
    IfWinNotExist, 窗口中新建和桌面上新建,
        return  ; Keep waiting.

    SetTimer, ChangeButtonNames, off 

    WinActivate 
    ControlSetText, Button1, &窗口                     ; 添加按钮
    ControlSetText, Button2, &桌面                     ; 添加按钮

   
    return



     

窗口:
  MsgBox, 你点击了“窗口”按钮. 将新建一个文件夹在活动窗口.
          gosub 窗口内新建
return



桌面:

  MsgBox, 你点击了“桌面”按钮. 将新建一个文件夹在桌面上.
            gosub 桌面上新建
return


窗口内新建:
Send,!d

ControlGetText,p,Edit1,A


date=%A_MM%-%A_DD%                         ;  时间做文件夹名



n=%p%\%date%                               ;  加上路径



o=%n%                                      ;  创建一个o变量，开辟空间，路径和文件存入,用它来方便运算


while InStr(FileExist(o), "D")
{
	Digital_mark=%A_index%             ;  加上数字

	o=%n%_%Digital_mark%               ;  运算有结果了

}
n=%o%                                      ;  结果存放n变量的空间

FileCreateDir, %n%                         ;  创建文件夹 
Sleep,200
;run %n%
return







桌面上新建:
p:= A_Desktop


date=%A_MM%-%A_DD%                         ;  时间做文件夹名



n=%p%\%date%                               ;  加上路径



o=%n%                                      ;  创建一个o变量，开辟空间，路径和文件存入,用它来方便运算


while InStr(FileExist(o), "D")
{
	Digital_mark=%A_index%             ;  加上数字

	o=%n%_%Digital_mark%               ;  运算有结果了

}
n=%o%                                      ;  结果存放n变量的空间

FileCreateDir, %n%                         ;  创建文件夹 
Sleep,200
;run %n%
return