caminhoDesktop = "C:\\Users\\Felipe\\Desktop\\lalpa2";
arquivos = {
    "lalpa_gh.txt",
    "lalpa_zeros.txt",
    "lalpa_final.txt",
    "lalpa_zerosverdadeiros.txt",
    "lalpa_ii2.txt",
    "lalpa_ii3.txt",
    "lalpa_ii4.txt"
};

gh = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[1]]], ToExpression[Import[caminhoDesktop <> "\\" <> arquivos[[1]]]], Print["Arquivo não encontrado: ", arquivos[[1]]]]
zeros = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[2]]], ToExpression[Import[caminhoDesktop <> "\\" <> arquivos[[2]]]], Print["Arquivo não encontrado: ", arquivos[[2]]]]
final = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[3]]], Import[caminhoDesktop <> "\\" <> arquivos[[3]]], Print["Arquivo não encontrado: ", arquivos[[3]]]]
zerosverdadeiros = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[4]]], ToExpression[Import[caminhoDesktop <> "\\" <> arquivos[[4]]]], Print["Arquivo não encontrado: ", arquivos[[4]]]];
ii2 = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[5]]], ToExpression[Import[caminhoDesktop <> "\\" <> arquivos[[5]]]], Print["Arquivo não encontrado: ", arquivos[[5]]]];
ii3 = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[6]]], ToExpression[Import[caminhoDesktop <> "\\" <> arquivos[[6]]]], Print["Arquivo não encontrado: ", arquivos[[6]]]];
ii4 = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[7]]], ToExpression[Import[caminhoDesktop <> "\\" <> arquivos[[7]]]], Print["Arquivo não encontrado: ", arquivos[[7]]]]

jet4 = Import["zeros.txt"];
jet = ToExpression[jet4];
jotit = Import["final.txt"];
minus = Import["zerosverdadeiros.txt"];
minus1 = ToExpression[minus];
let2 = jet;
gt = let2 - minus1;
let22 = let2 - gt;
let2 = ToExpression[let22];
jotitvv3 = StringJoin["1", StringJoin[Table["0", {let2}]], jotit];
vvv = ToString[jotitvv3];
ee3 = ToExpression[vvv];
ii31 = Import["ii3.txt"];
ii3 = ToExpression[ii3];
ii41 = Import["ii4.txt"];
ii4 = ToExpression[ii4];
ii21 = Import["ii2.txt"];
ii2 = ToExpression[ii2];
hh = Import["gh.txt"];
hh2 = ToExpression[hh];
ee3 = dd;
question = {x} /. Solve[(ii2*ii3*x + ii4)/(ii2*ii3*x) == dd, x];
N[%];
send = ii2*ii3*question + ii4;
send2 = Flatten[send];
send3 = Flatten[send2];
answer = DecimalForm[send3];
a = {x1} /. Solve[(ii2*ii3*x1 + ii4)/(ii2*ii3*x1) == dd, x1];
dd = ee3;
letters = (ii2*ii3*a)*dd;
letters1 = ToString[letters];
digits = IntegerDigits[letters, 256];
digits2 = Flatten[digits];
gh = hh2;
hj = Take[% , -1];
bb = Partition[digits2, 4];
bg = Partition[bb, hj];
image = Image[bg, "Byte",ColorSpace->"RGB" ,ImageSize -> gh]
img = image
labImg = ColorConvert[img, "LAB"];
i get an image correctly if after generating the numbers ii2,ii3,ii4 and others is kept under mathematica turned on ...if turn it off and turn it on again the image is no longer reconstituted...

caminhoDesktop = "C:\\Users\\Felipe\\Desktop\\luis2\\luis";
arquivos = {
    "luis_gh.txt",
    "luis_zeros.txt",
    "luis_final.txt",
    "luis_zerosverdadeiros.txt",
    "luis_ii2.txt",
    "luis_ii3.txt",
    "luis_ii4.txt"
};

gh = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[1]]], ToExpression[Import[caminhoDesktop <> "\\" <> arquivos[[1]]]], Print["Arquivo não encontrado: ", arquivos[[1]]]];
zeros = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[2]]], ToExpression[Import[caminhoDesktop <> "\\" <> arquivos[[2]]]], Print["Arquivo não encontrado: ", arquivos[[2]]]];
final = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[3]]], Import[caminhoDesktop <> "\\" <> arquivos[[3]]], Print["Arquivo não encontrado: ", arquivos[[3]]]];
zerosverdadeiros = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[4]]], ToExpression[Import[caminhoDesktop <> "\\" <> arquivos[[4]]]], Print["Arquivo não encontrado: ", arquivos[[4]]]];
ii2 = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[5]]], ToExpression[Import[caminhoDesktop <> "\\" <> arquivos[[5]]]], Print["Arquivo não encontrado: ", arquivos[[5]]]];
ii3 = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[6]]], ToExpression[Import[caminhoDesktop <> "\\" <> arquivos[[6]]]], Print["Arquivo não encontrado: ", arquivos[[6]]]];
ii4 = If[FileExistsQ[caminhoDesktop <> "\\" <> arquivos[[7]]],  

ToExpression[Import[caminhoDesktop <> "\" <> arquivos[[7]]]], Print["Arquivo não encontrado: ", arquivos[[7]]]]; the files exist and have different numbers in it and the name is correct...

Hi Gustavo...thank you for your interest...you see the folder is still open after i turn off the mathematica...but anyscript that uses the data stored in the folder or the script that uses it does not work properly after i turn it on again,but If i turn on mathematica and keep it opened it works fine