I had a series of files named S0009, S0010, etc and turned them dicom images with dicomwrite, renaming them to test1.dcm, test2,dcm etc.. Now I want to transfer all test1,2,3.dcm files to another subfolder. I use this, although I get no error, still they are not moving.
destinationFolder = 'C:\Echo Images\Stelios\FDB.dcm\TeSt';
if ~exist(destinationFolder,'dir')
mkdir(destinationFolder);
end
dir 'C:\Echo Images\Stelios\FDB.dcm'
listing = dir('.dcm');
[m n z] = size(listing);
for indx=3:m
listing(indx).name
A = dicomread(strcat( 'C:\Echo Images\Stelios\FDB.dcm\' , listing(indx).name));
imshow(A);
I3 = imcrop(A, [200.5 59.75 591 480]);
W = dicomwrite(I3, strcat('C:\Echo Images\Stelios\FDB.dcm\test', int2str(indx-2) , '.dcm'));
fullfileName = fullfile(destinationFolder,W)
dicomwrite(W,fullfileName)
end
