本帖最后由 suiyanlovetian 于 2013-6-4 22:25 编辑
- Dim fso, pic_name, dest_dir
-
- Set fso = CreateObject("scripting.FileSystemObject")
- Do
- pic_name = pic_name + 1
- dest_dir = ".\b\" & pic_name & ".jpg"
- fso.CopyFile ".\a.jpg", dest_dir
- WScript.Sleep(1000 * 60 * 3)
- Loop
复制代码
|