Alines(aMes, "ENERO FEBRERO MARZO ABRIL MAYO JUNIO JULIO AGOSTO SEPTIEMBRE OCTUBRE NOVIEMBRE DICIEMBRE", " ")
lcMesUpdate = aMes[MONTH(DATE())] + [ ] + Alltrim(Str(Year(DATE())))
lcDia=Alltrim(Str(Day(Date())))
lcFile = ""
lcFile = "pyme_db_"+lcDia+"_"+lcMesUpdate+"_Hora_"+Alltrim(Right(Ttoc(Datetime()), 12))+".db"
lcFile = Strtran(lcFile, '/', '_')
lcFile = Strtran(lcFile, ':', '_')
lcFile = Strtran(lcFile, ' ', '_')
lcFile = LOWER(lcFile)
*-----------------------------------------------------------------------------
fso = Createobject("Scripting.FileSystemObject")
lcCarpeta = MiRuta + "ARCHIVOS\"
If !Directory(lcCarpeta)
fldr = fso.CreateFolder( lcCarpeta )
Endif
lcArchivoOrigen = MiRuta + "\DATOS\pyme_db.db"
lcArchivoDestino = lcCarpeta + lcFile
If File(lcArchivoDestino)
fso.CopyFile(lcArchivoOrigen, lcArchivoDestino)
Endif
*-----------------------------------------------------------------------------