Dim psi As New ProcessStartInfo("xcopy.exe", "C:\temp\* d:\")
        Dim p As New Process
        p.StartInfo = psi
        p.Start()

  Public Function Get83Name(ByVal Filename As String, _
    Optional ByVal CompletePath As Boolean = False, _
    Optional ByVal InClipBoard As Boolean = False, _
    Optional ByVal StayInClipBoard As Boolean = False) As String
        Dim FI As System.IO.FileInfo
    Dim fso As Scripting.FileSystemObject
    Dim fsoFile As Scripting.File
    Dim ShortName As String
        Try
            FI = New System.IO.FileInfo(Filename)
        Catch ex As System.IO.IOException
            Throw New ApplicationException("Get83Name IO: ", ex)
        Catch ex As ArgumentNullException
            Throw New ApplicationException("Get83Name: " + _
              Filename + " ist Nothing.", ex)
        Catch ex As ArgumentException
            Throw New ApplicationException("Get83Name: " + _
              Filename + " ist leer.", ex)
        Catch ex As Exception
            Throw New ApplicationException("Get83Name: ", ex)
        End Try
        fso = New Scripting.FileSystemObject
        fsoFile = fso.GetFile(Filename)
        ShortName = ""
        If CompletePath = True Then
            ShortName = fsoFile.ShortPath
        Else
            ShortName = fsoFile.ShortName
        End If
        If InClipBoard = True Then
            Clipboard.SetDataObject(ShortName, StayInClipBoard)
        End If
        Return ShortName
  End Function
    Private Sub btnStart_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles btnStart.Click
        Dim LongName As String
        Dim ShortName As String
        If ofd.ShowDialog = DialogResult.OK Then
            LongName = ofd.FileName
            ShortName = Get83Name(LongName, cbPath.Checked, cbClip.Checked)
 
            TxtLong.Text = LongName
            txt83.Text = ShortName
        End If
    End Sub