Public Function FileConvert(ByVal Destination As String, ByVal Source As _
      String, ByVal Dateiname As String, ByVal Endung_1 As String, ByVal _
      Endung_2 As String) As Boolean
 
        'Zielpfad
        Dim Destination_pfad As String = Destination & Dateiname & Endung_2
        'Quelle
        Dim Source_pfad As String = Source & Dateiname & Endung_1
 
        Try
            TextBox1.Text = "open"
            oApp.SilentOperation = True
            oDoc = oApp.Documents.Open(Source_pfad, False)
            TextBox1.Text = "save"
            oDoc.SaveAs(Destination_pfad, True)
            oApp.SilentOperation = False
            TextBox1.Text = "fertig" & Endung_2
            Return True
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Error_speichern")
            Return False
        End Try
 
    End Function
    Function loeschen(ByVal pfad As String, ByVal Endung_2 As String)
        Try
            System.IO.File.Delete(pfad & Endung_2)
            Return True
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Error_ Löschen")
            Return False
        End Try
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim i As Integer = 0
        Dim DestinationPath As String = "C:\Test\"
        Dim SourceFile As String = pfad(i).Substring((pfad(i).LastIndexOf("\") _
          + 1), pfad(i).Length - (pfad(i).LastIndexOf("\") + 5))
        Dim SourcePath As String = pfad(i).Substring(0, pfad(i).Length - (4 + _
        SourceFile.Length))
        Dim Extension_1 As String = ".iam"
 
        Dim oTime As System.Diagnostics.Stopwatch
        Dim zeit(3) As Integer
        oTime = New System.Diagnostics.Stopwatch
 
 
        oTime.Start()
        If FileConvert(DestinationPath & "step\", SourcePath, SourceFile, _
          Extension_1, ".stp") = True Then
            If DateiVerarbeiten("C:\Programme\UltimateZip\uzshl.exe", _
            DestinationPath & "step\" & SourceFile & ".zip" & " " & _
            DestinationPath & "step\" & SourceFile & ".stp") = True Then
                System.Threading.Thread.Sleep(2000)
                If loeschen(DestinationPath & "step\" & SourceFile, ".stp") = _
                  True Then TextBox1.Text = "gelöscht"
            End If
        End If
        oTime.Stop()
        zeit(0) = oTime.ElapsedMilliseconds
        oTime.Reset()
'usw
 
        MsgBox(zeit(0) & " / " & zeit(1) & " / " & zeit(2) & " / " & zeit(3))
    End Sub