SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jorge López en Jueves 8 de Mayo de 2003, 17:37

Título: Re: Necesito una mano
Publicado por: Jorge López en Jueves 8 de Mayo de 2003, 17:37

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:

Título: Necesito una mano
Publicado por: Majuhemo en Viernes 9 de Mayo de 2003, 00:13

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: