Windows Explorer in vb 2008?

[Dummy1912]

Hi,

Ik maak een klein explorer in men prog
maar als ik een file wil laden in de listview
krijg ik deze niet geopend.

ik gebruik:

Private Sub lv1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv1.SelectedIndexChanged
        If lv1.SelectedItems.Count > 0 Then
            Try
                Dim myProc As New System.Diagnostics.Process()
                myProc.EnableRaisingEvents = False
                myProc.StartInfo = New System.Diagnostics.ProcessStartInfo(lv1.SelectedItems(0).Text)
                myProc.Start()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

        End If

maar krijg fout melding met : The system cannot find the file specified.

als ik een label gebruik met

label1.text= lv1.SelectedItems(0).Text

krijg ik enkel het geselecteerde bestand naam te zien zonder locatie of . uitvoer ervan
denk dat het probleem daar bij ligt.

en hoe maak ik ook een new folder aan?

bedankt

Dummy1912

 

[royb3]

waarom gebruik je niet file list box en system.io.
en een mak aanmaken is System.IO.Directory.CreateDirectory("C:\Basicbrowser") welke ik in mijn eigen project heb gebruikt.

 

[Dummy1912]

hey

zou niet weten hoe je list kunt gebruiken
en die map aanmaken is niet altijd drive C:

Heb nog andere drive's
maar als je eventueel een vb kunt geven ben ik ook al blij
zodat ik verder kan uitzoeken.

Bedankt

Dummy1912

 

[royb3]

in plaats van c:/basicbrowser kun je ook wat anders invullen of je kan een combobox maken die de drives zelf al opzoekt. moet ik een voorbeeld geven? hier heb je de hele source van mijn verkenner.
Public Class Form3


Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FileListBox1.Items.Clear()
FileListBox1.Items.AddRange(System.IO.DriveInfo.GetDrives)
ComboBox1.Items.AddRange(System.IO.DriveInfo.GetDrives)
End Sub

Private Sub FileListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileListBox1.DoubleClick
TextBox1.Text = FileListBox1.SelectedItem.ToString()
FileListBox1.Items.Clear()
FileListBox1.Items.AddRange(System.IO.Directory.GetDirectories(TextBox1.Text))
FileListBox1.Items.AddRange(System.IO.Directory.GetFiles(TextBox1.Text))
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Hide()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ComboBox1.Items.Clear()
ComboBox1.Items.AddRange(System.IO.DriveInfo.GetDrives)
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
System.Diagnostics.Process.Start(FileListBox1.SelectedItem.ToString)
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
System.IO.Directory.Delete(FileListBox1.SelectedItem.ToString)
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
System.IO.File.Delete(FileListBox1.SelectedItem.ToString)
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
SaveFileDialog1.FileName = FileListBox1.SelectedItem
SaveFileDialog1.ShowDialog()

System.IO.File.Copy(FileListBox1.SelectedItem, SaveFileDialog1.FileName)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

FileListBox1.Items.Clear()
FileListBox1.Items.AddRange(System.IO.Directory.GetDirectories(ComboBox1.SelectedItem.ToString))
FileListBox1.Items.AddRange(System.IO.Directory.GetFiles(ComboBox1.SelectedItem.ToString))
TextBox1.Text = ComboBox1.SelectedItem.ToString
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FileListBox1.Items.Clear()
FileListBox1.Items.AddRange(System.IO.Directory.GetDirectories(TextBox1.Text))
FileListBox1.Items.AddRange(System.IO.Directory.GetFiles(TextBox1.Text))
TextBox1.Text = FileListBox1.SelectedItem.ToString()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
FileListBox1.Items.Clear()
FileListBox1.Items.AddRange(System.IO.DriveInfo.GetDrives)
ComboBox1.Items.Clear()
ComboBox1.Items.AddRange(System.IO.DriveInfo.GetDrives)
TextBox1.Text = ""
End Sub
End Class

 

[Dummy1912]

hey

Ziet er leuk uit denk ik
maar je gebruikt geen treeview of zo
hoe ziet je verkenner er dan eigenlijk uit?

Ik kan jammer genoeg geen foto hier plaatsen want dit laat het niet toe enkel via http
anders kon ik het je laten zien hoe de mijne eruit ziet.

Dummy1912

 

[Dummy1912]

hey royb3,

Ik heb je code even getest en moet zeggen dat het wel werkt als je een file aanklikt :thumb:
maar nu moet ik proberen deze code in mijn verkenner te krijgen maar als ik listview
met wat zou ik deze het beste kunnen vervangen?

zodat ik toch nog een uiterlijk krijg van verkenner zelf.

Bedankt voor je help royb3

Dummy1912

 

[Dummy1912]

Bedankt royb3

Ik heb het opgelost en het werkt

Dummy1912