, Você pode usar como um exemplo para incluir anexos de e-mail.
Code: Select all
If getenv("UserName") = "Hugo"
cDefault := "Laptop"
cToolTipText:= "Maquina Portable de Hugo"
Else
cDefault := "Pc"
cToolTipText:= "Red maquina en Rocar Seguros"
Endif
/******* Es el Servidor ???? *****/
If ! FILE( "c:\SERVIDOR.TXT")
cDisco := "Z:\"
else
cDisco := "C:\"
Endif
Code: Select all
Function CreateZip()
*------------------------------------------------------------------------------*
*------------------------------------------------------------------------------*
LOCAL aDirectory := {}, aFilesDbx := {}, aFilesIdx := {}
Local dia, mes, fecha
local aDbx:={}, aIdx:={}
Local x
local nLen
Comprime.Comprime.Enabled := .F.
dia :=str(day( Date()))
mes :=str(month( Date()))
fecha:=dia+"-"+mes+"-"+str(year( Date()))
aDbx:=Directory(cDisco+"seguros\bases\*.db?") /* Files.DBF and Files.DBT */
aIdx:=Directory(cDisco+"seguros\indices\*.*")
aeval(aDbx, {|x| aadd(aFilesDbx, cDisco+"seguros\bases\"+x[1])})
CompressFiles( 'c:\Backup\'+fecha+'DBF.Zip',;
aFilesDbx, { | cFile, nPos | Comprime.Progreso.Value := nPos/len( aFilesDbx) * 100,;
Comprime.etiqueta.Value := "Procesando Tabla " + cFile }, .T. )
aeval(aIdx, {|x| aadd(aFilesIdx, cDisco+"seguros\Indices\"+x[1])})
CompressFiles( 'c:\Backup\'+fecha+'NTX.Zip', aFilesIdx, { | cFile, nPos | Comprime.Progreso.Value := nPos/len( aFilesIdx) * 100,;
Comprime.etiqueta.Value := "Procesando Indice "+cFile }, .T. )
MODIFY CONTROL Etiqueta OF Comprime FONTCOLOR {0,0,255}
Comprime.etiqueta.Value := 'Backup Finalizo'
Return nil