salve
non sono esperto di programmazione e dovrei modificare questo codice fatto da un programmatore.
c\'è qualche anima pia che mi aiuti per cortesia perchè dovrei aggiungere un controllo sulla cartella di destinazione
ora l\'agente della casella email trasferisce un file xml in un server senza nessun controllo e sovrascrivendo il file di destinazione se c\'è.
dovrei aggiungere questo controllo:
se il file di destinazione "pippo.xml" esiste,non SOVRASCRIVERE "pippo.xml" altrimenti trasferiscilo
vi ringrazio per la vs disponibilità
Sub Initialize
\'*********************************************************
\'Estrae i file xml in un percorso specificato
\'********************************************************
Dim s As New NotesSession
Dim FileName As String
Dim Percorso As String
Dim PercorsoEseguibile As String
Dim doc As NotesDocument
Dim Allegati As Variant
Dim Allegato As NotesEmbeddedObject
Dim res As Integer
Percorso = "D:\ftp\as400_edi_xml\"
PercorsoEseguibile = "D:\ftp\ftptransferxml.bat"
Set doc = s.DocumentContext
Allegati = Evaluate("@AttachmentNames", doc)
Forall att In Allegati
If att <> "" Then
If att Like "*.xml-file" Then
Set Allegato = doc.GetAttachment(att)
FileName = Percorso & att
Call Allegato.ExtractFile(FileName)
Print "L\'allegato " & att & " è stato estratto in " & FileName
res = Shell(PercorsoEseguibile)
Sleep 4
Print "L\'allegato " & att & " è stato inviato."
Kill FileName
End If
End If
End Forall
End Sub
|