none
Script para apagar arquivos e subdiretorios e manter diretorios raiz RRS feed

  • Pergunta

  • E ae!

     

    Seguinte: tenho uma pasta publica no servidor, onde cada usuário mantem uma pasta com seu nome e coloca arquivos e pastas. Seria algo para ficar como temporario e liberado para todos na rede. Ex: X:\Publico\Fulano, X:\Publico\Ciclano, etc.

    Quero criar um script onde eu possa apagar td que há abaixo do nome de usuário, arquivos e diretorios, mas manter o X:\Publico\usuario.

     

    Como são muitos usuarios, fica complicado de criar um script por nome ou algo assim. Alguém tem um idéia?

     

    Valeu

     

    quarta-feira, 2 de fevereiro de 2011 11:47

Respostas

  • Diego, veja se isto te ajuda:

    Set Wshell = CreateObject("Wscript.Shell")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    
    set folder = fso.getfolder("c:\teste") 'Aqui voce insere o caminho da pasta raiz
    
    
    For each SUBfolder in folder.SUBFOLDERS
    
        deletetudo(SUBfolder.path)
    
      For each arquivo1 in SUBfolder.files
    	fso.deletefile arquivo1.path
      Next
    
    
    NEXT
    
    
    	Function deletetudo(Subpastas)
    
      	set NEWFOLDER = fso.getfolder(Subpastas)
          
      	  For each subfolder2 in NEWFOLDER.SUBFOLDERS 
    
            For each arquivo2 in subfolder2.files 
    		  fso.deletefile arquivo2.path
            Next 
    
              fso.deletefolder SUBfolder2.path
      	  NEXT
    
    
    
    	End Function

    Welington Lima - MCP - MCDST [ http://welingtonlima.spaces.live.com ]
    quarta-feira, 2 de fevereiro de 2011 16:37