Announcement

Collapse
No announcement yet.

Can't get random .wav file to play

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    Can't get random .wav file to play

    I'm struggling with the following script to play a random .wav file from a network share. It return the error message of ..

    Sep-09 7:22:17 PM Theater SoundClips Found 10 files. Playing:\\readynas\other\Sound Clips\Theater Sound Clips\Welcome\this theater features the latest in technology in order ETC.wav

    Sep-09 7:22:17 PM Error Cannot find wave file: \readynas\other\Sound Clips\Theater Sound Clips\Welcome\this theater features the latest in technology in order ETC.wav

    Of note is the fact that it return a properly named files on the file store \\ReadyNAS, but the error message seems to be looking at \ReadyNAS (missing double "\\").

    Any help would be appreciated.

    Public Sub Main(ByVal Parms As Object)

    hs.PluginFunction("BLAB8SS", "", "SetPattern", {"00000100A",1})

    dim fs, root, ndx, randomNdx
    dim objFile, colFiles, strFileName

    ndx=0
    fs = createObject("scripting.filesystemobject")
    root = fs.getFolder("\\Readynas\Other\Sound Clips\Theater Sound Clips\Welcome")
    colFiles = root.Files

    randomNdx = cint(GetRandomNumber(1,cint(colFiles.count)))

    For Each objFile in colFiles

    if ndx=randomNdx then
    if lcase(fs.getExtensionName(objFile))="wav" then
    strFileName = fs.getAbsolutePathName(objFile)
    end if
    exit for
    end if
    ndx=ndx+1
    Next

    hs.MediaPlay (strFileName)
    hs.writeLog ("Theater SoundClips","Found " & ndx & " files. Playing:" & strFileName)


    end sub

    Function GetRandomNumber(lowerbound,upperbound)
    Randomize
    GetRandomNumber = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
    End Function
    Regards, Bob
Working...
X