![]() |
Tipp 0001
|
Dateien eines Ordners auflisten
|
 |
|
Autor/Einsender: Datum: |
|
Michael Werner 14.01.2003 |
|
Entwicklungsumgebung: |
|
VB.Net 2002 |
Framework: |
|
1.0 |
|
|
Dieser Tipp zeigt, wie man die Dateien eines Ordners ausliest. Benötigt wird der
Namespace System.IO und die Klasse Directory, mit deren Methode
GetFiles die Dateinamen in einem StringArray gefüllt und, in diesem Fall, in einer
Listbox ausgegeben werden. Das Beispiel zeigt auch, wie man mit der Ausnahmebehandlung
Try-Catch-End Try eine Ausnahme-Message des Exception-Objekts anzeigen
lassen kann, sofern ein Fehler aufgetreten ist.
|
|
|
Imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form Vom Windows Form Designer generierter Code
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "C:\"
TextBox2.Text = "*.*"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Int32
Try
Dim arrAllFiles() As String = _
Directory.GetFiles(TextBox1.Text, TextBox2.Text)
ListBox1.Items.Clear()
For i = 0 To arrAllFiles.Length - 1
ListBox1.Items.Add(arrAllFiles(i))
Next
Label1.Text = CStr(arrAllFiles.Length)
Catch Except As Exception
MsgBox(Except.Message & vbNewLine & _
"Möglicherweise ist die Pfadangabe falsch.", _
MsgBoxStyle.Exclamation)
ListBox1.Items.Clear()
Label1.Text = CStr(0)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
|
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (6,4
kB)
|
Downloads bisher: [ 2216 ]
|
|
|