Private Sub cmdDateiliste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDateiliste.Click
Dim verzeichnis As String
Dim dateiliste() As String
Dim i As Integer
verzeichnis = Directory.GetCurrentDirectory()
dateiliste = Directory.GetFiles(verzeichnis)
IstDateiliste.Items.Clear()
For i = 0 To dateiliste.Count - 1
IstDateiliste.Items.Add(dateiliste(i))
Next
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Directory.Exists("C:\TEST") Then
Directory.SetCurrentDirectory("C:\TEST")
Else
MsgBox("Das verzeichnis C:\User\TEST existiert nicht!", MsgBoxStyle.Information)
End If End Sub
End Class