elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  No co sigo copiar una subcarpeta a otro destino. Help.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: No co sigo copiar una subcarpeta a otro destino. Help.  (Leído 1,358 veces)
jarpon

Desconectado Desconectado

Mensajes: 28


Ver Perfil
No co sigo copiar una subcarpeta a otro destino. Help.
« en: 24 Septiembre 2023, 12:59 pm »

    Dim fso, sfolder, ofolder, oSubFolders
    Set fso = CreateObject ("Scripting.FileSystemObject")

    If fso.FolderExists(Root) Then

        Set ofolder = fso.GetFolder(Root)
        Set oSubFolders = ofolder.SubFolders
  Set sfolder = Nothing
'ESAHMI.ESAMSGBOX Root
'ESAHMI.ESAMSGBOX CStr(ofolder)
ESAHMI.ESAMSGBOX ofolder
'ESAHMI.ESAMSGBOX oSubFolders
       On Error Resume Next
       Err.clear

'        For Each folder in fso.GetFolder(Root).SubFolders
        For Each sfolder in oSubFolders
           If Err.Number <> 0 Then
            ESAHMI.ESAMSGBOX Err.Number
               Exit For 'If no permission or no subfolder in folder
         End If
           On Error goto 0
ESAHMI.ESAMSGBOX sfolder
ESAHMI.ESAMSGBOX oSubFolders
            createdDate = FormatDateTime(sfolder.DateCreated, "2")         'Getting folder date 2 = vbShortDate - Returns date: mm/dd/yyyy
            If (DateDiff("d", createdDate, Date) > MaxAgeInDays) Then
            fso.GetFolder(sfolder).Copy sCustomerPicturesPath
                fso.DeleteFolder sfolder, True
            End If
        Next


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Copiar Fotogramas de un Flash a otro.
Diseño Gráfico
Nasch_pino 6 5,492 Último mensaje 4 Marzo 2005, 03:19 am
por Azielito
problema para copiar un DVD a otro DVD
Software
frodopepa 0 2,265 Último mensaje 3 Enero 2006, 17:25 pm
por frodopepa
Redirigir tráfico con destino puerto 80 al router hacia otro puerto de localhost
Redes
Kaxperday 7 9,917 Último mensaje 19 Septiembre 2015, 19:26 pm
por Kaxperday
Copiar numeros de un vector a otro (iniciando con C++)
Programación C/C++
rafaelfinacut10 2 4,346 Último mensaje 7 Febrero 2018, 15:19 pm
por dijsktra
Copiar el texto de un archivo y pegarlo en otro.
GNU/Linux
mario290386 0 4,788 Último mensaje 25 Agosto 2018, 15:34 pm
por mario290386
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines