﻿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文件！
