[RESOLVED] FolderBrowserDialog

[Pc Monk]

Hey

how can say when the folder is selected (user pressed the ok )
go and do other thing..
2 more thing : i need to know all the files name that are in that folder that is selected

last thing : i know the files now how can i open each of them and read their content ...???

[dunfiddlin]

Look up My.Computer.FileSystem in MSDN or other tutorials for all the methods you're likely to need.

[.paul.]

try this:

Dim files() As String
 
Dim fbd As New FolderBrowserDialog
If fbd.ShowDialog = DialogResult.OK Then
    files = IO.Directory.GetFiles(fbd.SelectedPath, "*.txt") 'get all text files in selected folder
End If
 
For Each file As String In files
    Debug.Print(IO.File.ReadAllText(file))
Next

[Pc Monk]

didnt work when i put it in Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

[.paul.]

it definitely works. i tested it. check the output in your immediate window (debug window)

[Pc Monk]

i got it work in listbox but its kinda messy..so i need to tell him when u reach to the end of the lenght character go to the new line hows that possible ??? so if i get to the new line i'll do i+=1 and then go to the new file and on and on ....and i need to know the file name too ?!

[.paul.]

instead of io.file.readalltext use:

io.file.readalllines + the listbox's items.addrange method.

if you're not sure how to do that post your code + i'll show you how to change it

[Pc Monk]

to be honest i dont know how to do it
the program is going to take a directory which theres full of .php and .tpl files in it ...
read every php and tpl file line by line
then sum them all and tell the user that all the php and tpl lines are example of 1000 lines together
here is what i have that u told me already

Public Class Form1

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

        Dim fbd As New FolderBrowserDialog
        If fbd.ShowDialog = DialogResult.OK Then
            files = IO.Directory.GetFiles(fbd.SelectedPath, "*.txt") 'get all text files in selected folder
        End If

        For Each file As String In files

            ListBox1.Items.AddRange((IO.File.ReadAllLines(file))
      
        Next

    End Sub
End Class

i changed it but nothing happend !

[.paul.]

you just want a sum of all the line counts of all of the .php and .tpl files in a directory?

[Pc Monk]

any programming prefix ..php css tpl txt html xml ...those that u can open them with notepad too ..not prefix like VS and ...

[.paul.]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim files As New List(Of String)
 
    Dim fbd As New FolderBrowserDialog
    If fbd.ShowDialog = DialogResult.OK Then
        files.AddRange(IO.Directory.GetFiles(fbd.SelectedPath, "*.php")) 'get all php files in selected folder
        files.AddRange(IO.Directory.GetFiles(fbd.SelectedPath, "*.tpl")) 'get all tpl files in selected folder
        'repeat for all file types
    End If
 
    MsgBox(files.Sum(Function(f) IO.File.ReadAllLines(f).Length))
 
End Sub

[Pc Monk]

thanks for that ....the only thing is i have directory into directory ..like template1 theres 10 .php and in the template folder theres a css folder that contain 4 .css file in there but this will only go for root..so how can it go into other directory and count those lines as well

[.paul.]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim files As New List(Of String)
 
    Dim fbd As New FolderBrowserDialog
    If fbd.ShowDialog = DialogResult.OK Then
        files.AddRange(IO.Directory.GetFiles(fbd.SelectedPath, "*.php", IO.SearchOption.AllDirectories)) 'get all php files in selected folder
        files.AddRange(IO.Directory.GetFiles(fbd.SelectedPath, "*.tpl", IO.SearchOption.AllDirectories)) 'get all tpl files in selected folder
        'repeat for all file types
    End If
 
    MsgBox(files.Sum(Function(f) IO.File.ReadAllLines(f).Length))
 
    'if you want to put all of the filenames in your listbox
    listbox1.items.addrange(Array.ConvertAll(files.ToArray, Function(f) New IO.FileInfo(f)))
 
End Sub

[Pc Monk]

thank you so much