clear;
pkg load signal

#_______________________Enter any number you like.________________________________
NewLength = 2048;       #[48kHz] C2 = 734, [44.1kHz] C2 = 674  Wavetable = 2048
foldername = 'Newlength Samples';  #Name of the folder to be created
lenName = '-WT'; #Change
Newfs = 44100 #Sampling Rate
Bit = 32 #BitsPerSample
#____________________________________________________________________________________

Files = dir('*.wav');
extension = '.wav';

cf = pwd;
mkdir(foldername);
df = fullfile(cf,foldername);

for n=1:length(Files)

  [path,name, ext] = fileparts(Files(n).name);
  [y,fs] = audioread(Files(n).name);

  NewSample = interpft(y, NewLength);
  NewName = [name,lenName,extension];

  cd (df)
  audiowrite(NewName,NewSample, Newfs,'BitsPerSample' , Bit, 'Quality', 100);
  cd ../
  end