oDoc = oApp.Documents.Open(sFile, True)
' stp speichern
oDoc.SaveAs(DestinationPath & SourceFile & Extension_2, True)
 
' prüfen ob step vorhanden ist, step zippen
If System.IO.File.Exists(dFile) then
DateiVerarbeiten("C:\Programme\UltimateZip\uzshl.exe", DestinationPath & _
  SourceFile & ".zip" & " " & DestinationPath & SourceFile & ".stp")
end if
 
' prüfen ob zip vorhanden ist, step löschen
If System.IO.File.Exists(dFile) then
Kill(DestinationPath & SourceFile & ".stp")
end if