Jump to content
muyayito

Error en tiempo de ejecución 70: permiso denegado

Recommended Posts

Buenas foro. Una macro que me ha funcionado siempre y que ahora me da este fallo.

Me movia de unas subcarpetas todos los archivos con extension txt y me los copiaba a una carpeta de destino.

Sub MoverFicheros()
Dim ruta, Destino As String
Dim fs, Carpeta, Archivo, SubCarpeta As Object
ruta = "C:\Registros\"
Destino = "C:\Users\titi\Desktop\Pen Drive"
Set fs = CreateObject("scripting.FileSystemObject")
Set Carpeta = fs.GetFolder(ruta)
For Each Archivo In Carpeta.Files
  If LCase(Right(Archivo, 4)) = ".txt" Then
    fs.copyfile Archivo, Destino
  End If
Next
For Each SubCarpeta In Carpeta.subfolders
  For Each Archivo In SubCarpeta.Files
    If LCase(Right(Archivo, 4)) = ".bif" Then
      fs.copyfile Archivo, Destino
    End If
  Next
Next

 

Mover Ficheros.xlsm

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy