file und directory part 2

이카루스 2014.01.06 20:33:19 *: 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


Private Sub cmdSystemeintrage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSystemeintrage.Click
Dim verzeichnis As String
Dim dateiliste() As String
Dim i As Integer

verzeichnis = Directory.GetCurrentDirectory()
dateiliste = Directory.GetFileSystemEntries(verzeichnis)
IstDateiliste.Items.Clear()
For i = 0 To dateiliste.Count - 1
IstDateiliste.Items.Add(dateiliste(i))
Next
End Sub

Private Sub cmdInfo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdInfo.Click
Dim name As String
If IstDateiliste.SelectedIndex <> -1 Then
name = IstDateiliste.Text
IblAnzeige.Text = name
IblAnzeige.Text &= vbCrLf & "Erzeugt: " & File.GetCreationTime(name)
IblAnzeige.Text &= vbCrLf & "Letzter Zugriff: " & File.GetLastAccessTime(name)
IblAnzeige.Text &= vbCrLf & "Letzter Schreibzugrif: " & File.GetLastWriteTime(name)
Else
MsgBox("Es wurde kein Eintrag ausgewahlt", MsgBoxStyle.Information)
End If
End Sub

Private Sub cmdInVerzeichnis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdInVerzeichnis.Click
If IstDateiliste.SelectedIndex <> -1 Then
If Directory.Exists(IstDateiliste.Text) Then
Directory.SetCurrentDirectory(IstDateiliste.Text)
Else
MsgBox("Es wurde kein Eintrag ausgewahlt!", MsgBoxStyle.Information)

End If
End If
End Sub

Private Sub cmdNachoben_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNachOben.Click
Directory.SetCurrentDirectory("..")

End Sub
End Class

file und directory part 2