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