none
Apagar Pasta RRS feed

  • Pergunta

  •  

    Pessoal

     

    Preciso de um Help !

     

     

    Dentro de uma determinada pasta (exemplo: CENTRO) é criada todos os dias em média 20 pastas com nome de usuários.

    Dentro da pasta USUARIO é criado em média 6 pasta que se diferencia por números de ordem crescente.

    Exemplo do diretório:

    #CENTRO

          #USUARIO1

                 #1003

                 #1004

                 #1005

          #USUARIO2

                 #30005

                 #30006

                 #30007

     

    Preciso de um script que apague somente a primeira pasta de cada usuário por dia, no caso do usuário1 a pasta 1003 seria apagada. tem como fazer isso?

     

    Obrigado.

     

    quarta-feira, 24 de dezembro de 2008 04:02

Respostas

  • Olá,

     

    Segue o script abaixo:

     

    strComputer = "localhost"
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colSubfolders = objWMIService.ExecQuery _
        ("Associators of {Win32_Directory.Name='c:\centro'} " _
            & "Where AssocClass = Win32_Subdirectory " _
                & "ResultRole = PartComponent")

    For Each objFolder in colSubfolders

     Set colSubfolders2 = objWMIService.ExecQuery _
        ("Associators of {Win32_Directory.Name='" & objFolder.Name & "'} " _
            & "Where AssocClass = Win32_Subdirectory " _
                & "ResultRole = PartComponent")


     For Each objFolder2 in colSubfolders2
       Wscript.Echo objFolder2.Name
       objFolder2.Delete
      Exit For
     Next
      
    Next

     

     

    Altere o caminho da pasta "c:\centro" E faça os testes.

     

    Feliz Natal,

     

    Jesiel

     

    Obs.: Se útil, classifique

     

    quarta-feira, 24 de dezembro de 2008 13:28

Todas as Respostas

  • Olá,

     

    Segue o script abaixo:

     

    strComputer = "localhost"
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colSubfolders = objWMIService.ExecQuery _
        ("Associators of {Win32_Directory.Name='c:\centro'} " _
            & "Where AssocClass = Win32_Subdirectory " _
                & "ResultRole = PartComponent")

    For Each objFolder in colSubfolders

     Set colSubfolders2 = objWMIService.ExecQuery _
        ("Associators of {Win32_Directory.Name='" & objFolder.Name & "'} " _
            & "Where AssocClass = Win32_Subdirectory " _
                & "ResultRole = PartComponent")


     For Each objFolder2 in colSubfolders2
       Wscript.Echo objFolder2.Name
       objFolder2.Delete
      Exit For
     Next
      
    Next

     

     

    Altere o caminho da pasta "c:\centro" E faça os testes.

     

    Feliz Natal,

     

    Jesiel

     

    Obs.: Se útil, classifique

     

    quarta-feira, 24 de dezembro de 2008 13:28
  •  

    Valeu !!

     

    Feliz Natal

    quarta-feira, 24 de dezembro de 2008 15:40