Private Sub cmdOpen_Click()
  On Error Resume Next
  Dim sFile As String
 
  With CommonDialog1
    .CancelError = True
    .Filter = "JPG-Dateien|*.jpg;*.jpeg"
    .ShowOpen
    If .FileName <> "" Then
      ' Kopieren
      sFile = Mid$(.Filename, InStrRev(.Filename, "\") + 1)
      FileCopy .Filename, App.Path & "\Bilder\" & sFile
 
      ' Pfad in TextBox schreiben
      txtPath.Text = .Filename
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de