Tenho um script que é chamado através de um .BAT que faz a exclusão de arquivos com base em suas datas de modificações, ele exclui todos os arquivos que tem data de modificação anteriores a 30 dias. O comando que utilizo para chama-los é o seguinte:
C:\DelOldFiles_30dias\Deletar30DiasModificacao.vbs "H:\Audios FM - Archive"
onde H:\Audios FM - Archive é o caminho da pasta onde contem os arquivos a serem apagados e suas subpastas eu gostaria de passar mais um parâmetro para tornar este script mais dinamico e atender algumas necessidades da empresa passando também o número
de dias ao chamar o .VBS pelo .BAT. O comando seria o seguinte no .BAT:
Por exemplo:
C:\DelOldFiles_30dias\Deletar30DiasModificacao.vbs "H:\Audios FM - Archive" 30
Só não sei como recebo o número de dias no Script a seguir.
-----------------------------------------------------------------------------------------------------------------
Set oArgs = Wscript.Arguments
set FSo = CreateObject("Scripting.FileSystemObject")
Set strPasta = FSo.GetFolder(oArgs(0))
Set strDias = FSo.GetFolder(oArgs(1))
Apagar_Arquivos(strPasta, strDias)
Sub Apagar_Arquivos(Pasta, Dias)
set folder = FSO.getFolder (Pasta)
set ndias = FSO.getFolder (Dias)
on error resume next
'Verifica se tem subpastas
if folder.Subfolders.count > 0 then
for each SubFolder in folder.Subfolders
Apagar_Arquivos SubFolder
next
end if
for each file in folder.files
'30 é o número de dias que deve ser recebido por parametro e subistituido pelo vamor de ndias
if (dateDiff("d", file.DateLastModified, now) > 30) then
File.delete
end if
next
if folder.Subfolders.count = 0 and folder.files.count=0 and Folder.Path<>strPasta then
Folder.delete true
end if
end sub
-----------------------------------------------------------------------------------------------------------------
Desde já agradeço pela ajuda.
