https://foro.gambas-es.org/viewtopic.php?f=1&t=5357
-----------------------------------
desoljor
Jueves, 14 Abril 2016, 13:15

Ejecutar Cp Desde Gambas
-----------------------------------
Hola a tod@s os expongo mi situación.

Tengo un DirView1 que cuando pulsas sobre el el valor se almacena en DirView1.Current.
Tengo un FileView1 que cuando pulsas sobre el el valor se almacena en FileView1.Current

en principio todo correcto, lo que pretendo es copiar el archivo seleccionado a un directorio concreto
estoy utilizando esto

Shell("cp" & DirView1.Current & "/" & FileView1.Current & Application.Path & "/img")

no me da error alguno pero no me copia el archivo
¿ Que estoy haciendo mal ?.

Gracias


-----------------------------------
vuott
Jueves, 14 Abril 2016, 15:59

Re: Ejecutar Cp Desde Gambas
-----------------------------------
Tienes que eliminar los paréntesis y dar los espacios:

[code linenumbers=false syntax=gambas]Shell "cp " & DirView1.Current &/ FileView1.Current & " " & Application.Path &/ "img")[/code]


-----------------------------------
vuott
Jueves, 14 Abril 2016, 16:06

Re: Ejecutar Cp Desde Gambas
-----------------------------------
....porque tú non usas la función de Gambas " [i]Copy[/i] " ?

[code linenumbers=false syntax=gambas]Copy DirView1.Current &/ FileView1.Current To Application.Path &/ "img" &/ FileView1.Current[/code]


-----------------------------------
desoljor
Jueves, 14 Abril 2016, 16:13

Re: Ejecutar Cp Desde Gambas
-----------------------------------
Lo siento Vuott pero no funciona ninguna de estas 2 opciones

Shell "cp " & DirView1.Current & "/" & FileView1.Current & " " & Application.Path & "/img"

Shell "cp " & DirView1.Current &/ FileView1.Current & " " & Application.Path & "/img")


-----------------------------------
vuott
Jueves, 14 Abril 2016, 16:47

Re: Ejecutar Cp Desde Gambas
-----------------------------------
[quote user="desoljor" post="31685"]Lo siento Vuott pero no funciona[/quote]

Muy muy extraño !    :o 

Has tú creado la carpeta "/img" en la carpeta principal del proyecto Gambas ?


A mi funciona y este codigo:
[code linenumbers=false syntax=gambas]Public Sub Form_Open()

  DirView1.Root = "/"

End

Public Sub DirView1_Click()

  FileView1.Dir = DirView1.Current

End

Public Sub FileView1_Click()

  Shell "cp " & DirView1.Current &/ FileView1.Current & " " & Application.Path &/ "img"

End[/code]

y tambien este:
[code linenumbers=false syntax=gambas]Public Sub Form_Open()

  DirView1.Root = "/"

End

Public Sub DirView1_Click()

  FileView1.Dir = DirView1.Current

End

Public Sub FileView1_Click()

  Copy DirView1.Current &/ FileView1.Current To Application.Path &/ "img" &/ FileView1.Current

End[/code]

Es claro que yo tuve que crear la carpeta "/img" en la carpeta principal del proyecto Gambas.


-----------------------------------
desoljor
Jueves, 14 Abril 2016, 17:05

Re: Ejecutar Cp Desde Gambas
-----------------------------------
Vuott, la carpeta /img esta  creada en el proyecto, mi intención es que el usuario escoja una imagen desde cualquier directorio para asociarlo a un registro de la tabla, pero una vez seleccionada esa imagen ésta quede en el directorio /img 

[img]https://foro.gambas-es.org/files/images/990/captura_de_pantalla_de_2016_01_11_01_32_26.png[/img] 

Como puedes ver junto al botón Aceptar imagen está toda la ruta de origen del fichero que uso de prueba pero en /img no hay nada

Public Sub AceptarImagen_Click()

  Shell("cp" & DirView1.Current & "/" & FileView1.Current & Application.Path & "/img")

End


-----------------------------------
desoljor
Jueves, 14 Abril 2016, 17:09

Re: Ejecutar Cp Desde Gambas
-----------------------------------
[img]https://foro.gambas-es.org/files/images/990/captura_de_pantalla_de_2016_04_14_18_02_25_1460650124_849728.png[/img] 

me equivoque de imagen


-----------------------------------
vuott
Jueves, 14 Abril 2016, 17:21

Re: Ejecutar Cp Desde Gambas
-----------------------------------
Por curiosidad, pregunta:

¿probaste si mis dos códigos te funcionan ?


