none
Script VBS para copiar determinadas pastas RRS feed

  • Pergunta

  • Pessoal,

    Boa tarde. Estou com a seguinte dúvida: preciso copiar várias subpastas de uma determinada pasta da rede, mas existem duas subpastas que não quero que sejam copiadas.

    Ex:

    no endereço \\servidor existe uma pasta chamada "Arquivos" e dentro da mesma exitem as pastas "P1", "P2", "P3", "P4", "P5",...,  "P30". Quero copiar todas menos as pastas "P7" e "P18".

     

    Como posso fazer isso?

     

    Criei um script que já copia tudo, sem exceção

     

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    set WshShell = CreateObject("WScript.Shell")

    dNow = Now
    yy = Right(Year(dNow), 4)
    mt = Right("00" &Month(dNow), 2)
    dd = Right("00" &Day(dNow), 2)
    hh = Right("00" &Hour(dNow), 2)
    nn = Right("00" &Minute(dNow), 2)
    ss = Right("00" &Second(dNow), 2)

    'Verifica se a pasta existe, caso nao, cria
     If objFSO.FolderExists("C:\Backup_Fonts_Smart") Then
      echo ""
     Else
      Set objFolder = objFSO.CreateFolder("C:\Backup_Fonts_Smart")
     End IF


    Diario = "C:\Backup_Fonts_Smart\" & "Fonts_Smart_" &yy &mt &dd & "_" &hh &nn &ss & "\"
    objFSO.CreateFolder (Diario)

    Smart = Diario & "Smart\"
    objFSO.CreateFolder (Smart)

    'Copia pastas do Server para local
     objFSO.CopyFolder "F:\Smart\Aplic3" , Smart
     objFSO.CopyFolder "F:\Smart\Aplic4" , Smart
     objFSO.CopyFolder "F:\Smart\Aplic4(v2)" , Smart

    segunda-feira, 27 de setembro de 2010 16:52

Todas as Respostas

  • Pelo que vi as pastas tem um padrão de nome ( P + número). Faça um FOR concatenando o nome com o numero e tratando as excessões:

    Exemplo:

    for i = 1 to 30 ' 30 é sua ultima pasta
    	if i<>7 and i<>18 then objFSO.CopyFolder "\\servidor\arquivos\P" & i , "c:\sua pasta de destino"
    next
    

    Fábio de Paula Junior
    terça-feira, 28 de setembro de 2010 12:32
    Moderador
  • Fabio,

    Desculpa, acho que meu exemplo não foi muito claro. As pastas na verdade não possuem padrão. Ela também não são numeradas. Apenas coloquei como exemplo para que entendessem que são muitas subpastas dentro de uma pasta principal. As pastas tem nomes como Util, Programas, Usuarios entre outros nomes. Mesmo assim, obrigado pela diga.

    terça-feira, 28 de setembro de 2010 12:51