• Domingo 22 de Diciembre de 2024, 07:41

Autor Tema:  Re: Necesito una mano  (Leído 885 veces)

Jorge López

  • Miembro MUY activo
  • ***
  • Mensajes: 118
    • Ver Perfil
Re: Necesito una mano
« en: Jueves 8 de Mayo de 2003, 17:37 »
0
Hola a todos..


mi caso es el siguiente:

 tengo info en un msflegrid que contiene.

   1.-nombre de archivo.
   2.- Ruta del archivo.


es decir este flex solo contiene info que viene de un file list...
perfecto, lo que quiero es validar lasfilas de este flex. quiero copiar estos archivoa a diferentes directorios, claro dependiendo el archivo, por ejemplo:

si en  flex hayinformacion de 5 archivos a,b,c,d,e, y su repectiva ruta y tengo 5 carpetas con los nombres ca,cb,cc,cd,ce.
como puedo hacer para copiar estos archivos, quiero que "a" se copie en "C:ca" y así sucesivamente.....

si me hechan una mano se los agradezco..



:ayuda::comp:
Un fracasado es un hombre que ha cometido un error pero que no es capaz de convertirlo en experiencia.

Majuhemo

  • Miembro activo
  • **
  • Mensajes: 85
    • Ver Perfil
Necesito una mano
« Respuesta #1 en: Viernes 9 de Mayo de 2003, 00:13 »
0
Hola:
he revisado y tendrias que hacerlo lo sgte.:

Dim i As Byte
Dim MyRuta As String
Dim FileSys As New FileSystemObject
' tienes que hacer referencia a "Microsoft Scripting Runtime"

MyRuta = "C:Archivos" ' ruta de los archivos origen.

'MSFlexGrid1 (columna 0): ej. "listado.xls"
' se supone que en el MSFlexGrid1 (columna 1) tienes la ruta hacia donde lo llevas.: ej. "C:Demo"

With MSFlexGrid1
    For i = 0 To .Rows - 1
        FileSys.CopyFile MyRuta & .TextMatrix(i, 0), .TextMatrix(i, 1)
    Next
End With

si deseas mas ayuda busca "FileSystemObject", hay varias cositas, como mover, crear archivos.

Saludos;


:good:
Ruben Delgado A.
rudela@msn.com
Lima-Peru