object & string

Du skal vil iterere over output ...

Eksempel:

Option Explicit On
Option Strict On

Module Program
    Sub Main()
        Dim d As String
        For Each d In My.Computer.FileSystem.GetDirectories("C:\")
            Console.WriteLine(d)
        Next
        Console.ReadKey()
    End Sub
End Module

Hej får denne fejl

Det er ikke muligt at læse nøgler, når ingen af programmerne har en konsol, eller når konsolinput er blevet omdirigeret fra en fil. Prøv Console.Read.

min code ser sådanne ud

øverst oppe har jeg sat

Option Explicit On
Option Strict On



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim ged As Object
       
        ged = My.Computer.FileSystem.GetDirectoryInfo("c:\compare")
 
        Dim d As String
        For Each d In My.Computer.FileSystem.GetDirectories("c:\compare")
            Console.WriteLine(d)
        Next
        Console.ReadKey()

ville gerne have det ud i en textbox.text

GetFiles

foreksemple ged = My.Computer.FileSystem.GetFiles("C:\compare")

ville lave en count på hvor mange filer og hvad de hedder
med den skriver kun første linie

Dim ged As Object
       
        ged = My.Computer.FileSystem.GetFiles("C:\compare")
        Dim d As String
        For Each d In My.Computer.FileSystem.GetFiles("C:\compare")
            Console.WriteLine(d)
        Next
        TextBox3.Text = d

Mit lille eksempel var en console app.

Hvis din app er en GUI app, så skal du ikke bruge Console.WriteLine men bruge d
på anden vis.

Hej Arne tusind...Tak for dit svar

Kan dog ikke rigtig få det til at virke

Min kode er

Dim ged As Object
Dim d As String
       
ged = My.Computer.FileSystem.GetFiles("C:\compare")


For Each d In My.Computer.FileSystem.GetFiles("C:\compare")
Console.WriteLine(d)
       
Next
TextBox3.Text = d
ged = ged

når jeg kørere en debug på ged = ged  kan jeg se at

i object mode


+ ged Count 3

(0) "c:\compare\test.txt"
(1) "c:\compare\test.wave"
(3) "c:\compare\test.jpg"

og det er jo det jeg gerne vil have skrevet ud

f.eks

textbox12 = skal vise count 3 og textbox13 =  skal vise
c:\compare\test.txt
c:\compare\test.wave
c:\compare\test.jpg

Kan du hjælpe

...
TextBox3.Text = ""
For Each d In My.Computer.FileSystem.GetFiles("C:\compare")
  TextBox3.Text = TextBox3.Text + d + vbCrLf
Next
...

TextBox3 skal naturligvis vaere multi line !

Det Virker

Det er kanon mange tak arne for din tålmodighed : )

saa vil jeg smide et svar