按键精灵 以时间命名文件夹 创建文件 写入文件 和截图

     // ----------创建一个   时间命名的文件夹
系统时间=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:\" & 夹名