I>WCHAR* R = new WCHAR[wcslen(RRR)+2];
R[0] = 0;
I>wcscat(R,(wchar_t*)"\"");
I>wcscat(R,RRR);
I>wcscat(R,(wchar_t*)"\"");