Skip to main content
se eliminaron 7 caracteres en el cuerpo
Origen Enlace
A. Cedano
  • 95.2k
  • 31
  • 145
  • 257
Function copiarPorExtension(arrOrigenes(), sFolderDestino, sExtension)For i=0 to ubound(arrOrigenes)For Each sFile In oFSO.GetFolder(arrOrigenes(i)).FilesIf LCase(oFSO.GetExtensionName(sFile)) = sExtension ThenIf Not oFSO.FileExists(sFolderDestino & "\" & oFSO.GetFileName(sFile)) ThenoFSO.GetFile(sFile).Copy sFolderDestino & "\" & oFSO.GetFileName(sFile),TrueEnd IfEnd IfNextNextEnd Function
Function copiarPorExtension(arrOrigenes(), sFolderDestino, sExtension)
   For i=0 to ubound(arrOrigenes)
      For Each sFile In oFSO.GetFolder(arrOrigenes(i)).Files
         If LCase(oFSO.GetExtensionName(sFile)) = sExtension Then
            If Not oFSO.FileExists(sFolderDestino & "\" &  oFSO.GetFileName(sFile)) Then
               oFSO.GetFile(sFile).Copy sFolderDestino & "\" & oFSO.GetFileName(sFile),True
            End If  
         End If
       Next
   Next
End Function
Function copiarPorExtension(arrOrigenes(), sFolderDestino, sExtension)For i=0 to ubound(arrOrigenes)For Each sFile In oFSO.GetFolder(arrOrigenes(i)).FilesIf LCase(oFSO.GetExtensionName(sFile)) = sExtension ThenIf Not oFSO.FileExists(sFolderDestino & "\" & oFSO.GetFileName(sFile)) ThenoFSO.GetFile(sFile).Copy sFolderDestino & "\" & oFSO.GetFileName(sFile),TrueEnd IfEnd IfNextNextEnd Function
Function copiarPorExtension(arrOrigenes(), sFolderDestino, sExtension)
   For i=0 to ubound(arrOrigenes)
      For Each sFile In oFSO.GetFolder(arrOrigenes(i)).Files
         If LCase(oFSO.GetExtensionName(sFile)) = sExtension Then
            If Not oFSO.FileExists(sFolderDestino & "\" &  oFSO.GetFileName(sFile)) Then
               oFSO.GetFile(sFile).Copy sFolderDestino & "\" & oFSO.GetFileName(sFile),True
            End If  
         End If
       Next
   Next
End Function
se añadieron 114 caracteres en el cuerpo
Origen Enlace
A. Cedano
  • 95.2k
  • 31
  • 145
  • 257
Dim arrFoldersOrigen
arrFoldersOrigen = Array ("LaRutadelFolder1","LaRutadelFolder2","LaRutadelFolder3")
i=0
 
Function copiarPorExtension(arrOrigenes(), sFolderDestino, sExtension)
   
   For i=0 to ubound(arrOrigenes)
      For Each sFile In oFSO.GetFolder(arrOrigenes(i)).Files
         If LCase(oFSO.GetExtensionName(sFile)) = sExtension Then
            If Not oFSO.FileExists(sFolderDestino & "\" &  oFSO.GetFileName(sFile)) Then
               oFSO.GetFile(sFile).Copy sFolderDestino & "\" & oFSO.GetFileName(sFile),True
            End If  
         End If
       Next
   Next
End Function

Para llamar la función:

Call copiarPorExtension(arrFoldersOrigen, sDestino, sExtension)


Function copiarPorExtension(arrOrigenes(), sFolderDestino, sExtension)For i=0 to ubound(arrOrigenes)For Each sFile In oFSO.GetFolder(arrOrigenes(i)).FilesIf LCase(oFSO.GetExtensionName(sFile)) = sExtension ThenIf Not oFSO.FileExists(sFolderDestino & "\" & oFSO.GetFileName(sFile)) ThenoFSO.GetFile(sFile).Copy sFolderDestino & "\" & oFSO.GetFileName(sFile),TrueEnd IfEnd IfNextNextEnd Function
Dim arrFoldersOrigen
arrFoldersOrigen = Array ("LaRutadelFolder1","LaRutadelFolder2","LaRutadelFolder3")
i=0
 
Function copiarPorExtension(arrOrigenes(), sFolderDestino, sExtension)
   
   For i=0 to ubound(arrOrigenes)
      For Each sFile In oFSO.GetFolder(arrOrigenes(i)).Files
         If LCase(oFSO.GetExtensionName(sFile)) = sExtension Then
            If Not oFSO.FileExists(sFolderDestino & "\" &  oFSO.GetFileName(sFile)) Then
               oFSO.GetFile(sFile).Copy sFolderDestino & "\" & oFSO.GetFileName(sFile),True
            End If  
         End If
       Next
   Next
End Function
Dim arrFoldersOrigen
arrFoldersOrigen = Array ("LaRutadelFolder1","LaRutadelFolder2","LaRutadelFolder3")
i=0

Para llamar la función:

Call copiarPorExtension(arrFoldersOrigen, sDestino, sExtension)


Function copiarPorExtension(arrOrigenes(), sFolderDestino, sExtension)For i=0 to ubound(arrOrigenes)For Each sFile In oFSO.GetFolder(arrOrigenes(i)).FilesIf LCase(oFSO.GetExtensionName(sFile)) = sExtension ThenIf Not oFSO.FileExists(sFolderDestino & "\" & oFSO.GetFileName(sFile)) ThenoFSO.GetFile(sFile).Copy sFolderDestino & "\" & oFSO.GetFileName(sFile),TrueEnd IfEnd IfNextNextEnd Function
se añadieron 1669 caracteres en el cuerpo
Origen Enlace
A. Cedano
  • 95.2k
  • 31
  • 145
  • 257

Si son varios directorios de origen Se crea un array con los nombres de los directorios y se pasa como parámetro. Nótese que la función copiarPorExtension () quedaría modificada, ya que recibirá como primer parámetro un array, en lugar de una cadena, por eso el primer parámetro se llama ahora arrOrigenes() donde las () indican que se trata de un array.

Luego, tendrá otro bucle for donde irá leyendo las diferentes carpetas de origen que recibió en parámetro, donde arrOrigenes(i)irá tomando la ruta de los folders existentes en el array (LaRutadelFolder1, LaRutadelFolder2, etc).

Nota: Aquí solo modifico el valor de arrFoldersOrigen, los demás valores se declararían tal y como aparece más arriba.

Dim arrFoldersOrigen
arrFoldersOrigen = Array ("LaRutadelFolder1","LaRutadelFolder2","LaRutadelFolder3")
i=0

Function copiarPorExtension(arrOrigenes(), sFolderDestino, sExtension)
   
   For i=0 to ubound(arrOrigenes)
      For Each sFile In oFSO.GetFolder(arrOrigenes(i)).Files
         If LCase(oFSO.GetExtensionName(sFile)) = sExtension Then
            If Not oFSO.FileExists(sFolderDestino & "\" &  oFSO.GetFileName(sFile)) Then
               oFSO.GetFile(sFile).Copy sFolderDestino & "\" & oFSO.GetFileName(sFile),True
            End If  
         End If
       Next
   Next
End Function

Como detalle y aclaración: Lo mismo se podría hacer si se desea pasar varias extensiones, se crea un array de extensiones y se le pasa a la función. Entonces habría que crear otro bucle for dentro de cada folder para que busque las extensiones pasadas en el array.

Si son varios directorios de origen Se crea un array con los nombres de los directorios y se pasa como parámetro. Nótese que la función copiarPorExtension () quedaría modificada, ya que recibirá como primer parámetro un array, en lugar de una cadena, por eso el primer parámetro se llama ahora arrOrigenes() donde las () indican que se trata de un array.

Luego, tendrá otro bucle for donde irá leyendo las diferentes carpetas de origen que recibió en parámetro, donde arrOrigenes(i)irá tomando la ruta de los folders existentes en el array (LaRutadelFolder1, LaRutadelFolder2, etc).

Nota: Aquí solo modifico el valor de arrFoldersOrigen, los demás valores se declararían tal y como aparece más arriba.

Dim arrFoldersOrigen
arrFoldersOrigen = Array ("LaRutadelFolder1","LaRutadelFolder2","LaRutadelFolder3")
i=0

Function copiarPorExtension(arrOrigenes(), sFolderDestino, sExtension)
   
   For i=0 to ubound(arrOrigenes)
      For Each sFile In oFSO.GetFolder(arrOrigenes(i)).Files
         If LCase(oFSO.GetExtensionName(sFile)) = sExtension Then
            If Not oFSO.FileExists(sFolderDestino & "\" &  oFSO.GetFileName(sFile)) Then
               oFSO.GetFile(sFile).Copy sFolderDestino & "\" & oFSO.GetFileName(sFile),True
            End If  
         End If
       Next
   Next
End Function

Como detalle y aclaración: Lo mismo se podría hacer si se desea pasar varias extensiones, se crea un array de extensiones y se le pasa a la función. Entonces habría que crear otro bucle for dentro de cada folder para que busque las extensiones pasadas en el array.

Origen Enlace
A. Cedano
  • 95.2k
  • 31
  • 145
  • 257
Loading