Guten Morgen,
ich stehe wieder einmal vor einem Problem: Und zwar möchte ich eine Art Ordner Import in mein Programm hinzufügen. Allerdings sollen nur .jpg Dateien kopiert werden.
Gestern hab ich einen Codeschnipsel in der MSDN gefunden, jedoch funktioniert das nicht so ganz wie ich das möchte. Wie kann ich bei meinem Code noch hinzufügen, wenn zB .mp3 Dateien ausgewählt wurden, dass eine Messagebox erscheint?
Hier der gesamte Code:
MFG Andi2572
ich stehe wieder einmal vor einem Problem: Und zwar möchte ich eine Art Ordner Import in mein Programm hinzufügen. Allerdings sollen nur .jpg Dateien kopiert werden.
Gestern hab ich einen Codeschnipsel in der MSDN gefunden, jedoch funktioniert das nicht so ganz wie ich das möchte. Wie kann ich bei meinem Code noch hinzufügen, wenn zB .mp3 Dateien ausgewählt wurden, dass eine Messagebox erscheint?
Hier der gesamte Code:
VB.NET-Quellcode
- With fbd
- .RootFolder = Environment.SpecialFolder.Desktop
- .ShowNewFolderButton = False
- .Description = "Verzeichnis auswählen"
- If .ShowDialog() = DialogResult.OK Then
- Dim counter As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles(.SelectedPath)
- If counter.Count = 0 Then : Exit Sub : End If
- Try
- For Each foundFile As String In My.Computer.FileSystem.GetFiles(.SelectedPath, FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")
- My.Computer.FileSystem.CopyFile(foundFile, Application.StartupPath & "\Patienten\" & TSPatNr.ToString.Remove(0, 18) & "_" & TSNachname.ToString.Remove(0, 10) & "\" & System.IO.Path.GetFileName(foundFile), True)
- Next
- MessageBox.Show("Daten erfolgreich importiert!", "Dateiimport erfolgreich", MessageBoxButtons.OK, MessageBoxIcon.Information)
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End If
- End With
MFG Andi2572