[已解决]随机播放当前目录下的歌曲
本帖最后由 acbs 于 2011-1-25 13:08 编辑#Include <File.au3>
$sz="\music" & Random(1,6,1)&".mp3"
$filenm=@WorkingDir & $sz
SoundPlay($filenm,1)
这是我自己写的随机播放当前目录下的固定文件名的歌曲，
想请问的是如何不固定文件名，又能达到随机播放当前目录下的所有歌曲呢？
谢谢。 简单的思路：先将文件夹内所有扩展名为MP3(也可以包括其他格式）文件，赋值给某数组，然后再按循环方式读取数组并播放处理即可。 #Include <File.au3>
$sDir = @WorkingDir
If StringRight($sDir, 1)="\" Then $sDir = StringTrimRight($sDir, 1)
$aFile = _FileListToArray($sDir , "*.mp3")
If UBound($aFile)>1 Then;有歌曲文件
;随机播放1首
$sz = Random(1, UBound($aFile), 1);指定在所有文件中随机
$filenm = $sDir & "\" & $aFile[$sz]
SoundPlay($filenm,1)
EndIf #Include
$sDir = @WorkingDir
If StringRight($sDir, 1)="\" Then $sDir = StringTrimRight($sDir, 1 ...
smartzbs 发表于 2011-1-25 12:20 http://www.autoitx.com/images/common/back.gif
谢谢这位老兄，我测试一下。
页:
[1]