none
Ajuda com esse script - Renomear arquivos com determinadas extensões RRS feed

  • Pergunta

  • Estou tentando fazer um script que copie e renomeie arquivos só com a extensão .RTF, mas na hora de executar o script dentro da pasta ele acaba renomeando todos os arquivos da pasta, inclusive o próprio script. Gostaria de saber como faço só para copiar e renomear arquivos de uma determinada extensão, neste caso arquivos da extensão "*.rtf" para "PUB.101" (esse 101 será uma extensão crescente= *.101; *.102; *.103;... e assim por diante de acordo com o número de arquivos existentes na pasta).

    'Inicio do código
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'Coloque aqui a pasta que será verificada
     strPasta = ".\"
    
    on error resume next
    	If (objFSO.FolderExists(strPasta) = True) Then
    		
    	Set Folder = ObjFSO.GetFolder(strPasta)
    	Set MyFiles = Folder.files
    	count = 100
    			For Each MyFiles in Folder.Files
    			count = count + 1
    			
    				if Left(myfiles.name,5) <> "*.RTF" and right(myfiles.name,4) <> "*.RTF" then
    				
    							
    					objFSO.MoveFile strPasta &"\"& myfiles.name,strPasta &"\"& "PUB." & count
    						
    				end if	
    						
    							
    			Next
    	
    	Else
    		MsgBox "Pasta de arquivos inexistente",64
    	End if
    wscript.quit


    sábado, 28 de outubro de 2017 20:40