none
Defender blockiert shell .. .CopyHere

    Frage

  • Hallo,

    seit einigen Wochen wird bei aktivem Defender (Viren- & Bedrohungsschutz - Echtzeitschutz EIN) das Ausführen von .CopyHere erheblich blockiert. Je nach Dateigröße dauert das auch schon mal 20-30sec.

    System: Win10 Pro 64Bit, 1803

    Wie kann da abhilfe geschaffen werden.

    Gruß

    rawa

    Hier der Beispielcode (VBA):

    Sub TestZIP()
      Dim objShell As Object
      Dim sSFile As Variant
      Dim sDFile As Variant
      Dim dTime As Double

      sDFile = ThisWorkbook.Path & "\"
      sSFile = ThisWorkbook.Path & "\Test2.xlsx.zip\docProps"
     
      Set objShell = CreateObject("Shell.Application")
     
      dTime = Timer
     
      Call objShell.Namespace(sDFile).CopyHere(objShell.Namespace(sSFile).Items)
      Debug.Print Timer - dTime
     
      Call Kill(sDFile & "core.xml")
      Call Kill(sDFile & "app.xml")

    ' Times Defender activ
    ' 9,56640625
    ' 3,056640625
    ' 5,0546875
    ' 3,8984375
    ' 5,14453125
    ' 4,76953125
     
    ' Times Defender deactivate
    ' 0,3515625
    ' 0,376953125
    ' 0,35546875
    ' 0,3828125
    ' 0,38671875
    ' 0,416015625
    End Sub
    Freitag, 12. Oktober 2018 05:18