Não excluir arquivo especifico

Todas as Respostas

• 

  

  0

  Entrar para Votar

  Boa Tarde,

  
  

  fiz um .vbs aqui.. Teste em um ambiente de teste e diga se funcionou...
  

  
  

  abs.. 

  
  

  
  

  strComputer = "."

  dim verifica

  verifica = ""

  arquivoprotegido = "NTDETECT.COM"

  
  

  
  

  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

  
  

  Set FileList = objWMIService.ExecQuery _

      ("ASSOCIATORS OF {Win32_Directory.Name='C:\'} Where " _

          & "ResultClass = CIM_DataFile")

  
  

  For Each objFile In FileList

  
  

  verifica = objFile.FileName & "." & objFile.Extension

  
  

  if verifica = "autorun.inf" then

  objFile.Delete

  end if

  
  

  If arquivoprotegido = verifica then

  
  

  'wscript.echo pula

  
  

  Else

      If objFile.Extension = "com" Then

  objFile.Delete

      End If

      If objFile.Extension = "bat" Then

  objFile.Delete

      End If

      If objFile.Extension = "exe" Then

  objFile.Delete

      End If

      If objFile.Extension = "cmc" Then

  objFile.Delete

      End If

  
  

      End If

  Next

  
  

  ---

  Eduardo Trombini MCTS - 2008 network infraestructure MCP - 2003

  quinta-feira, 30 de julho de 2009 20:11

  Responder

  |

  Citação
• 

  

  0

  Entrar para Votar

  Olá.
  Ele tá removendo o NTDETECT.COM.

  ---

  Fidelis

  quinta-feira, 30 de julho de 2009 20:26

  Responder

  |

  Citação
• 

  

  0

  Entrar para Votar

  Olá,
  
  Faça os testes no script abaixo:
  
  
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  
  'Coloque aqui a pasta que será verificada
  strPasta = "C:\"
  
  'Coloque aqui os tipos de arquivos que serão copiados ou deletados, separados por ";"
  arrTipos = "bat;com;exe;cmd"
  arrTipos = split(arrTipos,";")
  
  strExcluido = "ntdetect.com"
  
  Set colFiles = objWMIService.ExecQuery _
      ("ASSOCIATORS OF {Win32_Directory.Name='" &strPasta& "'} Where " _
          & "ResultClass = CIM_DataFile")
  
  For Each objFile in colFiles
    For Each tipo in arrTipos
     If objFile.Extension = tipo Then
        if  MID(UCASE(objFile.Name),4,Len(objFile.Name)) <> UCASE(strExcluido) Then
           objFile.Delete
       End if
     End If
   Next
  Next
  
  
  
  Até mais,
  
  Jesiel
  
  Obs.: Se útil, classifique
  
  

  quinta-feira, 30 de julho de 2009 21:08

  Responder

  |

  Citação
• 

  

  0

  Entrar para Votar

  Segue um vbs que esta funcionando, porem testei em um outro diretorio e nao no C:\ raiz. É só definir o diretorio na variavel sDirPath
  
  --------------------------------------------------------------------------------------------------
  
  Option Explicit
  on error resume next
  Dim sDirPath

  'Mudar diretorio conforme necessidade
  'Pode-se colocar caminhos UNC \\Server\Share
  ' Abaixo foi colocado no C:\ mas pode ser usado em qualquer pasta como raiz - > c:\temp

  sDirPath = "C:\"

  Dim oFSO
  Dim oFolder
  Dim oFileCollection
  Dim oFile
  Dim oFolderCollection

  Set oFSO = CreateObject("Scripting.FileSystemObject")
  set oFolder = oFSO.GetFolder(sDirPath)
  set oFileCollection = oFolder.Files

  For each oFile in oFileCollection
  WScript.Echo oFile.Name
   If oFile.Name = "NTDETECT.COM" Then
   ' WScript.echo "pula"
   Else
    Select Case Right(oFile.Name, 3)
     Case "com"
       oFile.Delete(True)
     Case "bat"
      oFile.Delete(True)
     Case "exe"
      oFile.Delete(True)
     Case "cmc"
      oFile.Delete(True)
    End Select
   End If

  Next

  Set oFSO = Nothing
  Set oFolder = Nothing
  Set oFileCollection = Nothing
  Set oFile = Nothing
  set oFolderCollection = Nothing
  set oSubFolder = Nothing

  • Marcado como Resposta Fábio JrModerator quarta-feira, 30 de maio de 2012 13:35

  terça-feira, 11 de agosto de 2009 17:36

  Responder

  |

  Citação