Dobry den , mam problem snazim se vytvorit programek ktery v listboxu zobrazi soubory v urcite slozce ve slozce "Dejepis" mam soubor "dejepis.txt" a ve slozce "ICT" mam soubor "ict.txt" , a vzdy kdyz spustim aplikaci a zvolim jakykoliv soubor napr ict.txt tak mi to pry debugu vypise toto "Systém nemůže nalézt uvedený soubor" a oznaci mi to tento radek , nevite co s tim ? soubory ve slozkach se zobrazuji , jen nejdou spustit :
System.Diagnostics.Process.Start(Me.ListBox1.SelectedItem.ToString())
.. zde pridavam Zdrojovy kod :
Imports System.IO
Public Class Form4
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' Get the current directory.
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
Private Sub ListBox1_ValueMemberChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.ValueMemberChanged
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
ListBox1.Items.Clear()
Dim di As New IO.DirectoryInfo(Directory.GetCurrentDirectory & "/Dejepis")
Dim diar1 As IO.FileInfo() = di.GetFiles()
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
Next
ListBox1.Update()
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
ListBox1.Items.Clear()
Dim di As New IO.DirectoryInfo(Directory.GetCurrentDirectory & "/ICT")
Dim diar1 As IO.FileInfo() = di.GetFiles()
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
Next
ListBox1.Update()
End Sub
Private Sub ListBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
System.Diagnostics.Process.Start(Me.ListBox1.SelectedItem.ToString())
End Sub
End Class
|