Dim verzeichnis As String = textbox1.Text
        Dim datei As String = textbox2.Text
 
        Dim datum As String
        datum = Format(Now(), "MMdd")
        Try
            My.Computer.FileSystem.RenameFile(verzeichnis & datei & ".dat" , _
              datei & datum & ".dat")
            Dim Datdatum As String
            Datdatum = datei & datum
            Shell(verzeichnis & "rebuild " & verzeichnis & Datdatum & ".dat , " _
              & verzeichnis & N & ".dat /v/d/e/i")