Ejecutar Cp Desde Gambas


Objetivo: 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

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

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

última edición por vuott el Jueves, 14 Abril 2016, 17:07; editado 3 veces
Perfil MP  
Objetivo: Re: Ejecutar Cp Desde Gambas
....porque tú non usas la función de gambas " Copy " ?

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

última edición por vuott el Jueves, 14 Abril 2016, 17:06; editado 1 vez
Perfil MP  
Objetivo: 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")

Perfil MP  
Objetivo: Re: Ejecutar Cp Desde Gambas
desoljor escribió: [Ver mensaje]
Lo siento Vuott pero no funciona


Muy muy extraño !

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


A mi funciona y este codigo:
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


y tambien este:
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


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

última edición por vuott el Jueves, 14 Abril 2016, 17:51; editado 1 vez
Perfil MP  
Objetivo: 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

captura_de_pantalla_de_2016_01_11_01_32_26

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

Perfil MP  
Objetivo: Re: Ejecutar Cp Desde Gambas
captura_de_pantalla_de_2016_04_14_18_02_25_1460650124_849728

me equivoque de imagen

Perfil MP  
Objetivo: Re: Ejecutar Cp Desde Gambas
Por curiosidad, pregunta:

¿probaste si mis dos códigos te funcionan ?

Perfil MP  

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.0846s (PHP: 4% SQL: 96%)
Consultas SQL: 22 - Debug off - GZIP Activado