Public Class Form1
 
    Dim Dateipfad As String = ""
    Dim Dateiname As String = ""
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim fForm2 As New Form2
        fForm2.ShowDialog()
        Dateiname = fForm2.Dateiname
        Dateipfad = fForm2.Dateipfad
 
        TextBox1.Text = Dateiname
 
    End Sub
End Class

Public Class Form2
 
    Private _Dateiname As String
    Private _Dateipfad As String
 
    Public Property Dateiname As String
        Get
            Return _Dateiname
        End Get
        Set(ByVal Value As String)
            _Dateiname = Value
        End Set
    End Property
 
    Public Property Dateipfad As String
        Get
            Return _Dateipfad
        End Get
        Set(ByVal Value As String)
            _Dateipfad = Value
        End Set
    End Property
 
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dateipfad = System.IO.Path.Combine(Environment.GetEnvironmentVariable( _
          "appdata"), "erbru")
        Archiv_ListBoxfill()
    End Sub
 
    Private Sub Archiv_ListBoxfill()
 
        For Each File As String In FileIO.FileSystem.GetFiles(Dateipfad,
          FileIO.SearchOption.SearchAllSubDirectories)
 
            If File.ToLower.EndsWith(".xml",
              StringComparison.CurrentCultureIgnoreCase) Then
                ListBox1.Items.Add(System.IO.Path.GetFileName(File))
            End If
        Next
    End Sub
 
 
 
    Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles _
      ListBox1.DoubleClick
        Dateiname = ListBox1.SelectedItem
 
        Me.Close()
    End Sub
End Class

EALA FREYA FRESENA

Beitrag wurde zuletzt am 14.06.17 um 12:16:30 editiert.