Guten Tag
Ich möchte verschiedene Dateien öffnen. Durch einen klick auf einen Button gelange ich zu meinem Arbeitsplatz und kann eine Datei auswählen und dann auf ÖFFNEN klicken. Nur es öffnet sich leider gar nichts.
Mein Code:
Public Class Form1
Danke jetzt scho für eure Hilfe!
Gruss
Ich möchte verschiedene Dateien öffnen. Durch einen klick auf einen Button gelange ich zu meinem Arbeitsplatz und kann eine Datei auswählen und dann auf ÖFFNEN klicken. Nur es öffnet sich leider gar nichts.
Mein Code:
Public Class Form1
Code:
Private Sub cmdOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOpenFile.Click
Dim ofd As New OpenFileDialog
ofd.InitialDirectory = "U:\Projekte\Frontego\Tests\Kabelbruch\Protokolle"
ofd.Filter = "Tabellen (*.xls)|*.xls|" &
" Texte (*.txt; *doc)|*.txt;*.doc|" &
" Alle Dateien (*.*)|*.*"
ofd.Title = "Datei zum Öffnen auswählen"
If ofd.ShowDialog() = DialogResult.OK Then
MessageBox.Show("Öffnen: " & ofd.FileName)
Else
MessageBox.Show("Abbruch")
End If
End Sub
Private Sub cmdEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnd.Click
Me.Close()
End Sub
End Class
Danke jetzt scho für eure Hilfe!
Gruss