home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 Secrets (4th Edition) / Windows95Secrets4thEdition.iso / utility / managemt / winbatch / wav.mn_ < prev    next >
Encoding:
Text File  |  1995-08-17  |  369 b   |  14 lines
  1. Play this Wave File
  2.      filename = CurrentFile()
  3.      PlayWaveForm( filename, 1)
  4. Play all selected Wave File(s)
  5.      waves=FileItemize("")
  6.      count=ItemCount(waves,@tab)
  7.      for i=1 to count
  8.          wf=ItemExtract(i,waves,@tab)
  9.          wfe=strupper(FileExtension(wf))
  10.          if wfe!="WAV" then continue
  11.          PlayWaveForm(wf,0)
  12.       next     
  13.  
  14.