Breadcrumbs

[clanc789]

Hey Coders,

I got a problem. I also want to learn how to program in an console application and this is the whole code I got so far:

Code: Select all

Module main
    Dim dir As String

    Sub Main()
        Try
            Console.Title = "Directory Printer"
            Console.Write("Directory to list: ")
            dir = "dir " & CType(Console.ReadLine(), Char)
            Shell(dir, AppWinStyle.NormalFocus, True, -1)
            Console.ReadLine()
        Catch ex As Exception
            Console.WriteLine(ex)
            Console.Read()
        End Try
    End Sub
End Module

The error I get an error that the file can not be found at the Shell(dir, .....) line. I dont want it to find files but I want it to list the directories via the shell (that is how I make the program send strings via cmd.exe right?).

Anybody can help me out?

[comathi]

Code: Select all

Dim dir As New IO.DirectoryInfo("C:\")
Dim folders() As IO.DirectoryInfo=dir.GetDirectories()
Dim folder As IO.DirectoryInfo

For Each folder in folders
console.WriteLine(folder.FullName)
Next

[mandai]

For something simple like listing directories it would be easier to use the built-in DirectoryInfo.GetDirectories function rather than using the output from cmd.exe.
The above code should let you do this, though there is a typo on the 3rd line.

[comathi]

The above code should let you do this, though there is a typo on the 3rd line.

My bad. It's fixed now.

[clanc789]

For something simple like listing directories it would be easier to use the built-in DirectoryInfo.GetDirectories function rather than using the output from cmd.exe.
The above code should let you do this, though there is a typo on the 3rd line.

First of all: thanks Comathi! That kinda works. But im still figuring on something so who knows I might succeed

To Mandai: ill try that today as well
Thx for the fast help guys! I hope I can solve it like this