none
Arquivo VBS para deletar RRS feed

  • Pergunta

  • Prezados;

    Há algum comando VBS para deletar arquivos de uma pasta sem afetar uma subpasta no mesmo local.

    Exemplo:

    Dentro do C:\TEMP, existem 50 arquivos com extensão .TIF

    No C:\TEMP\1, tenho mais 200 arquivos com extensão .TIF

    Gostaria de deletar somente os 50 e deixar os 200 como estão. Irei usar em rede o comando assim sendo creio que basta mudar as unidades.
    terça-feira, 27 de outubro de 2009 18:12

Respostas

  • Olá,

    Verifique o script abaixo:



    Const DeleteReadOnly = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.DeleteFile("C:\teste\*.*"), DeleteReadOnly



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    terça-feira, 27 de outubro de 2009 19:11

Todas as Respostas

  • Viregino,


                 Você pode utilizar o comando abaixo em bat.


    Del C:\TEMP *.TIF /F /Q




    Espero ter ajudado.
    Se útil, classifique.
    Leonardo Sousa
    terça-feira, 27 de outubro de 2009 18:27
  • Viregino,


                 Você pode utilizar o comando abaixo em bat.


    Del C:\TEMP *.TIF /F /Q




    Espero ter ajudado.
    Se útil, classifique.
    Leonardo Sousa
    terça-feira, 27 de outubro de 2009 18:27
  • Leo;

    Até ajudou, mas como o usuário não tem tanto conhecimento em BAT, melhor seria o VBS com um simples.
    terça-feira, 27 de outubro de 2009 18:35
  • Olá,

    Verifique o script abaixo:



    Const DeleteReadOnly = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.DeleteFile("C:\teste\*.*"), DeleteReadOnly



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    terça-feira, 27 de outubro de 2009 19:11
  • Jessiel


    Muito útil. Obrigado.
    terça-feira, 27 de outubro de 2009 19:33
  • Olá,

    Funcionou?

    Se sim, favor classificar as respostas úteis para finalizarmos o thread.


    Até mais,

    Jesiel
    terça-feira, 27 de outubro de 2009 19:53
  • Olá,

    Verifique o script abaixo:



    Const DeleteReadOnly = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.DeleteFile("C:\teste\*.*"), DeleteReadOnly



    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    Jesiel, se no caso quisesse usar esse seu código mais deletando por extensão teria como ? se a resposta for sim, como ficaria o código? Desde já agradeço.

    sábado, 29 de janeiro de 2011 14:02