file und directory part 1

이카루스 2014.01.06 20:29:43 *: Imports System.IO

Public Class Form1

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
file und directory part 1