my ($volume,$directories,$file) = File::Spec->splitpath( $path );
$directories=File::Spec->catdir(map{qq("$_")}File::Spec->splitdir( $directories ));
$source_path=File::Spec->catpath( $volume, $directories, qq("$file"));