Caros eu tenho um servidor de TS, onde o pessoal acessa o erp da empresa nele .Pois estao em outra unidade da empresa .
Dentro da pasta onde fica instalado o programa tem as sub pastas que tem os modulos do programa .
Ex: CorporeRM\RM Fluxus
Dentro dessas sub pastas que contem os modulos , são criadas algumas pastas TMP . No caso essas pastas TMP é criada pq quando o usuario loga no TS ele cria essa pasta temporaria .
O que eu preciso é um script que eu possa apagar essas pastas TMP , pois elas nao sao apagadas e sim ficam acumuladas no servidor .
Alguem tem como me falar .___________________
Diego Nogueira
diego.nc@hotmail.com
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("SELECT * FROM CIM_DataFile WHERE Extension =\\c:corporeRM\RM FLUXUS 'tmp'") For Each objFile in colFiles objFile.Delete Next
Seria desse jeito que ficaria ? Agora o que eu tenho é varios modulos . Entao eu tenho dez sub pastas da pasta principal que é Corpore RM ex: C: corpore RM\ RM FLUXUS c: CORPORE RM \ RM NUCLEUS .
EU TENHP DEZ SUB PASTAS NESSA ESTRUTURA . COMO FAÇO PARA APAGAR TODAS ? ___________________
Diego Nogueira
diego.nc@hotmail.com
Set objArq = ObjFSO.GetFolder(strCaminho) Set MyFiles = objArq.files
For Each MyFiles in objArq.Files strFileOrig = Myfiles.path objLogFile.WriteLine "ARQUIVO DELETADO : " & myfiles.path & " deletado em : " & Now objFSO.deletefile Myfiles.path Next End sub
se colocar assim??funcionam ???? pois ai acho que vou apagar todos os tmps da maquina ? corro algum risco se eu apagar todos os tmps da maquina ? ou nao ? pois é arquivo temporario .??
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("SELECT * FROM CIM_DataFile WHERE Extension ='tmp'") For Each objFile in colFiles objFile.Delete Next___________________
Diego Nogueira
diego.nc@hotmail.com
on error resume next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("SELECT * FROM CIM_DataFile WHERE Extension ='tmp'") For Each objFile in colFiles objFile.Delete Next
seria assim o script ? agora o que vc passou seria so paa gerenciar logs ???
___________________
Diego Nogueira
diego.nc@hotmail.com
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objLogFile = objFSO.OpenTextFile("log.txt", 8, True, 0)
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("SELECT * FROM CIM_DataFile WHERE Extension ='tmp'") For Each objFile in colFiles objLogFile.WriteLine "ARQUIVO DELETADO : " & objFile.path & " deletado em : " & Now objFile.delete Next
Cara eu vi que gerou o relatorio e tudo de log . so que isso apaga arquivo e nao pasta ... igual comentei no topoico sao pastas com EXTENSAO TMP ......
se eu alterar isso ("SELECT * FROM CIM_DataFile WHERE Extension ='tmp'")
para isso ("SELECT * FROM CIM_folders WHERE Extension ='tmp'")
funcionaria ? pq kero apagar somente as pastas . ___________________
Diego Nogueira
diego.nc@hotmail.com
Não recomendo você utilizar o script para remover a pasta tmp.
Os arquivos tudo bem, você pode remover os temporários... Agora apagar as pastas, não é uma boa não.
Utilize o script abaixo, para fazer isso com as pastas dentro do seu diretório "c:\corporeRM\RM FLUXUS"
Set objNetwork = CreateObject("Wscript.Network") strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set objFSO = CreateObject("Scripting.FileSystemObject")
'Coloque aqui a pasta que será verificada strPasta = "c:\corporeRM\RM FLUXUS\"
' NOME DO ARQUIVO DE LOG strLogFile = "log.txt"
Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0) objLogFile.WriteLine VBCRLF objLogFile.WriteLine "===================================================" objLogFile.WriteLine "PASTAS DELETADAS EM: " & now objLogFile.WriteLine "==================================================="
ChecaArquivo strPasta
wscript.echo "FIM DO SCRIPT" wscript.quit
Sub ChecaArquivo(strSubPasta)
Set Folder = ObjFSO.GetFolder(strSubPasta)
For each subFolder in Folder.SubFolders ChecaArquivo SubFolder.path if SubFolder.name = "TMP" Then objLogFile.WriteLine "PASTA DELETADA : " & subFolder.path & " deletado em : " & Now objFSO.deletefolder(SubFolder.Path) End if Next
Jesiel , dentro da estrutura C:\\CorporeRM\Rm fluxus
eu possuo varios outros arquivos de instalação de log , arquivos exe , bde , que nao pode ser apagados ... eu preciso somente apagar essas pastas tmp entendeu ? Pq essas pastas sao geradas qdoo o usuario finaliza a seção dele .... ai eu queria esse script para rodar ele como tarefa agendada todo dia as 00hrs ...por isso a minha necessidade ....
se utilizar esse ai ele vai apagar todo cotenudo dentro da pasta C;\CorporeRM\rm Fluxus ? Ou posso utilizar que esta tranquilo ?
___________________
Diego Nogueira
diego.nc@hotmail.com
on error resume next Set objNetwork = CreateObject("Wscript.Network") strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set objFSO = CreateObject("Scripting.FileSystemObject")
'Coloque aqui a pasta que será verificada strPasta = "c:\corporeRM\RM FLUXUS\"
' NOME DO ARQUIVO DE LOG strLogFile = "log.txt"
Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0) objLogFile.WriteLine VBCRLF objLogFile.WriteLine "===================================================" objLogFile.WriteLine "PASTAS DELETADAS EM: " & now objLogFile.WriteLine "==================================================="
Set Folder = ObjFSO.GetFolder(strPasta)
For each subFolder in Folder.SubFolders if instr(SubFolder.name,".tmp") > 0 Then objLogFile.WriteLine "PASTA DELETADA : " & subFolder.path & " deletado em : " & Now objFSO.deletefolder(SubFolder.Path) End if Next
