Visa alla filer i en mapp på skärmen?

Dr-man skrev:

Hur får jag med följande Visual Basic 2010 kod, så att filer i det aktuella
mappen visas på skärmen med hjälp av MsgBox eller motsvarande?

        Dim WinDirPath As String = FileIO.FileSystem.GetParentPath(Environment.GetFolderPath(Environment.SpecialFolder.System))
        Dim FileList As System.Collections.ObjectModel.ReadOnlyCollection(Of String)


        WinDirPath = LabelOption4.Text + "\" + DirTreeView.SelectedNode.Text
        FileList = FileIO.FileSystem.GetFiles(WinDirPath)

        MsgBox(FileList.ToString)

Du måste använda en method för att slå ihop strängarna i FileList. Det är en ReadOnlyCollection(Of String), så ett sätt är att omvandla den till en Array och sedan slå ihop den med String.Join().

        Dim WinDirPath As String = FileIO.FileSystem.GetParentPath(Environment.GetFolderPath(Environment.SpecialFolder.System))
        Dim FileList As System.Collections.ObjectModel.ReadOnlyCollection(Of String)

        FileList = FileIO.FileSystem.GetFiles(WinDirPath)

        Dim Files As String = String.Join(vbNewLine, FileList.ToArray())

        MsgBox(Files)

Eller med en funktion som listar filer direkt till en Array:

        Dim WinDirPath As String = FileIO.FileSystem.GetParentPath(Environment.GetFolderPath(Environment.SpecialFolder.System))

        Dim FileList As String()

        FileList = System.IO.Directory.GetFiles(WinDirPath)

        Dim Files As String = String.Join(vbNewLine, FileList)

        MsgBox(Files)