• Domingo 22 de Diciembre de 2024, 09:32

Autor Tema:  Copiar Foto A Carpeta  (Leído 1865 veces)

dreamer

  • Miembro activo
  • **
  • Mensajes: 34
    • Ver Perfil
Copiar Foto A Carpeta
« en: Miércoles 31 de Agosto de 2005, 22:37 »
0
Hola Compañeros(as)

Primero que todo gracias.

Tengo una aplicacion donde tengo que ingresar funcionarios pero con su correspondiente foto, para eso tengo un boton llamado CmdCargarFoto, donde este selecciona la foto y me da la ruta de donde se encuentra la foto (ocupo el cuadro de dialogo) entonces tengo una variable llamada RutaFoto donde esta guarda el String de la ruta pero necesito sacar tan solo el nombre de la foto para poder copiarla en una carpeta.
En pocas palabras necesito extraer del string el nombre de la foto y enviarla a la carpeta alguien tiene alguna rutina o algun ejemplo o alguna idea.

De antemano se agradece.

Saludos desde Viña del Mar, CHILE

DrakerDG

  • Miembro activo
  • **
  • Mensajes: 72
    • Ver Perfil
    • http://drakerdg.xbot.es/wordpress/
Re: Copiar Foto A Carpeta
« Respuesta #1 en: Jueves 1 de Septiembre de 2005, 08:51 »
0
:comp: Si existe una forma de copiar una imagen o cualquier archivo de un lugar a otro con sus nombres y paths completos y es por medio de FileSystemObject

Un ejemplo de cómo usarlos es el siguiente:

Código: Text
  1.  
  2. Dim ArchivoObj As Variant
  3. Dim sArchivoOrigen, sArchivoDestino As String
  4. sArchivoOrigen = "c:\Carpeta1\ArchivoA.jpg"  'Archivo origen con ruta completa.
  5. sArchivoDestino = "c:\Otra_Carpeta\Otro_Archivo.jpg" 'Archivo destino con ruta completa.
  6. Set ArchivoObj = CreateObject("Scripting.FileSystemObject") 'Crea un objeto tipo FileSystemObject
  7. ArchivoObj.CopyFile sArchivoOrigen, sArchivoDestino 'Copia de un archivo al otro.
  8.  
  9.  
  10.  

Igual modifique un proyecto de VisualBasic para realizar la tarea que necesitas con unos extras interesantes.  Lo adjunto a este mensaje para que lo revises y me cuentes.

Nota:  Como la forma de crear el objeto es por medio de un script, si tienen activo algun programa anti spyware, les alarmará preguntando si lo dejan correr o no.  Solo es la primera vez si le dicen que sí.

 :suerte:

P.D.  Encontré esta información en el help de Visual Basic.

Código: Text
  1.  
  2. FileSystemObject (Objeto)
  3.                
  4. Descripción
  5.  
  6. Proporciona acceso al sistema de archivos de un equipo.
  7.  
  8. Sintaxis
  9.  
  10. Scripting.FileSystemObject
  11.  
  12. Comentarios
  13.  
  14. El código siguiente demuestra cómo se utiliza el objeto FileSystemObject para devolver un objeto TextStream que se puede leer o en el que se puede escribir:
  15.  
  16. Set fs = CreateObject("Scripting.FileSystemObject")
  17. Set a = fs.CreateTextFile("c:\archivoprueba.txt", True)
  18. a.WriteLine("Esto es una prueba.")
  19. a.Close
  20.  
  21. En el código que se muestra arriba, la función CreateObject devuelve el objeto FileSystemObject (fs). El método CreateTextFile crea entonces el archivo como un objeto TextStream (a) y el método WriteLine escribe una línea de texto al archivo de texto creado. El método Close vacía el búfer y cierra el archivo.
  22.  
  23.  
  24.  

 :jumpie:
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.
Saludos desde Guatemala, C. A.
Electrobotics