按鍵精靈 以時間命名文件夾 創建文件 寫入文件 和截圖

     // ----------創建一個   時間命名的文件夾
系統時間=now
年=Year(系統時間)
月=Month(系統時間)
天=Day(系統時間)
時=hour(系統時間)
分=Minute(系統時間)
秒 = Second(系統時間)
夾名 = 年 & "-" & 月 & "-" & 天
文件名=年&"-"&月&"-"&天&"一"&時&"點"&分&"分鍾"&秒&"秒"
     // ----------創建一個   時間命名的文件夾
Call Plugin.File.CreateFolder("D:\" & 夾名)
     // ----------創建一個   時間命名的文件夾----在里面放一個以時間為名的文本

             //Set fso = CreateObject("Scripting.FileSystemObject")
            //Set a = fso.createtextfile("D:\" & 夾名 & "\" & 文件名 & ".txt", True)
wen ="D:\" & 夾名 & "\" & 文件名 & ".txt"
TracePrint wen


fileLen=Plugin.File.GetFileLength(wen)   
handle = Plugin.File.OpenFile(wen)
   Call Plugin.Msg.Tips("文件長度是：" & fileLen)

Delay 4000

Call Plugin.File.SeekFile(handle,fileLen)   
Call Plugin.File.WriteFile(handle,"我很好奇為什么創建好的就不能寫入，不創建就行了，沒有這個文件的時候自動創建")   
Call Plugin.File.WriteLine(handle,"abcdef")   
Call Plugin.File.CloseFile(handle)
fileLena=Plugin.File.GetFileLength(wen)
   Call Plugin.Msg.Tips("現在文件長度是：" & fileLena)
RunApp wen
//屏幕截圖，指定截圖區域（左：0, 上：0, 右：1024, 下：768）
Call Plugin.Pic.PrintScreen(0, 0, 1999, 1999, "D:\" & 夾名 & "\" & 文件名 & ".bmp")
RunApp "D:\" & 夾名