Folder.Copy();File.Open();
Paragraph.SetVisible("Paragraph1", false);
local tbChecks ={}
local tblNodes = {"1.1","1.2","2.1","2.2","3.1","3.2"}
n=1
--Debug.Clear()
if tbChecks then
for i,Node in pairs (tblNodes) do
tNode =Tree.GetNode("Tree1",Node);
if tNode.Checked == true then
tbChecks[n]={Ind=Node,Data=tNode.Data}
n=n+1
end
end
--#############################################################################
--Debug.ShowWindow(true);
--for count=1,Table.Count(tbChecks) do
--Debug.Print(tbChecks[count]["Ind"].."\r\n"..tbChecks[count]["Data"].."\r\n");
--end
--###############################################################################
for count=1,Table.Count(tbChecks) do
Path = tbChecks[count]["Data"]
File.Copy(Path, _DesktopFolder, false, true, false, false,FileCopyCallback);
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
tbChecks=nil;
break;
end
end
end
tblProp = {};
-- Get the child count of 'Tree1'
ChildCount = Tree.GetChildCount("Tree1", "1");
-- Get the child count of 'Tree2'
ChildCount2 = Tree.GetChildCount("Tree1", "2");
-- Get the child count of 'Tree3'
ChildCount3 = Tree.GetChildCount("Tree1", "3");
-- Check if main index checked
if (e_NodeIndex == "1") and (e_Checked == true) then
for count = 1, ChildCount, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "1."..count, tblProp);
end
-- Check if main index not checked
elseif (e_NodeIndex == "1") and (e_Checked == false) then
for count = 1, ChildCount, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "1."..count, tblProp);
end
end
-- Check if second index checked
if (e_NodeIndex == "2") and (e_Checked == true) then
for count = 1, ChildCount2, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "2."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "2") and (e_Checked == false) then
for count = 1, ChildCount2, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "2."..count, tblProp);
end
end
Colega, no entiendo, con lo facil de que es hacer un TEU, dime exactamente lo que quieres, y si deseas, sube a MEGA unos 5 de tus programas que los tienes ya listos para cuando se ejecuten se instalen, y te lo armo todo, te lo comento, y así aprenderás mejor.Patto_UY escribió:...lo que dijiste es muy algo asi que lo acorto de este manera...
Hola, como estas?. Si lo es y ya lo había descargado, es el código que está más arriba, copia archivos al escritorio y tengo que cambiar lo de copiar por ejecutar los .exe. Un usuario me dijo que cambiara "Folder.Copy();" por "rafaxplayer escribió:Busca en AMSFiles un ejemplo llamado Tree install packages , creo que es lo que quieres hacer.
File.Open();[lua]" pero no solo no se encuentra Folder.Copy() en el codigo y [lua]File.Open();[lua] no funciono.
Gracias por contestar, espero ansioso tu respuesta.
Un Saludo! :friends:
if ListBox.GetItemText("ListBox1", 2) thenrafaxplayer escribió:
Esto que es?esa funcion te retorna el texto del item no un booleano .if ListBox.GetItemText("ListBox1", 2) then
seria con:
ListBox.GetItemCheck
if ListBox.GetItemCheck("ListBox1", 2) then
--Instala el programa que esta enel item 2
File.Run("AutoPlay\\Docs\\CCleaner.exe", "", "", SW_SHOWNORMAL,true);
elseif ListBox.GetItemCheck("ListBox1", 3) then
File.Run("AutoPlay\\Docs\\Photoshop.exe", "", "", SW_SHOWNORMAL,true);
elseif.. --y asi sucesivamente y en el ultimo pones end al final
end
No entiendo porque este tema se esta alargando tanto si lo que el usuario busca no es tan complicado 
observando gracias
dowsher escribió:
Bueno, parece ser que no comprendes muy bien como funciona el código de programación y por ello te resulta difícil crear el código para lo que necesitas. Cualquier línea de código que no comprendas, lee la ayuda de AMS ahí esta todo (si no sabes ingles usa el traductor google xD).
Pero bueno, para no hacerte el cuento largo aquí te dejo este ejemplillo que acabo de hacer para ti.
Hola, gracias!!! Me sirvió a la perfección.rafaxplayer escribió:No es que sea dificil , es que no ne tiendes lo basico en programacion como por ejemplo los tipos que pueden retornar cada funcion , ayuda te lo dice , pero veo que no sabes tratarlos ni de lejos.
El tema seria algo asi;
if ListBox.GetItemCheck("ListBox1", 2) then --Instala el programa que esta enel item 2 File.Run("AutoPlay\\Docs\\CCleaner.exe", "", "", SW_SHOWNORMAL,true); elseif ListBox.GetItemCheck("ListBox1", 3) then File.Run("AutoPlay\\Docs\\Photoshop.exe", "", "", SW_SHOWNORMAL,true); elseif.. --y asi sucesivamente y en el ultimo pones end al final end
Patto_UY escribió:Es totalmente diferente a lo que yo estaba haciendo, esto lee las carpetas y los archivos sin necesidad de ponerlos manualmente.
Ahora viene la parte más difícil como que cuente los que hay, los que se instalaran, la barra de progreso...
No es tan difícil lo de la barra de progreso y lo de llevar la cuenta de los programas instalados y los que faltan. ahora no tengo tiempo pero si no te urge mucho podria decirte como hacerlo.
dowsher escribió:Patto_UY escribió:Es totalmente diferente a lo que yo estaba haciendo, esto lee las carpetas y los archivos sin necesidad de ponerlos manualmente.
Ahora viene la parte más difícil como que cuente los que hay, los que se instalaran, la barra de progreso...
Aquí tiene usted, mi ejemplo terminado. Perdón por no haberlo hecho antes pero no me había dado tiempoPatto_UY escribió:Hola, hay alguien que me pueda echar un cable para terminar el proyecto? Gracias!!!