السلام عليكم ورحمة الله وبركاته
للحفظ:
[html]NAME=Input.GetText("Input_Item");
RUDANAME = Input.GetText("Input2");
g = Input.GetText("m1");
R1 = String.Replace(g, "\r\n", "belkiss", false);
g2 = Input.GetText("m2");
R2 = String.Replace(g2, "\r\n", "belkiss", false);
if RUDANAME =="" then
Dialog.Message("notice", "*****", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
Folder.Create(_SourceFolder.."\\AutoPlay\\Docs\\". .RUDANAME);
end
if NAME =="" then
result = Dialog.Message("notice", "***", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
INIFile.SetValue(_SourceFolder.."\\AutoPlay\\Docs\ \"..RUDANAME.."\\"..NAME..".ini", NAME, "RW1", R1);
INIFile.SetValue(_SourceFolder.."\\AutoPlay\\Docs\ \"..RUDANAME.."\\"..NAME..".ini", NAME, "RW2", R2);
end[/html]

للاستعادة
[html]NAME=Input.GetText("Input_Item");
RUDANAME = Input.GetText("Input2");
R1 = Input.GetText("m1");
R2 = Input.GetText("m2");
if RUDANAME =="" then
Dialog.Message("notice", "****", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
Folder.Create(_SourceFolder.."\\AutoPlay\\Docs\\". .RUDANAME);
end
if NAME =="" then
result = Dialog.Message("notice", "****", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
X1 = INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs\ \"..RUDANAME.."\\"..NAME..".ini", NAME, "RW1");
n = String.Replace(X1, "belkiss", "\r\n", false);
Input.SetText("m1", n);
X2 =INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs \\"..RUDANAME.."\\"..NAME..".ini", NAME, "RW2");
n2 = String.Replace(X2, "belkiss", "\r\n", false);
Input.SetText("m2", n2);
end[/html]

موفق

شكر وتقدير

بارك الله فيك شكرا على هذه اللمسة الجميلة
ماشاء الله تصميمك و تصميماتك رائعة