none
Script borrado carpetas excepto una en concreto RRS feed

  • Pregunta

  • Buenos dias,

     

    Queria crear un script que me borrara la informacion de una carpeta excepto un directorio en concreto. Es decir tengo la extructura

     

    1. Compartir
      • IT
      • Pepe
      • (fichero Word)
      • ...

    Lo que quiero es que al ejecutarlo borre todo lo que contenga compartir (directorios y ficheros) excepto el directorio  IT (el contenido de IT no debe borrarlo).

     

    Tengo lo siguiente, pero lo que me hace es brorar todo el contenido de Compartir. Como puedo excluir el directorio en cuestion;

     

    Const DeleteReadOnly = TRUE

    Set objCompartir = CreateObject("Scripting.FileSystemObject")
    objCompartir.DeleteFile("D:\Compartir\*.*"), DeleteReadOnly
    objCompartir.DeleteFolder("D:\Compartir\*")

     

    Gracias y un saludo.

    martes, 10 de junio de 2008 8:13