form 批量.mp3文件转.wav文件脚本 请输入原来.mp3文件所在文件夹的上级目录 text objectD E:\soundcomparison3\all 请输入另存.wav文件的文件夹的上级目录 text outpD E:\soundcomparison3\all\0wav endform if left$(objectD$,1)<>"\" objectD$ = objectD$ + "\" endif if left$(outpD$,1)<>"\" outpD$ = outpD$ + "\" endif Create Strings as directory list... direcList 'objectD$' numberOfDirecs = Get number of strings createDirectory: outpD$ for iDirec from 1 to numberOfDirecs select Strings direcList direcName$ = Get string... 'iDirec' wdirecName1$ = objectD$ + direcName$ wdirecName$ = wdirecName1$ + "\" wodirecName1$ = outpD$ + direcName$ wodirecName$ = wodirecName1$ + "\" createDirectory: wodirecName$ Create Strings as file list... fileList 'wdirecName$'*.mp3 numberOfFiles = Get number of strings for ifile to numberOfFiles select Strings fileList fileName$ = Get string... 'ifile' sName$ = fileName$ - ".mp3" Read from file... 'wdirecName$''fileName$' Write to WAV file... 'wodirecName$''sName$'.wav Remove endfor select Strings fileList Remove endfor select all Remove exit 目标文件夹下所有文件夹里的.mp3文件已经另存为.wav文件!