Hallo,
ich komme bei einem Anfänger-Problem nicht weiter:
Es existiert ein Ordner (D:\test\) - dieser hat 3 Unterordner (a,b,c).
Ich würde gerne die 3 Unterordner in einer MessageBox untereinander auflisten.
Über Hilfe würde ich mich sehr freuen!!
Vielen Dank im Voraus!!
Mein Versuch ist:
ich komme bei einem Anfänger-Problem nicht weiter:
Es existiert ein Ordner (D:\test\) - dieser hat 3 Unterordner (a,b,c).
Ich würde gerne die 3 Unterordner in einer MessageBox untereinander auflisten.
Über Hilfe würde ich mich sehr freuen!!
Vielen Dank im Voraus!!
Mein Versuch ist:
VB.NET-Quellcode
- [code]Public Class Form1
- 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 p As String, d As String, fso As New Scripting.FileSystemObject(), ord As Scripting.Folder, o As Scripting.Folder
- p = "D:\test\"
- ord = fso.GetFolder(p)
- For Each o In ord.SubFolders
- d = o.Name & vbCr
- d = d & o.Name
- MessageBox.Show(d)
- Next
- End Sub
- End Class[/code]