home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / sharewar / winbatch / winbatch.exe / 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.