comparison aux/batchResample.m @ 8:2afd6ff39f08

prepare2listen fixes

     end
 
     if nargin < 3
         bitdepthnew = 24;
     end
-
-    currentfolder = pwd;
-    cd(foldername); % go to specified folder
+    
     % go over all wav files in this folder
-    files = dir('*.wav');
+    files = dir([foldername '/*.wav']);
 
     % remove hidden files from list
     % see http://www.mathworks.co.uk/matlabcentral/newsreader/view_thread/258220
     for k = length(files):-1:1
         fname = files(k).name;

             files(k) = [];
         end
     end
 
     for k=1:length(files)
-            info     = audioinfo(files(k).name); 
+            info     = audioinfo([foldername '/' files(k).name]); 
             bitdepth = info.BitsPerSample; 
             fs       = info.SampleRate; 
             
             if fs==fsnew && bitdepth == bitdepthnew
                 disp([files(k).name ' already at ' num2str(fs) ' Hz, ' num2str(bitdepth) ' bit.']);
             else
-                [audio,fs] = audioread(files(k).name); % read audio
+                [audio,fs] = audioread([foldername '/' files(k).name]); % read audio
                 disp([files(k).name ' was ' num2str(fs) ' Hz, ' num2str(bitdepth) ' bit.']);
                 if fs ~= fsnew
                     audio = resample(audio, fsnew, fs);
                 end
-                audiowrite([files(k).name], audio, fsnew, ...
-                    'BitsPerSample', bitdepthnew);
+                audiowrite([foldername '/' files(k).name], audio/max(max(abs(audio))), ...
+                    fsnew, 'BitsPerSample', bitdepthnew);
             end
     end
-    
-    cd(currentfolder); % go back to original folder
 
 end