1
VB Makierte Dateien der CheckedListbox in anderen Ordner verschieben
Hallo liebe Gemeinde,
Ich habe in meinem Projekt bis jetzt hinbekommen das er *.pdf Dateien eines Ordners ausliest und in die CheckedListBox einträgt.
Außerdem kann ich bei Doppelklick mir diese Datei ansehen.
Jetzt würde ich aber gerne die angehakten Dateien von Ihrem ursprünglichen Ordner in einen anderen Ordner Kopieren.
Und hier hapert es leider.
Mein bisheriger Code:
Für Hilfe wäre ich euch sehr Dankbar!
Ich habe in meinem Projekt bis jetzt hinbekommen das er *.pdf Dateien eines Ordners ausliest und in die CheckedListBox einträgt.
Außerdem kann ich bei Doppelklick mir diese Datei ansehen.
Jetzt würde ich aber gerne die angehakten Dateien von Ihrem ursprünglichen Ordner in einen anderen Ordner Kopieren.
Und hier hapert es leider.
Mein bisheriger Code:
Imports System.IO
Public Class Form2
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
CheckedListBox1.Items.Clear()
For Each foundFile As String In My.Computer.FileSystem.GetFiles(
My.Computer.FileSystem.SpecialDirectories.MyDocuments,
Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, "*.pdf")
CheckedListBox1.Items.Add(foundFile)
Next
End Sub
Private Sub CheckedListBox1_DoubleKlick(sender As Object, e As EventArgs) Handles CheckedListBox1.DoubleClick
Dim fullPath = Path.Combine(CheckedListBox1.SelectedItem.ToString())
System.Diagnostics.Process.Start(fullPath)
End Sub
End ClassFür Hilfe wäre ich euch sehr Dankbar!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 272235
Url: https://administrator.de/contentid/272235
Printed on: April 26, 2024 at 00:04 o'clock
1 Comment
Jetzt würde ich aber gerne die angehakten Dateien von Ihrem ursprünglichen Ordner in einen anderen Ordner Kopieren.
Guckst du hierImports System.IO
Public Class Form2
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
CheckedListBox1.Items.Clear()
CheckedListBox1.Items.AddRange(My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.MyDocuments, FileIO.SearchOption.SearchTopLevelOnly, "*.pdf").ToArray())
End Sub
Private Sub CheckedListBox1_DoubleKlick(sender As Object, e As EventArgs) Handles CheckedListBox1.DoubleClick
Dim fullPath = Path.Combine(CheckedListBox1.SelectedItem.ToString())
System.Diagnostics.Process.Start(fullPath)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
For Each itm As String In CheckedListBox1.CheckedItems
File.Move(itm, "C:\temp\pdf\ziel\" & Path.GetFileName(itm))
Next
End Sub
End Class
1