Hallo ich versuche mit gerade in vb.net. dabei habe ich ein kleines testprog. in welchem ich ein verzeichnis angebe und dort sollen mir alle dateien ohne endungen dann in einer lsue dargestell werden. die prozeduren habe ich aus einem büchlein (openbook). jedoch wird eine fehlermedlung angeben die ich im code markeirt habe
Imports System.IO
Public Class Form1
Sub DateiAuflisten(ByVal strOrdner As String)
Dim objDateien() As System.IO.FileInfo
Dim i As Integer
Dim strDN As String
objDateien = New DirectoryInfo(strOrdner).GetFiles()
For i = 0 To objDateien.GetUpperBound(0)
strDN = objDateien(i).ToString
strDN = strDN.Substring(0, strDN.IndexOf("."))
Me.lstDateien.Items.Add(strDN)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objOrdner() As System.IO.DirectoryInfo
Dim i As Integer
If txtDir.Text.Length = 0 Then
MessageBox.Show("Verzeichnisname angeben")
Else
objOrdner = New DirectoryInfo(txtDir.Text).GetDirectories()
For i = 0 To objOrdner.Length - 1
DateiAuflisten(txtDir.Text & objOrdner.(i).ToString)//hier wird ein bezeichner erwartet
Next
End If
Call DateiAuflisten()
End Sub
End Class
Imports System.IO
Public Class Form1
Sub DateiAuflisten(ByVal strOrdner As String)
Dim objDateien() As System.IO.FileInfo
Dim i As Integer
Dim strDN As String
objDateien = New DirectoryInfo(strOrdner).GetFiles()
For i = 0 To objDateien.GetUpperBound(0)
strDN = objDateien(i).ToString
strDN = strDN.Substring(0, strDN.IndexOf("."))
Me.lstDateien.Items.Add(strDN)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objOrdner() As System.IO.DirectoryInfo
Dim i As Integer
If txtDir.Text.Length = 0 Then
MessageBox.Show("Verzeichnisname angeben")
Else
objOrdner = New DirectoryInfo(txtDir.Text).GetDirectories()
For i = 0 To objOrdner.Length - 1
DateiAuflisten(txtDir.Text & objOrdner.(i).ToString)//hier wird ein bezeichner erwartet
Next
End If
Call DateiAuflisten()
End Sub
End Class
Comment