Hallo Community,
da ich letztens große Probleme beim auslesen von Informationen einer Datei hatte werde ich hier ein kurzes Tutorial schreiben.
Für das Tutorial wird folgendes benötigt:
Eine Textbox
Ein Button
Für dieses Tutorial wird ein Verweis auf die shell32.dll Datei benötigt. (Zu finden unter Verweis hinzufügen - COM - Microsoft Shell Controls and Automation)
Als erstes Importieren wir System.IO
Nun kommt ins Button_Click Event folgendes:
Dazu eine kurze Erklärung:
Es wird ein OpenFileDialog aufgerufen, mit dem man die zu analysierende Datei auswählen kann.
In die Textbox werden nun alle Informationen der Datei geschrieben (For i = 0 To 300)
Diese For Schleife dient nur dazu um zu Erfahren welchen Integer Wert die gesuchte Information hat.
So kann man zum Beispiel auslesen, dass der Wert 1 die Dateigröße ausgibt oder z.B. der Wert 28 die Bitrate einer Mp3 Datei.
Nehmen wir mal an wir wollen die Bitrate einer MP3 Datei in einer MessageBox ausgeben.
Dafür müssen wir folgendes schreiben.
Ich hoffe das Tutorial ist verständlich.
Bei Fragen einfach kommentieren.
mfg Mike
da ich letztens große Probleme beim auslesen von Informationen einer Datei hatte werde ich hier ein kurzes Tutorial schreiben.
Für das Tutorial wird folgendes benötigt:
Eine Textbox
Ein Button
Für dieses Tutorial wird ein Verweis auf die shell32.dll Datei benötigt. (Zu finden unter Verweis hinzufügen - COM - Microsoft Shell Controls and Automation)
Als erstes Importieren wir System.IO
Nun kommt ins Button_Click Event folgendes:
VB.NET-Quellcode
- Dim ofd As New OpenFileDialog
- If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
- Dim Shell As New Shell32.Shell
- Dim Folder As Shell32.Folder = Shell.NameSpace(Path.GetDirectoryName(ofd.FileName))
- Dim FolderItem As Shell32.FolderItem = Folder.ParseName(Path.GetFileName(ofd.FileName))
- For i = 0 To 300
- Application.DoEvents()
- TextBox1.Text &= i & " " & Folder.GetDetailsOf(FolderItem, i) & vbNewLine
- Next
- End If
Dazu eine kurze Erklärung:
Es wird ein OpenFileDialog aufgerufen, mit dem man die zu analysierende Datei auswählen kann.
In die Textbox werden nun alle Informationen der Datei geschrieben (For i = 0 To 300)
Diese For Schleife dient nur dazu um zu Erfahren welchen Integer Wert die gesuchte Information hat.
So kann man zum Beispiel auslesen, dass der Wert 1 die Dateigröße ausgibt oder z.B. der Wert 28 die Bitrate einer Mp3 Datei.
Nehmen wir mal an wir wollen die Bitrate einer MP3 Datei in einer MessageBox ausgeben.
Dafür müssen wir folgendes schreiben.
VB.NET-Quellcode
- Dim ofd As New OpenFileDialog
- If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
- Dim Shell As New Shell32.Shell
- Dim Folder As Shell32.Folder = Shell.NameSpace(Path.GetDirectoryName(ofd.FileName))
- Dim FolderItem As Shell32.FolderItem = Folder.ParseName(Path.GetFileName(ofd.FileName))
- MessageBox.Show(Folder.GetDetailsOf(FolderItem, 28), "Bitrate")
- End If
Ich hoffe das Tutorial ist verständlich.
Bei Fragen einfach kommentieren.
mfg Mike
