Pequeña aplicación escrita en Autoit3 que lee las preferencias de compresión de un fichero ini y comprime con ayuda de la aplicación gratuita 7zip los ficheros con la extensión que se especifique en el fichero ini y deja el archivo comprimido en otro directorio también especificado en el ini.

Fichero Comprime_log.ini :

CLIC PARA VER TEXTO PLANO
C:
  1. [General]
  2. DirectorioOrigen=L:\
  3. ExtensionFicheros=*.tmp
  4. DirectorioDestino=L:\logs_anteriores\

Código:

CLIC PARA VER TEXTO PLANO
C:
  1. ;******************************************************************************
  2. ; Este script de autoit3 comprime los ficheros en un zip con extension log del
  3. ; directorio donde se ejecuta y lo mueve al directorio ./logs_anteriores
  4. ;******************************************************************************
  5. #AutoIt3Wrapper_Res_Comment= Comprime y mueve los ficheros logs del directorio donde se ejecuta
  6. #AutoIt3Wrapper_Res_Description=Comprime logs según archivo ini    ;Description field
  7. #AutoIt3Wrapper_Res_Fileversion=1.1.0.0                                     ;File Version
  8. #AutoIt3Wrapper_Res_LegalCopyright= David Suárez                        ;Copyright field
  9. #AutoIt3Wrapper_Icon = Comprime_log.ico        ;Icon
  10. #AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%                        ;Version Compilador AutoIt
  11. #AutoIt3Wrapper_Res_Field=Fecha|%date% %time%         
  12.  
  13.  
  14. $DirectorioOrigen = IniRead(@ScriptDir & "\Comprime_log.ini", "General", "DirectorioOrigen", "Valor de DirectorioOrigen no encontrado en ini")
  15. $Tipofichero= IniRead(@ScriptDir & "\Comprime_log.ini", "General", "ExtensionFicheros", "Valor de tipo de fichero no encontrado en ini")
  16. $DirectorioDestino = IniRead(@ScriptDir & "\Comprime_log.ini", "General", "DirectorioDestino", "Valor de DirectorioDestino no encontrado en ini")
  17. DirCreate ($DirectorioDestino)
  18.  
  19. $Directorio= @ScriptDir & "\logs_anteriores"
  20. $ArchivoComprimido="logs_" & @mday & "-" & @MON & "-" & @YEAR & "_" & @HOUR & "." & @MIN & "." &  @SEC & ".zip"
  21. $AppBinFile = @ScriptDir & "\7z.exe"
  22. $archivo_comando=@ScriptDir & "\logs.cmd"
  23.  
  24. $Origen= $DirectorioOrigen & $ArchivoComprimido
  25.  
  26. $Destino= $DirectorioDestino & $ArchivoComprimido
  27.  
  28.  
  29. ;preparo el fichero de comandos para ejecutar
  30. if FileExists($archivo_comando) Then FileDelete($archivo_comando)
  31. FileOpen($archivo_comando, 2 )
  32. FileWriteLine($archivo_comando,$AppBinFile & " a -tzip " & $ArchivoComprimido & " " & @ScriptDir & "\" & $Tipofichero )
  33. FileWriteLine($archivo_comando,"exit" )
  34. FileClose($archivo_comando)
  36. Sleep(5000)
  37. ;ejecuto el fichero de comando
  38. RunWait (@ComSpec & ' /k ' & $archivo_comando)
  39. Sleep(5000)
  40. FileMove($Origen, $Destino)
  41. Sleep(5000)
  42. FileDelete ($archivo_comando)
  43. FileDelete($DirectorioOrigen & $Tipofichero)

Descargar los ficheros fuentes de la aplicación y la aplicación.


Posts anterior y posterior:
«
»


Posts Relacionados: