Hola Víctor,
Este script pueda serte útil "Visual Basic .net"
Imports DocumentProcessor83
Imports LFSO83Lib
Imports Microsoft.VisualBasic
Namespace WorkflowActivity.Scripting.ExportaContenidoContigenciaDirectorio
Public Class ImportarArchivo
Inherits SDKScriptClass83
Protected Overrides Sub Execute()
Dim StrOrigen as String = TokenReplace("%(ID Documento)")
Dim StrDestino as String = TokenReplace("%(Destino)")
Dim LgcError as Boolean = False
Dim StrError as String = "NO"
Dim LgcConexion as Boolean = False
Dim objContenido as LFDocument = Database.GetEntryById(StrOrigen)
Dim StrNmbContenido as String = objContenido.Name.ToUpper
Dim StrComillas as String = """"
If StrNmbContenido.IndexOf(".PDF") <= 0 Then StrNmbContenido = StrNmbContenido & ".PDF"
StrNmbContenido = Replace(StrNmbContenido, "Á", "A")
StrNmbContenido = Replace(StrNmbContenido, "É", "E")
StrNmbContenido = Replace(StrNmbContenido, "Í", "I")
StrNmbContenido = Replace(StrNmbContenido, "Ó", "O")
StrNmbContenido = Replace(StrNmbContenido, "Ú", "U")
StrNmbContenido = Replace(StrNmbContenido, "Ü", "U")
StrNmbContenido = Replace(StrNmbContenido, "Ñ", "N")
StrNmbContenido = Replace(StrNmbContenido, "°", ".")
StrNmbContenido = Replace(StrNmbContenido, ",", " ")
'-------------- Inicia Exporta el contenido al disco local --------------
' Instancia el nuevo documento
Dim DocEx As New DocumentExporter
' Configura propiedades del contenido origen
DocEx.SourceDocument = Database.GetEntryById(StrOrigen)
' COnfigura el formato del contenido destino
DocEx.Format = Document_Format.DOCUMENT_FORMAT_ELECTRONICFILE
' Exporta el contenido
StrDestino = StrDestino & StrNmbContenido
DocEx.ExportToFile(StrDestino)
Try
DocEx.ExportToFile(StrDestino)
Catch ex As System.Runtime.InteropServices.COMException
LgcError = True
End Try
If LgcError = True
StrError = "Error --> Comando DOS " & StrError
End If
SetToken("%Error", StrError)
End Sub
End Class
End Namespace