none
Borrar archivos de una carpeta en red de forma AUTOMATICA RRS feed

  • Pregunta

  • Buen día a todos, actualmente tengo un pequeño programa que me ayuda a borrar los archivos de una carpeta en red, sin embargo para esto me pide confirmar la accion de borrarlos y no quiero eso.

    Quiero aplicarlo en mi empresa para no juntar demasiados archivos inutiles, quiero ejecutarlo a traves de task manager para que cada mes borre los archivos del mes anterior SIN PREGUNTARME SI DE VERDAD LO QUIERO HACER O NO.

    Agradezco mucho su apoyo, saludos.

    viernes, 21 de junio de 2019 15:23

Todas las respuestas

  • Hola! 

    muy sencillo utilizando el FileSystemObject de Visual Script

    Sub BorrarArchivos(strCarpeta As String)
    Dim Archivo As Object, _
        Carpeta As Object, _
        fso As Object
    
    On Error GoTo TratamientoErrores
    
    If MsgBox("Se van a borrar todos los archivos de la carpeta """ & strCarpeta & """", vbYesNo + vbQuestion, "Atenci?n") = vbYes Then
       Set fso = CreateObject("Scripting.FileSystemObject")
       Set Carpeta = fso.GetFolder(strCarpeta)
       For Each Archivo In Carpeta.Files
          Archivo.Delete
       Next Archivo
    End If
    
    Salir:
       On Error GoTo 0
       If Not fso Is Nothing Then Set fso = Nothing
       On Error Resume Next
       Exit Sub
       
    TratamientoErrores:
       MsgBox "Error " & Err & ": " & Err.Description & vbNewLine & Switch(Erl = 0, vbNullString, Not Erl = 0, "En linea: " & Erl) & ", del procedimiento: BorrarArchivos, del M?dulo: " & Application.VBE.ActiveCodePane.CodeModule.Name, vbCritical + vbOKOnly
       Resume Salir
    Resume Next
    End Sub


    Saludos a todos desde Huelva Emilio http://www.mvp-access.es/emilio/

    viernes, 21 de junio de 2019 18:53