765058729 发表于 2010-11-29 17:04:40

保存文件问题

偶是菜鸟，在别处搜来一个截图的，保存位置和命名很不爽，

_ScreenCapture_SaveImage(@ScriptDir & '\截图-' & $counts & '.jpg', $hBitmap)



可以帮我改到（我的文档\图片\）下按年月日后面递增01，02，03吗，有同名文件就递增

765058729 发表于 2010-11-29 17:59:16

没人帮帮我吗

yhxhappy 发表于 2010-11-29 17:59:57

楼主，截图的时候就可以直接保存了啊，在我这里试的时候发现创建文件夹“我的文档\图片\”时 “图片” 两个字是乱码，不知道什么原因。

#Include <File.au3>
#Include <Array.au3>
#include <ScreenCapture.au3>

$Dir = @MyDocumentsDir & "\截图"

If FileExists($Dir) = 0 Then DirCreate($Dir)

For $i = 1 To 5
        $FileList = _FileListToArray($Dir, @YEAR & @MON & @MDAY & "*.jpg")

        If @Error = 1 Or @Error = 4 Then
                $Num = 1
        Else
                $Num = UBound($FileList)
        EndIf
        _ScreenCapture_Capture($Dir & "\" & @YEAR & @MON & @MDAY & StringFormat("%02i", $Num) & ".jpg", 0, 0, 200, 200)
Next

ShellExecute($Dir)

765058729 发表于 2010-11-29 18:09:45

没事，我先创建好就行了，谢了

765058729 发表于 2010-11-29 18:18:34

没事，我先创建好就行了，谢了
页: [1]
查看完整版本: 保存文件问题