انجمن کدستانMoisrex

On Error Resume Next

ListBox1.Items.Clear()

ListBox2.Items.Clear()

fcount = 0

fcount2 = 0

fcount3 = 0

fcount = My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.Desktop).Count

For i = 0 To (fcount - 1)

ListBox1.Items.Insert(i, My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.Desktop)(i).ToString)

Next

For i = 1 To Len(TextBox3.Text)

r = r + 1

If Mid(TextBox3.Text, i, 1) = "\" Then

TextBox3.Text = TextBox3.Text.Remove(0, r)

End If

Next

TextBox2.Text = TextBox2.Text.Replace(TextBox3.Text, "public")

fcount2 = My.Computer.FileSystem.GetFiles(TextBox2.Text).Count

If My.Computer.FileSystem.DirectoryExists(TextBox2.Text) Then

For i = 0 To (fcount2 - 1)

ListBox1.Items.Insert(i, My.Computer.FileSystem.GetFiles(TextBox3.Text)(i).ToString)

Next

End If

fcount3 = My.Computer.FileSystem.GetDirectories(My.Computer.FileSystem.SpecialDirectories.Desktop).Count

For i = 0 To (fcount3 - 1)

ListBox1.Items.Insert(i, My.Computer.FileSystem.GetDirectories(My.Computer.FileSystem.SpecialDirectories.Desktop)(i).ToString)

Next

MsgBox(fcount + fcount2 + fcount3)

For i = 0 To ListBox1.Items.Count - 1

If My.Computer.FileSystem.FileExists(ListBox1.Items(i).ToString) = True Then

ListBox2.Items.Insert(i, "file")

ListBox3.Items.Insert(i, My.Computer.FileSystem.GetFileInfo(ListBox1.Items(i).ToString).Name)

Else

ListBox2.Items.Insert(i, "folder")

ListBox3.Items.Insert(i, My.Computer.FileSystem.GetDirectoryInfo(ListBox1.Items(i).ToString).Name)

End If

Next