举报
#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, 2025-11-24 08:47 , Processed in 0.072108 second(s), 24 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2025 Discuz! Team.