[已解决]随机播放当前目录下的歌曲

acbs

#Include <File.au3>
$sz="\music" & Random(1,6,1)&".mp3"
$filenm=@WorkingDir & $sz 
SoundPlay($filenm,1)

这是我自己写的随机播放当前目录下的固定文件名的歌曲，
想请问的是如何不固定文件名，又能达到随机播放当前目录下的所有歌曲呢？
谢谢。

楼上风云

简单的思路：先将文件夹内所有扩展名为MP3(也可以包括其他格式）文件，赋值给某数组，然后再按循环方式读取数组并播放处理即可。

smartzbs

#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

acbs

#Include

$sDir = @WorkingDir
If StringRight($sDir, 1)="\" Then $sDir = StringTrimRight($sDir, 1 ...
smartzbs 发表于 2011-1-25 12:20

谢谢这位老兄，我测试一下。