举报
#include <File.au3> $folder = "D:\test" $file = _FileListToArray($folder, "*.mpg", 1) If @error Then Exit If $file[0] > 1 Then FileCopy($folder & "\" & $file[Random(1, $file[0], 1)], @DesktopCommonDir) EndIf
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2026-3-4 12:50 , Processed in 0.303005 second(s), 23 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2026 Discuz! Team.